السلام عليكم و رحمة الله و بركاته

هل من الممكن مساعدتي في معرفة الطريقة الكاملة التي اربط فيها ال button with report

مع العلم بأني استخدم اوراكل 10g

ارجو المساعدة بالتوضيح بالصور إن امكن

و شكرا على تعاونكم



مع احترامي

تقدر تعمل procedure وتستدعيه بالظغط على زرار الطباعه او من key_print

ودى مثال لاستدعاء التقرير

PROCEDURE MARR_PRINT(V_WHERE VARCHAR2) IS

 PAR_LIST  			PARAMLIST;
 C								INTEGER;
 report_id         Report_Object;
 ReportServerJob   VARCHAR2(100);
 rep_status        VARCHAR2(100); 
 job_id            VARCHAR2(100); 
 QT varchar2(1):=chr(39); -- is single quote 
 ALERT_ID2 ALERT:=FIND_ALERT('TEST'); -- TEST is an alert u can define to test the steps of running the report
 DUMMY_VAR2 NUMBER;
 v_rep_server_name varchar2(100);
Begin v_rep_server_name:='rep_server2_ora9ias1_home';     --report server

   par_list := get_parameter_list('paramformlist');
   IF NOT id_null(par_list) THEN
   	destroy_parameter_list(par_list);
   END IF;

   par_list:=create_parameter_list('paramformlist');

   add_parameter(par_list,'PARAMFORM',TEXT_PARAMETER,'NO');
   add_parameter(par_list,'desformat',TEXT_PARAMETER,'PDF'); -- or html or pdf
	--add_parameter('paramformlist','P_USER',TEXT_PARAMETER,QT||get_application_property(username)||QT);
------------------------------------		

 		  add_parameter('paramformlist','P_FROM_DATE',TEXT_PARAMETER,:CONT.FROM_DATE);
	  add_parameter('paramformlist','P_TO_DATE',TEXT_PARAMETER,:CONT.TO_DATE);
                       add_parameter('paramformlist','P_LOC',TEXT_PARAMETER,:CONT.CON_LOC);
	  add_parameter('paramformlist','P_WHERE',TEXT_PARAMETER,V_WHERE);
	    
	SET_APPLICATION_PROPERTY(CURSOR_STYLE,'BUSY');

   report_id := find_report_object('REP'); -- where REP is the name of the report object u defined in Report node in the navigator
  -- v_rep_server_name := 'mohdev';
   SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_EXECUTION_MODE,BATCH);
   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,v_rep_server_name);
   --SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_FILENAME,'ORDER_REQ.RDF');--where 'ORDER_REQ.RDF' is the name of the report 
   
   
        
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_FILENAME,'SEARCH_MARR.RDF'); 
  		
   ReportServerJob := run_report_object(report_id,par_list);

   job_id := substr(ReportServerJob,length(v_rep_server_name)+2,length(ReportServerJob));
 
   rep_status := REPORT_OBJECT_STATUS(ReportServerJob);

   IF rep_status = 'FINISHED' THEN
    
WEB.SHOW_DOCUMENT('http://'||v_rep_server_name||':7779/reports/rwservlet/getjobid'|| job_id ||'?server=rep_server2_ora9ias1_home','_blank');
    	     
--  WEB.SHOW_DOCUMENT('/reports/rwservlet/getjobid'||substr(v_rep,instr(v_rep,'_',-1)+1)||'?'||'server=rep_server2_ora9ias1_home','_blank');    
   ELSE
     
SET_ALERT_PROPERTY(ALERT_ID2,ALERT_MESSAGE_TEXT,'Report failed with error message  '||rep_status);
DUMMY_VAR2:=SHOW_ALERT(ALERT_ID2); 
			

      	
   END IF;
   
   SET_APPLICATION_PROPERTY(CURSOR_STYLE,'DEFAULT');		

END;

تم تعديل 28 مايو 200817 سنة بواسطة Amgad

السلام عليكم يا أخ سامح ممكن ان توضح لى هذا الكود و جزاك الله خيراً