|
|
|
|
|
|
|
|
| Re: test [message #296151 is a reply to message #294639] |
Thu, 24 January 2008 21:12   |
 |
sasipalarivattom
Messages: 121
Registered: June 2007
Location: Cochin ( INDIA )
|
Senior Member |
|
|
BEGIN
v_report_server := cmsGetCounter.db_get_repserver;
v_report_id := FIND_REPORT_OBJECT(p_rep_name);
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_COMM_MODE,SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESTYPE,cache);
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESFORMAT,'PDF');
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_SERVER,v_report_server);
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_OTHER,'p_start_date='||:param.date_from||' p_end_date='||:param.date_to);
vc_ReportServerJob := RUN_REPORT_OBJECT(v_report_id);
vjob_id := substr(vc_ReportServerJob,length(v_report_server)+2,length(vc_ReportServerJob));
vc_rep_status := REPORT_OBJECT_STATUS(vc_ReportServerJob);
IF vc_rep_status = 'FINISHED' THEN
WEB.SHOW_DOCUMENT ('/reports/rwservlet/getjobid'|| vjob_id||'?server='||v_report_server,'_blank');
ELSE
Alerts.stop_alert ('Report failed with error message '||vc_rep_status,choice);
END IF;
return (vc_rep_status);
END;
| Quote: | Still i am learing.. how to follow orafaq rules.. Smile. I would like to say that i adore you because u are really maintaining a discipline in boxes.
|
[Updated on: Thu, 24 January 2008 21:13] Report message to a moderator |
|
|
|
|
|
|
|
|
|
| Re: test [message #296953 is a reply to message #294612] |
Tue, 29 January 2008 11:09 |
varu123
Messages: 754
Registered: October 2007
|
Senior Member |
|
|
Thats a good test
BEGIN
V_REPORT_SERVER := CMSGETCOUNTER.DB_GET_REPSERVER;
V_REPORT_ID := FIND_REPORT_OBJECT(P_REP_NAME);
SET_REPORT_OBJECT_PROPERTY(V_REPORT_ID,REPORT_COMM_MODE,SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(V_REPORT_ID,REPORT_DESTYPE,CACHE);
SET_REPORT_OBJECT_PROPERTY(V_REPORT_ID,REPORT_DESFORMAT,'PDF');
SET_REPORT_OBJECT_PROPERTY(V_REPORT_ID,REPORT_SERVER,V_REPORT_SERVER);
SET_REPORT_OBJECT_PROPERTY(V_REPORT_ID,REPORT_OTHER,'p_start_date=' ||: PARAM.DATE_FROM
||' p_end_date=' ||: PARAM.DATE_TO);
VC_REPORTSERVERJOB := RUN_REPORT_OBJECT(V_REPORT_ID);
VJOB_ID := SUBSTR(VC_REPORTSERVERJOB,LENGTH(V_REPORT_SERVER) + 2,
LENGTH(VC_REPORTSERVERJOB));
VC_REP_STATUS := REPORT_OBJECT_STATUS(VC_REPORTSERVERJOB);
IF VC_REP_STATUS = 'FINISHED' THEN
WEB.SHOW_DOCUMENT('/reports/rwservlet/getjobid'
||VJOB_ID
||'?server='
||V_REPORT_SERVER,'_blank');
ELSE
ALERTS.STOP_ALERT('Report failed with error message '
||VC_REP_STATUS,CHOICE);
END IF;
RETURN (VC_REP_STATUS);
END;
|
|
|
|
] 
Blog
Search
Help
Members
Register
Login
Home
. I would like to say that i adore you because u are really maintaining a discipline in boxes.