Skip to Main Content

Oracle Forms

Announcement

For appeals, questions and feedback about Oracle Forums, please email oracle-forums-moderators_us@oracle.com. Please ask technical questions in the appropriate category. Thank you!

Forms 11g calling for a report with four parameters

1010331Feb 27 2014 — edited May 30 2014

Hi,

   I am trying to call report from form 11g, I am having four parameter in form and report and a button contain test_report procedure name. If I click the button It will ask to enter parameters after entering parameter report is coming but the data is not comming. Where I did mistake please see the code

PROCEDURE TEST_REPORT IS

repid REPORT_OBJECT;

v_rep VARCHAR2(100);

rep_status VARCHAR2(20);

BEGIN

repid := find_report_object('GLM0003E');

--add_parameter(list_id,'start_acct',TEXT_PARAMETER,to_char(:data.from_acct));

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'); -- PDF, HTMLCSS ...

SET_REPORT_OBJECT_PROPERTY(repid,REPORT_SERVER,'RptSvr_Muqthadeer-LAP_asinst_2');

SET_REPORT_OBJECT_PROPERTY(repid,REPORT_OTHER,'paramform=no start_acct='||:data.from_acct);

SET_REPORT_OBJECT_PROPERTY(repid,REPORT_OTHER,'paramform=no end_acct='||:data.to_acct);

SET_REPORT_OBJECT_PROPERTY(repid,REPORT_OTHER,'paramform=no start_date='||:data.from_date);

SET_REPORT_OBJECT_PROPERTY(repid,REPORT_OTHER,'paramform=no end_date='||:data.to_date);

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://muqthadeer-lap:9002/reports/rwservlet/getjobid'||

substr(v_rep,instr(v_rep,'_',-1)+1)||'?'||'server=RptSvr_Muqthadeer-LAP_asinst_2','_blank');

/*the above code will help you to create in browser*/

ELSE

message('Error in report');

END IF;

END;

                                 Thank you.

  help will be really appreciated.

Comments
Locked Post
New comments cannot be posted to this locked post.
Post Details
Locked on Jun 27 2014
Added on Feb 27 2014
13 comments
7,569 views