PROCEDURE IMPRIMER IS
repid REPORT_OBJECT;
v_rep VARCHAR2(100);
rep_status varchar2(20);
BEGIN
repid := find_report_object('R_TARIFS');
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,CACHE);
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESFORMAT,'html');
v_rep := RUN_REPORT_OBJECT(repid);
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
message('Etat achévé');
Else
message('Erreur d''exécution de l''état.');
End if;
END;
Partager