Calling report on oracle 10g forms

Question

hi to all,
how can call oracle10g reports to oracle 10g forms? using a parameter..e.g: employee id.
Please i need a sample code...
note : report will not run on internet explorer.
thanks.
Edited by: baguhan on Jul 1, 2009 6:06 AM

Answer 1

Hai Baguhan,
Try this.
DECLARE
     RO_Report_ID REPORT_OBJECT;
     Str_Report_Server_Job VARCHAR2(100);
     Str_Job_ID VARCHAR2(100);
     Str_URL VARCHAR2(100);
     PL_ID PARAMLIST ;
BEGIN
     PL_ID := GET_PARAMETER_LIST('TEMPDATA');
     IF NOT ID_NULL(PL_ID) THEN
     DESTROY_PARAMETER_LIST(PL_ID);
     END IF;
     PL_ID := CREATE_PARAMETER_LIST('TEMPDATA');
     RO_Report_ID := FIND_REPORT_OBJECT('REPORT_OBJ');
     ADD_PARAMETER(PL_ID, 'EMP_ID', TEXT_PARAMETER, <value to EMPID parameter>);
--FOLLOWING PARAMETERS ARE MANDATORY PARAMETERS TO SET REPORT OBJECT
          SET_REPORT_OBJECT_PROPERTY(RO_Report_ID, REPORT_FILENAME, '<report_full_path>');
          SET_REPORT_OBJECT_PROPERTY(RO_Report_ID, REPORT_COMM_MODE, SYNCHRONOUS);
          SET_REPORT_OBJECT_PROPERTY(RO_Report_ID, REPORT_EXECUTION_MODE, BATCH);
          SET_REPORT_OBJECT_PROPERTY(RO_Report_ID, REPORT_DESTYPE, FILE);
          SET_REPORT_OBJECT_PROPERTY(RO_Report_ID, REPORT_DESFORMAT, 'PDF');
          SET_REPORT_OBJECT_PROPERTY(RO_Report_ID, REPORT_SERVER, <report_server_name>);
          Str_Report_Server_Job := RUN_REPORT_OBJECT(RO_Report_ID, PL_ID);
          Str_Job_ID := SUBSTR(Str_Report_Server_Job, LENGTH(<report_server_name>) + 2, LENGTH(Str_Report_Server_Job));
          Str_URL       := '/reports/rwservlet/getjobid' || Str_Job_ID || '?server=' || <report_server_name>;
          WEB.SHOW_DOCUMENT(Str_URL, '_SELF');
          DESTROY_PARAMETER_LIST(PL_ID);
  END IF;
END;And add a report object in the form. ( in the above code, its REPORT_OBJ ).
Regards,
Manu.
If this answer is helpful or correct, please mark it. Thanks.