| Problem in Report Execution [message #90339] |
Mon, 31 January 2005 19:37 |
aditya
Messages: 36
Registered: March 2001
|
Member |
|
|
hi all,
i am using the report and forms 9i in the form on a button i am calling the report that is built in the reports 9i using a parameter but the report is shown blank. i am using the following code on the button
declare
repid REPORT_OBJECT;
v_rep VARCHAR2(100);
rep_status VARCHAR2(20);
Pl_id paramlist;
BEGIN
if :CostCenMast.LstDno is not null then
if id_null(pl_id) then
pl_id:=create_parameter_list('DNoLIST');
add_parameter(pl_id,'PDEPTNO',Text_parameter,:CostCenMast.LstDno);
repid := find_report_object('REPORT54');
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');
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_SERVER,'repserver90');
v_rep := RUN_REPORT_OBJECT(repid,pl_id);
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
WEB.SHOW_DOCUMENT('http://oralinux2:8888/reports/rwservlet/getjobid'||
substr(v_rep,instr(v_rep,'_',-1)+1)||'?'||'server=repserver90','_blank');
ELSE
Message('Error when running report');
Message(' ',No_Acknowledge);
Clear_Message;
END IF;
END IF;
Else
Message('Select the Cost Center Number');
Message(' ',No_Acknowledge);
Clear_Message;
END IF;
destroy_parameter_list(pl_id);
END;
what the mistake in the code..
thanks for the help..
aditya
|
|
|
|
] 
Blog
Search
Help
Members
Register
Login
Home
