How 2 Cre8 Parameter Form 4 Report Running?

Question

Hi All!
I don't know how 2 cre8 parameter form in form developer 10g but i tried this please check it out and guide me.
1)i have create a simple tabular report "rpt_dept.rdf" in report developer 10g.
The query is
SELECT DEPTNO,DNAME,LOC FROM DEPT
WHERE DEPTNO= :P_DEPTNO
2)Then i create a form in form developer 10g frm_dept
in this form i have create a DEPT data block in which i have only take a one field "deptno" and
one push button
3)in Reports node i have create reports object "Report10" using 'Use Existing Report File" option, by clicking the browse and navigate to "rpt_dept.rdf"
"Report10" properties
name=report10
File name=D:\GTMS_FILES\GTMS_APPLICATIONS\Reports\rpt_dept.rdf
execution mode=batch
communication mode= synchronous
data source data block=DEPT
report destinaton type=file
4) Then in when_button_pressed Trigger in put this code
Declare
     report_id Report_Object;
     ReportServerJob VARCHAR2(100);
BEGIN
     report_id:= find_report_object('REPORT10');
     SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_COMM_MODE,SYNCHRONOUS);
     SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESTYPE,CACHE);
     SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_SERVER,'rep_uoas');
     SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_OTHER,'P_DEPTNO='||:Dept.Deptno||' paramform=no');
     ReportServerJob:=run_report_object(report_id);
END;
Now when i run this form and enter the deptno 10,20 or 30 and press the button it gives nothing and no report is shown
Note! "rep_uoas" is report server..
Please guide..
Please give me solution what mistake i have made
Thanks
Rana

Answer 1

You have to modify your code - machine_name is the name of your computer - this will run on your PC:
Declare
report_id Report_Object;
ReportServerJob VARCHAR2(100);
rep_status VARCHAR2(200);
L_REPORT_SERVER_PATH VARCHAR2(30):='http://machine_name:8889/reports';
L_REPORT_SERVER VARCHAR2(15):='rep_uoas';
BEGIN
report_id:= find_report_object('REPORT10');
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_COMM_MODE,SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESTYPE,CACHE);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_SERVER,L_REPORT_SERVER);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_OTHER,'P_DEPTNO='||:Dept.Deptno||' paramform=no');
ReportServerJob:=run_report_object(report_id);
rep_status:=REPORT_OBJECT_STATUS(ReportServerJob);
WHILE rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED')
LOOP
rep_status := report_object_status(ReportServerJob);
END LOOP;
IF rep_status='FINISHED' THEN
WEB.SHOW_DOCUMENT(L_REPORT_SERVER_PATH||'/rwservlet/getjobid'||substr(ReportServerJob,instr(ReportServerJob,'_',-1)+1)||'?'||'server='||L_REPORT_SERVER,'_blank');
ELSE
message('Error');
END IF;
END;
Before first running the report you have to start report server on your PC.