Saving as Pdf using bullzip pdf creator.

imclever1205

Hi All,

I have to save a report as a PDf using Bullzip creator but I am having an error,it says
"The operating system cannot find the path I specified,but still the pdf is saved correctly at the location.
So i tried to solve it by adding this code,using bullzip pdfutil,
"bz.WaitForFile(FileName, 60000);" but now I get an error message that the automation variable has to be instantiated. Can anyone please help me out?
Here is the code I wrote:



PaySetUp.GET;
PostedPayHdr.RESET;
PostedPayHdr.SETRANGE(PostedPayHdr."Pay Code",PayCodeGlobal);
IF PostedPayHdr.FINDSET THEN BEGIN
REPEAT

IF ISCLEAR(BullZipPDF) THEN
CREATE(BullZipPDF);
BullZipPDF.Init;
BullZipPDF.LoadSettings;
RunOnceFile := BullZipPDF.GetSettingsFileName(FALSE);
FileDirectory := PaySetUp."Intermediate path to save PDF";
FileName := PostedPayHdr."Pay Code" + '-' + PostedPayHdr."Employee No."+'.pdf';
BullZipPDF.SetValue('Showsettings', 'never');
BullZipPDF.SetValue('ShowPDF', 'no');
BullZipPDF.SetValue('ShowProgress', 'no');
BullZipPDF.SetValue('ShowProgressFinished', 'no');
BullZipPDF.SetValue('SuppressErrors', 'yes');
BullZipPDF.SetValue('ConfirmOverwrite', 'no');
BullZipPDF.SetValue('Output',FileDirectory +FileName );
BullZipPDF.WriteSettings(TRUE);

PaySlipRep.GetRepFilters(PostedPayHdr."Pay Code",PostedPayHdr."Employee No.");
PaySlipRep.USEREQUESTFORM(FALSE);
PaySlipRep.RUN;
//Wait for the status file to appear. This means that the print has finished
// bz.DefaultPrinterName('BullZipPDF');
bz.WaitForFile(FileName, 60000);

PostedPayHdr."PDF File".IMPORT(FileDirectory+FileName );
PostedPayHdr.MODIFY;


PaySlipStaging.RESET;
IF PaySlipStaging.FINDLAST THEN
EntryNoVar := PaySlipStaging.EntryNo + 1
ELSE
EntryNoVar := 1;

PaySlipStaging.INIT;
PaySlipStaging.EntryNo := EntryNoVar ;
PaySlipStaging.EmployeeNo := PostedPayHdr."Employee No.";
PaySlipStaging.DocumentBinary := PostedPayHdr."PDF File";
PaySlipStaging.FileName := PostedPayHdr."Pay Code" + '-' + PostedPayHdr."Employee No.";
PaySlipStaging.MimeType := '.pdf';
PaySlipStaging.StartDate := PostedPayHdr."Starting Date";
PaySlipStaging.EndDate := PostedPayHdr."End Date";
PaySlipStaging.EmployeeObjectID += 1;
PaySlipStaging.Imported := 0;
PaySlipStaging.NotImportedReason := '';
PaySlipStaging.DateAdded := TODAY;
PaySlipStaging."Pay Code":=PostedPayHdr."Pay Code";
PaySlipStaging.INSERT;

ERASE(FileDirectory +FileName);

UNTIL PostedPayHdr.NEXT =0;
END;
PayPerLines.RESET;
PayPerLines.SETRANGE(PayPerLines."Pay Code",PayCodeGlobal);
PayPerLines.MODIFYALL(PayPerLines."Payslip Generated",TRUE);

mohana_cse06

What is the datatype of BZ?
Did you try by replacing bz with BullZipPDF?

imclever1205

Name DataType Length Subtype
bz Automation 'Bullzip - PDF Writer Automation'.ComPdfUtil

This is how I declared it and I even tried to replace bz by BullZipPDF.

mohana_cse06

Regarding Initialization error, you have to initialize bz variable like

IF ISCLEAR(bz) THEN
  CREATE(bz);

imclever1205

I tried the code you suggested,it saves the pdf fine but still it gives the the first error message again saying that cannot find the specified path. ](*,)

Luc_VanDyck

Please read this thread How to save Navision Reports as PDF. On page 6 you find the BullZip code. Blog entry: http://mibuso.com/blogs/ara3n/2008/08/0 ... ts-to-pdf/

He uses this code to check if the file exists:

TimeOut := 0;
WHILE EXISTS(RunOnceFile) AND (TimeOut < 10) DO BEGIN
  SLEEP(1000);
  TimeOut := TimeOut + 1;
END;