السلام عليكم .. انا عامل تقرير ليه اتنين parameter ... وقمت بانشااء شاشه بها  database type : no ..  text items 2 .   وقمت بعمل زرار لنداء التقرير بعد كتابة start_date and End_date 

للتقرير في ال text items ..  المشكله ان الكود بتاعي بينادي على parameter  واحد بس .. وانا محتاج كود ينادي على الاتنين . وده الكود بتاعي :

PROCEDURE call_report IS
BEGIN


DECLARE 
        v_rep_id                REPORT_OBJECT; 
        v_repjob                VARCHAR2(100); 
        v_job_id                VARCHAR2(100); 
        v_rep_status            VARCHAR2(100);   
        v_reportsrvr            VARCHAR2(50) := 'rep10g'; 
        v_runformat             vARCHAR2(50) := 'PDF';--HTML HTMLCSS PDF     


BEGIN 
--IF :Delivery_note.order_no IS NULL THEN 
   --RAISE FORM_TRIGGER_FAILURE; 
 --END IF; 


        v_rep_id := FIND_REPORT_OBJECT('JL_DATE'); 
        SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_COMM_MODE, SYNCHRONOUS); 
        SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_DESTYPE, CACHE); 
         
        --SET_REPORT_OBJECT_PROPERTY(V_rep_id, REPORT_DESTYPE, PRINTER); 
        --SET_REPORT_OBJECT_PROPERTY(v_rep_id,REPORT_DESNAME,'ID_CARD'); 
         
        SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_SERVER, v_reportsrvr); 
        SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_DESFORMAT, v_runformat);     
       
        SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_OTHER, 'P_1=' || :control.item28 || 'paramform=no'); 
       -- SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_OTHER, 'P_2=' || :control.item29 || 'paramform=no'); 
       
        
        SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_FILENAME, 'E:\reports\JL_Date.rdf'); 


        v_repjob := RUN_REPORT_OBJECT(v_rep_id); 
        v_job_id := SUBSTR(v_repjob, LENGTH(v_reportsrvr) + 2, LENGTH(v_repjob) ); 
        v_rep_status := REPORT_OBJECT_STATUS(v_repjob); 
         
        IF v_rep_status = 'FINISHED' THEN 
                WEB.SHOW_DOCUMENT('/reports/rwservlet/getjobid' || v_job_id ||'?server=' || v_reportsrvr || '', '_blank'); 
        ELSE 
                        message('Report failed with error message '); 


        END IF; 
  
     
 end;   
END;

تم تعديل 23 مايو 201312 سنة بواسطة Ahmad.Hasan

ده حــل الكود يــا شــبـاب

 

 

 

DECLARE 

        v_rep_id                REPORT_OBJECT; 

        v_repjob                VARCHAR2(100); 

        v_job_id                VARCHAR2(100); 

        v_rep_status            VARCHAR2(100);   

        v_reportsrvr            VARCHAR2(50) := 'rep10g'; 

        v_runformat             vARCHAR2(50) := 'PDF';--HTML HTMLCSS PDF     

 

 

pl_dept paramlist;

com_code varchar2(1);

begin

 

pl_dept := Get_Parameter_List('tmpdata');

    IF NOT Id_Null(pl_dept) THEN

     Destroy_Parameter_List( pl_dept );

    END IF;

 

pl_dept := Create_Parameter_List('tmpdata');

   Add_Parameter(pl_dept,'p_1',TEXT_PARAMETER ,:CONTROL.ITEM28);

   Add_Parameter(pl_dept,'P_2',TEXT_PARAMETER,:CONTROL.ITEM29);

 

--Add_Parameter(pl_dept,'P_G_USER',TEXT_PARAMETER,:G LOBAL.USR_CODE);

--Add_Parameter(pl_dept,'paramform',TEXT_PARAMETER,' NO');

--Add_Parameter(pl_dept,'ORIENTATION',TEXT_PARAMETER ,'LANDSCAPE');

 

v_rep_id := FIND_REPORT_OBJECT('JL_DATE'); 

        SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_COMM_MODE, SYNCHRONOUS); 

        SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_DESTYPE, CACHE); 

         

        --SET_REPORT_OBJECT_PROPERTY(V_rep_id, REPORT_DESTYPE, PRINTER); 

        --SET_REPORT_OBJECT_PROPERTY(v_rep_id,REPORT_DESNAME,'ID_CARD'); 

         

        SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_SERVER, v_reportsrvr); 

        SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_DESFORMAT, v_runformat);     

       

       --SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_OTHER, pl_id);  

         

        

        SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_FILENAME, 'E:\reports\JL_date'); 

 

        v_repjob := RUN_REPORT_OBJECT(v_rep_id,PL_DEPT); 

        v_job_id := SUBSTR(v_repjob, LENGTH(v_reportsrvr) + 2, LENGTH(v_repjob) ); 

        v_rep_status := REPORT_OBJECT_STATUS(v_repjob); 

 

         

        IF v_rep_status = 'FINISHED' THEN 

                WEB.SHOW_DOCUMENT('/reports/rwservlet/getjobid' || v_job_id ||'?server=' || v_reportsrvr || '', '_blank'); 

        ELSE 

                        message('Report failed with error message '); 

 

        END IF; 

  

 

 

 

END;