Question

我对Rave Reports 10有一些经验我过去做了很多报道，但现在我遇到了一个问题生成它。

清单：在主要表格上 -RvProject -RvSystem -RvDataSet -RvRenderPDF

所有这些都设置了

在Rave设计师我可以成功生成报告但是当我使用代码时，它会生成一个空白页面。

你能检查我的代码并告诉我，如果我遗失了什么吗？我两天前就陷入了这种陡峭状态，无法解决这个问题。

我知道有很多变量没有用，但我尝试了一些事情。

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;
      //ZQuery2.Fields.Clear;
      ZQuery2.Close;
      ZQuery2.SQL.Clear;
      ZQuery2.SQL.Add('Select');
      ZQuery2.SQL.Add('NumeroEmpleado,');
      ZQuery2.SQL.Add('Cargo,');
      ZQuery2.SQL.Add('Nombre,');
      ZQuery2.SQL.Add('Apellido,');
      ZQuery2.SQL.Add('Format(Cedula,0),');
      ZQuery2.SQL.Add('Ingreso,');
      ZQuery2.SQL.Add('Format(SalarioMensual,2),');
      ZQuery2.SQL.Add('Format(SalarioDiario,2),');
      ZQuery2.SQL.Add('Format(CTDiario,2),');
      ZQuery2.SQL.Add('DiasTrabajados,');
      ZQuery2.SQL.Add('DiasLibres,');
      ZQuery2.SQL.Add('CT,');
      ZQuery2.SQL.Add('Ausencias,');
      ZQuery2.SQL.Add('Format(SSO,2),');
      ZQuery2.SQL.Add('Format(RPE,2),');
      ZQuery2.SQL.Add('Format(FAOV,2),');
      ZQuery2.SQL.Add('Format(TotalSueldo,2),');
      ZQuery2.SQL.Add('Format(TotalSanciones,2),');
      ZQuery2.SQL.Add('Format(TotalCT,2),');
      ZQuery2.SQL.Add('Format(TotalDiasLibres,2),');
      ZQuery2.SQL.Add('Format(TotalAusencias,2),');
      ZQuery2.SQL.Add('Format(TotalAsignaciones,2),');
      ZQuery2.SQL.Add('Format(TotalDeducciones,2),');
      ZQuery2.SQL.Add('Format(TotalCobrar,2)');
      ZQuery2.SQL.Add('From Constructor.ZRepNom');
      //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';
      }
      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;

Answer 1

我终于找到了错误，这是一个写作错误

错误是：RvSystem1.Execute;

正确的方法是：RvProject1.Execute;

解决了

Delphi Rave Report生成空白页面

1 个答案: