versão bd Oracle: 9.2.0.7.0 64 bits
versão forms : 9.0.2.9.0 32 bits
PROCEDURE REPORT_WEB IS
report_id Report_Object;
report_job_id VARCHAR2(200);
rep_status VARCHAR2(200);
vcfile VARCHAR2(255);
BEGIN
VCFILE := 'XXX.pdf';
report_id := Find_Report_Object('XXX');
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_EXECUTION_MODE,BATCH);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESTYPE,Screen);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESFORMAT,'pdf');
set_report_object_property(report_id,REPORT_DESNAME,vcfile);
set_report_object_property(report_id,REPORT_SERVER,'Rep60verdi');
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_COMM_MODE,SYNCHRONOUS);
set_report_object_property(report_id,REPORT_OTHER,'P_CODEMP' || TO_CHAR(:B1.CODEMP) ||
' P_CODFUN' || TO_CHAR(:B1.CODFUN) ||
' P_SEQDEP' || TO_CHAR(:B1.SEQDEP) ||
' P_CODEVE' || TO_CHAR(:B1.F_CODEVE)||
' PARAMFORM=no');
report_job_id := RUN_REPORT_OBJECT(report_id);
rep_status := REPORT_OBJECT_STATUS(report_job_id);
WHILE rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED') LOOP
rep_status := REPORT_OBJECT_STATUS(report_job_id);
END LOOP;
IF rep_status='FINISHED' THEN
web.SHow_document('http://9107-inf.lupocorp.com:8888/webcache/'||vcfile,'_blank');
ELSE
message ('Ocorreu o erro '|| rep_status);
END IF;
END;