اريد ان اعرف عن

 DECLARE  

   pl_id   ParamList;  

   pl_name VARCHAR2(10) := 'PRINT_PL';  

 BEGIN  

   pl_id := Get_Parameter_List(pl_name);  

   IF Id_Null(pl_id) THEN  

     pl_id := Create_Parameter_List(pl_name);  

     IF Id_Null(pl_id) THEN  

        Message('Error creating parameter list '||pl_name);  

       RAISE Form_Trigger_Failure;  

     END IF; 

  END IF;

  



IF :R1 = 1 THEN

-- يعرض التقرير على الشاشة

Add_Parameter(pl_id,'DESTYPE',TEXT_PARAMETER,'SCREEN');

ELSE

-- يطبع التقرير على الطابعة

Add_Parameter(pl_id,'DESTYPE',TEXT_PARAMETER,'PRINTER');

END IF;

  

-- يمنع ظهور البرميتر فورم

Add_Parameter(pl_id,'PARAMFORM',TEXT_PARAMETER,'NO');



--البرميتر الل بتستخدمها في الريبورت

Add_Parameter(pl_id,'aa',TEXT_PARAMETER,:aa);

Add_Parameter(pl_id,'from_',TEXT_PARAMETER,:T1);

Add_Parameter(pl_id,'to_',TEXT_PARAMETER,:T2);

Add_Parameter(pl_id,'dept',TEXT_PARAMETER,:dept_n);



Run_Product(REPORTS, 'S:Production2tasktask_rep_3.REP', SYNCHRONOUS, RUNTIME,FILESYSTEM, pl_id, NULL);  



DESTROY_Parameter_List(pl_name);  



END;