1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
| PROCEDURE run_report(p_host VARCHAR2, --prom3
p_port VARCHAR2, --8889
p_report VARCHAR2, --EMP.jsp
--p_connect VARCHAR2, --'hr/hr@formatio'
p_report_server VARCHAR2 --'rep_prom3'
) IS
vrepid report_object;
vrep VARCHAR2 (100);
v_show_document VARCHAR2 (2000) := '/reports/rwservlet?';
v_connect VARCHAR2 (200) := 'userid='||GET_APPLICATION_PROPERTY(username)
|| '/'
|| GET_APPLICATION_PROPERTY(PASSWORD)
|| '@'
|| GET_APPLICATION_PROPERTY(connect_string);
v_report_server VARCHAR2 (30) := p_report_server;
BEGIN
IF GET_APPLICATION_PROPERTY (user_interface) = 'WEB' THEN
v_show_document := v_show_document
|| v_connect
-- Report server
|| '&server='
|| v_report_server
-- Report name
|| '&report='||p_report
-- Reports parameters
|| '&destype=CACHE'
|| '&desformat=pdf'
|| '¶mform=no' -- Change this to NO if you don't want to show parameter form
|| '&poste='||:toolbar.pc
|| '&specimen='||:global.specimen
|| '&statut='||:global.statut
|| '&code='||:global.code --:ALJ_VB_REPORT.ALJ_OP_CODE
;
web.show_document (v_show_document);
ELSE
vrepid := FIND_REPORT_OBJECT (p_report);
vrep := RUN_REPORT_OBJECT (vrepid);
web.show_document
( p_host||':'||p_port||'/reports/rwservlet/getjobid'
|| SUBSTR (vrep, INSTR (vrep, '_', -1) + 1)
|| '?'
|| 'server='||p_report_server,
'_blank'
);
END IF;
END; |
Partager