10 replies to this topic

[martini002]

Hola amigos,

Tengo un pequeño inconveniente, no se porque razon cuando envio el reporte para su generacion,
este sale totalmente en blanco?, no es la primera vez que los hago, de hecho estoy
bastante familiarizado con rave, pero esta vez o me fallo o le falle
podrian echarle un ojito al codigo y decirme si hay algo malo?
El reporte ya esta construido y diseñado, las propiedades del dataview y el databand estan
establecidas, de hecho, lo puedo ver ya generado desde el diseñador de rave.

Saludos.

delphi

procedure TFormPrincipal.ImprimirReporteDeNomina(FechaCorte:String);
var
  DireccionMisDocumentos,A:String;
  Año, Mes, Dia:Word;
  I:Integer;
  MyFields: array of TField;
  Temf: TStringField;
  DataView: TRaveBaseDataView;
  myPage:TRavePage;
  MyDataText:TRaveDataText;
  MyText:TRaveText;
  //MyPage2:TRavePage;
  nMarginBottom, nMarginLeft, nMarginRight, nMarginTop: Double;
begin
  with RvProject1 do
    begin
      SetLength(FechaCorte,10);
 
      //A:=GetCurrentDir()+'\Data\NOMREP1.rav';
      ProjectFile:=GetCurrentDir()+'\Data\NOMREP1.rav';
      Open;
      //LoadFromFile(GetCurrentDir()+'\Data\NOMREP1.rav');
      //StoreRAV:=True;
      //ZQuery1.Fields.Clear;
      //ZQuery1.Fields.Clear;
      ZQuery1.Close;
      ZQuery1.SQL.Clear;
      ZQuery1.SQL.Add('Select');
      ZQuery1.SQL.Add('NumeroEmpleado,');
      ZQuery1.SQL.Add('Cargo,');
      ZQuery1.SQL.Add('Nombre,');
      ZQuery1.SQL.Add('Apellido,');
      ZQuery1.SQL.Add('Format(Cedula,0),');
      ZQuery1.SQL.Add('Ingreso,');
      ZQuery1.SQL.Add('Format(SalarioMensual,2),');
      ZQuery1.SQL.Add('Format(SalarioDiario,2),');
      ZQuery1.SQL.Add('Format(CTDiario,2),');
      ZQuery1.SQL.Add('DiasTrabajados,');
      ZQuery1.SQL.Add('DiasLibres,');
      ZQuery1.SQL.Add('CT,');
      ZQuery1.SQL.Add('Ausencias,');
      ZQuery1.SQL.Add('Format(SSO,2),');
      ZQuery1.SQL.Add('Format(RPE,2),');
      ZQuery1.SQL.Add('Format(FAOV,2),');
      ZQuery1.SQL.Add('Format(TotalSueldo,2),');
      ZQuery1.SQL.Add('Format(TotalSanciones,2),');
      ZQuery1.SQL.Add('Format(TotalCT,2),');
      ZQuery1.SQL.Add('Format(TotalDiasLibres,2),');
      ZQuery1.SQL.Add('Format(TotalAusencias,2),');
      ZQuery1.SQL.Add('Format(TotalAsignaciones,2),');
      ZQuery1.SQL.Add('Format(TotalDeducciones,2),');
      ZQuery1.SQL.Add('Format(TotalCobrar,2)');
      ZQuery1.SQL.Add('From Constructor.ZRepNom');
      ZQuery1.Open;
      ZQuery1.Close;
 
      SetLength(MyFields, ZQuery1.FieldDefs.Count);
      //Add one by one the fields to make them accesible.
      for i:=0 to ZQuery1.FieldDefs.Count - 1 do
        MyFields[i] := ZQuery1.FieldDefs[i].CreateField(ZQuery1);
      //Create all Calculated Fields as you need
      Temf := TStringField.Create(nil);
      Temf.FieldKind := fkCalculated;
      //Temf.FieldName := 'NewCalcField';
 
      Open;
 
      With ProjMan do
        begin
          Dataview := FindRaveComponent('DataView1',nil) as TRaveBaseDataView;
          CreateFields(DataView, nil, nil, true); // refresh the dataview
        end;
 
      With ProjMan do
        begin
          MyPage := FindRaveComponent('Report1.Page1',nil) as TRavePage;
          MyText := FindRaveComponent('FECHACORTE',MyPage) as TRaveText;
          MyText.Text:=FechaCorte;
        end; { with }
 
      Save;
      {
      with IACProyectUnidades.ProjMan do
        begin
          nMarginBottom := 0.5;
          nMarginLeft := 0.5;
          nMarginRight := 0.5;
          nMarginTop := 0.5;
        end;
        }
      //seleccionamos el printer por defecto,
      //asi salen los reportes tal cual queremos
      //desde cualquier maquina con cualquier impresora
      RpDev.SelectPrinter('microsoft xps document writer', False );
      DireccionMisDocumentos:=GetMyDocuments;
      if Not (DirectoryExists(DireccionMisDocumentos+'\Informes Luminatti\Nomina')) then
        CreateDir(DireccionMisDocumentos+'\Informes Luminatti\Nomina');
      //Label4.Caption:= 'Generando Reporte...';
      RvSystem1.DefaultDest := rdFile;
      RvSystem1.DoNativeOutput := false;
      RvSystem1.RenderObject := RvRenderPDF1;
      RvSystem1.OutputFileName := DireccionMisDocumentos+'\Informes Luminatti\Nomina\['+NOMREPMes.Text+' '+FechaCorte+']Reporte de Nómina.pdf';
      RvSystem1.SystemSetups := RvSystem1.SystemSetups - [ssAllowSetup];
      //ZConnection1.Connected:=False;
      RvSystem1.Execute;
      //Label4.Caption:= 'Reporte Generado!';
      ShellExecute(FormPrincipal.Handle,nil,PChar(DireccionMisDocumentos+'\Informes Luminatti\Nomina\['+NOMREPMes.Text+' '+FechaCorte+']Reporte de Nómina.pdf'),'','',SW_SHOWMAXIMIZED);
    end;
