1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
repid := find_report_object('RP2RRO');
SET_REPORT_OBJECT_PROPERTY(repid, REPORT_EXECUTION_MODE, BATCH);
SET_REPORT_OBJECT_PROPERTY(repid, REPORT_COMM_MODE, SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(repid, REPORT_DESTYPE, FILE);
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESFORMAT,'pdf');
-- SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESFORMAT,'SPREADSHEET');
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_SERVER,'geplog');
SET_REPORT_OBJECT_PROPERTY (repid, REPORT_OTHER, 'ENVID="' || 'TEST' || '"');
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_FILENAME, rep);
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESNAME, nom_fic1);
v_rep := RUN_REPORT_OBJECT (repid, list);
rep_status := REPORT_OBJECT_STATUS(v_rep);
WHILE rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED')LOOP
rep_status := report_object_status(v_rep);
END LOOP;
if rep_status = 'FINISHED' then
null;
else
message('Error when running report.');
end if; |
Partager