Empty Report Export

Comments

• edo

  July 2015 edited 5:38AM

  Error comes from frxExportXLSX.pas file:
  

  { First default border }
    style := FMatrix.GetStyleById(0);
  
• gordk St.Catherines On. Canada.

  July 2015 edited 5:38AM

  i assume that you are running and exporting the report from code correct?
  if so then show the code where you are loading and running the report and
  setting up the export filter.
• edo

  July 2015 edited 5:38AM

  fds_Report := TfrxDBDataset.Create(nil);
  fr_Report.EngineOptions.PrintIfEmpty := False;
  
  fds_Report.UserName := 'Report Data';
  fr_Report := TfrxReport.Create(nil);
  fr_Report.EngineOptions.DestroyForms := False;
  fr_Report.EngineOptions.SilentMode := True;
  fr_Report.EngineOptions.UseGlobalDataSetList := False;
  fr_Report.EnabledDataSets.Clear;
  
  fds_Report.DataSet := O_Report;
  //fr_Report.DataSets.Add(fds_Report);
  fr_Report.EnabledDataSets.Add(fds_Report);
  
  fr_Report.LoadFromStream(myStream2);
  fe_Excel := TfrxXLSXExport.Create(nil);
  l_file_name := l_file_name + '.xlsx';
  fe_Excel.EmptyLines := False;
  fe_Excel.ExportPageBreaks := False;
  
  fe_Excel.ShowDialog := False;
  fe_Excel.ShowProgress := False;
  
  if fr_Report.PrepareReport then
  begin
  	fe_Excel.FileName:= l_file_name;
  	if fr_Report.Export(fe_Excel) then
  	begin
  		Log_P(slInformation, 'File: "'+l_file_name+'" created succesfully.' + fr_Report.Errors.Text, L_App_Run_Nr, I_Log_Sort_Nr, I_Task_ID, I_Thread_Id);
  	end
  	else
  	begin
  		l_file_name := '';
  		Log_P(slError, 'File not created. ' + fr_Report.Errors.Text, L_App_Run_Nr, I_Log_Sort_Nr, I_Task_ID, I_Thread_Id);
  	end;
  end;
  
• gordk St.Catherines On. Canada.

  July 2015 edited 5:38AM

  I would check your datasets record count befor calling before calling prepare report and exporting
• edo

  July 2015 edited 5:38AM

  Dataset(s) are also dynamic and i can't know which dataset should be check (there may be more than one dataset). It's related with design.
• gpi

  July 2015 edited 5:38AM

  Check TfrxReport.PreviewPages.Count after preparing of report
• edo

  July 2015 edited 5:38AM

  Yes it works. Thanks