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

انا اعمل على ال6i ماهي اسهل طريقة لإستدعاء الريبورت من الفورم بضغطة زر بدون برميتر 

وبارك الله فيكم

DECLARE  

 pl_id   ParamList;       

 pl_name VARCHAR2(10) := 'tempdata';

 it_id   Item ;         

 TEMP VARCHAR2(10);        

BEGIN





 Synchronize ; 

pl_id := Get_Parameter_List(pl_name); 

  IF Id_Null(pl_id) THEN 

   

     pl_id := Create_Parameter_List(pl_name);

         ADD_PARAMETER(PL_ID,'MAXIMIZE',TEXT_PARAMETER,'YES');

        ADD_PARAMETER(pl_id, 'paramform',  TEXT_PARAMETER, 'No');

        ---------------------------------------------------

        ADD_PARAMETER(pl_id, 'P_USERID',  TEXT_PARAMETER, :GLOBAL.USERID);

        ADD_PARAMETER(pl_id, 'P_ITEM_NO',  TEXT_PARAMETER, :ITEM_NO);

        Run_Product(REPORTS, 'yr_report_name' , Asynchronous, RUNTIME, FILESYSTEM,pl_id, NULL);





  END IF; 

    Destroy_Parameter_List(pl_id); 





END;