Bulk Invoice Printing Oracle Forms 6i

 declare

 cnm varchar2(500);

 opn number;

 trn number;

  ACN VARCHAR2(200);

begin

for i in (select sal_ref from sgi_sal_00 where inv_num between :siv and :ein )

loop

Declare

Pm_ID ParamList;

Begin

  If id_null(pm_ID) then

  Pm_ID:=create_parameter_list('PM');

  Else

  Destroy_parameter_list(PM_ID);

  End if;

ADD_PARAMETER (pm_ID, 'PARAMFORM', TEXT_PARAMETER, 'NO');

ADD_PARAMETER (pm_ID, 'DESTYPE', TEXT_PARAMETER, 'FILE');

-- ADD_PARAMETER (pm_ID, 'DESFORMAT', TEXT_PARAMETER, 'PDF');

 

  Add_parameter(pm_ID,'refno',text_parameter,(I.sal_ref));

-- ADD_PARAMETER (pm_ID, 'DESNAME', TEXT_PARAMETER, 'E:\FIN\Ledger_T\'||acn||'.PDF'); 

Run_Product(REPORTS, 'sales_invoice.rep', SYNCHRONOUS, RUNTIME, FILESYSTEM, pm_ID, NULL);

  Destroy_parameter_list(PM_ID);

End;

end loop;

end;