end;

[martini002]

Esto es en la version XE2

[Nikolas]

delphi

      ZQuery1.Open;
      ZQuery1.Close;

¿esto porque lo usas asi?

[martini002]

delphi

      ZQuery1.Open;
      ZQuery1.Close;

¿esto porque lo usas asi?

Tienes que abrir el Query para generar la consulta, luego lo cierras para cargas los campos, y pasarselos al dataview en el reporte.

De cualquier forma desactivandolo tampoco funciona

delphi

//ZQuery2.Open;
      //ZQuery2.Close;
 
      {
      SetLength(MyFields, ZQuery2.FieldDefs.Count);
      //Add one by one the fields to make them accesible.
      for i:=0 to ZQuery2.FieldDefs.Count - 1 do
        MyFields[i] := ZQuery2.FieldDefs[i].CreateField(ZQuery2);
      //Create all Calculated Fields as you need
      Temf := TStringField.Create(nil);
      Temf.FieldKind := fkCalculated;
      //Temf.FieldName := 'NewCalcField';
      }

[Delphius]

Desconozco como es que funciona Rave pero me extraña que digas que se necesita abrir e inmediatamente cerrar el dataset que alimenta al reporteador. Obviamente si lo cierras pierdes los datos y obtendrás un informe en blanco.

También me extraña que hagas un Open sobre rvProject1 en varias oportunidades. ¿Porqué?

Saludos,

[martini002]

Tienes razon, eso estaba demas alli, de echo lo habia cambiado antes pero no lo habia actualizado aqui,
gracias por la correccion.

[martini002]

He probado hacer una aplicacion desde 0 solo para generar un simple reporte, de igual forma me lo muestra en blanco...

Sera la version xe2?

Realmente me parece extraño, pues la ultima aplicacion completa que hice, fue usando D2010,
pruebo compilando esa aplicacion en XE2 y funciona bien, muestra el reporte correctamente.

Les dejo una captura con las propiedades de cada componente para la generacion del reporte,
aunque la he revisado inumerable veces, realmente no se si es que me estoy saltando algo.

Tengo dos dias trancado con esto, intentare bajar a la version 2010 y hacer pruebas.

[martini002]

El error estaba a simple vista de todos

No es:

RvSystem1.Execute;

Es:
RvProject1.Execute;

No se como puedo ser tan ciego! Dos dias en este rollo...

[egostar]

El error estaba a simple vista de todos

No es:

RvSystem1.Execute;

Es:
RvProject1.Execute;

No se como puedo ser tan ciego! Dos dias en este rollo...

Suele suceder, es normal que teniendo las respuestas en las narices no se da uno cuenta

Saludos

[Fenareth]

El error estaba a simple vista de todos

No es:

RvSystem1.Execute;

Es:
RvProject1.Execute;

No se como puedo ser tan ciego! Dos dias en este rollo...

Suele suceder, es normal que teniendo las respuestas en las narices no se da uno cuenta

Saludos

De hecho por alguna extraña razón éstos errores son los más complicados de detectar 



Qué bueno que lo has visto y corregido amigo

Saludox !

[martini002]

Gracias