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