Rechnung per PDF aus Oracle

[H.Bothur]

Moin,

ich habe hier etwas wo ich noch nicht einmal einen Ansatz habe wie man das machen kann

Ich muss aus einer Warenwirtschaft Rechnungskopien als PDF ziehen. Dazu müsste ich ein Programm aufrufen, die entsprechende Rechnungsnummer als Parameter übergeben und dann mir dieses PDF generieren und auf Platte ablegen. Als SQL-Script habe ich das ja - aber wie mache ich das in Delphi ?

Delphi-Quellcode:

declare
     
              
 cursor c_rg is
  select r.kunden_id,
         r.rechnung_nr,
         r.rg_nr2,
         r.filiale,
         v.rg_anschrift
    from rechnungs_kopf r, v_rechnungen_kdrg v
   where r.kunden_id = &1
     and r.rechnung_nr = &2   
     and r.kunden_id = v.kunden_id
     and r.rechnung_nr = v.rechnung_nr;
     
          
  gonogo      varchar2(5) default 'go';
  rg         c_rg%rowtype;
  cnt         number;
  i           number default 0;
  j           number default 0;
  out_pfad    varchar2(50);
  pdf_datei   varchar2(500);
  ex_seq      number;
  nex_seq     number;
  rg_report   varchar2(25);
  
  
  out_ok      boolean;
  
 
  subtype t_vcmax  is varchar2(32767);
  befehl  t_vcmax;
  h_clob  clob;
  i_datei varchar2(100);
  ret_msg varchar2(4000);
  
  

begin


  open c_rg;
  fetch c_rg into rg;
   if (c_rg%found) then
    rg_report := get_report(rg.kunden_id, 'ERGK', rg.rg_anschrift);
    
    -- Pfadname fest eintrgen. Muss ein physikalisches Laufwerk auf dem Server sein.    
    out_pfad := 'd:\oout\'; --' --mit abschliessenden \
    
    pdf_datei := out_pfad||get_pdf_dateiname(rg.kunden_id, 'RGPDFEXPORT', rg.rechnung_nr);
     
    kl_report.write_rg2pdf(rg_report, 
                           pdf_datei, 
                           rg.kunden_id, 
                           rg.rechnung_nr, 
                           nvl(rg.filiale,1));
     
   end if;
  close c_rg;

end;
/

exit

Vielen Dank
Hans