WHEN-BUTTON-PRESSED

DECLARE 
  	   pl_id   ParamList;  
  	   pl_name VARCHAR2(50) := 'tempdata'; 
  BEGIN 
      pl_id := Get_Parameter_List(pl_name); 
  	  IF NOT Id_Null(pl_id) THEN 
  	  Destroy_Parameter_List( pl_id ); 
  	  END IF;   	
  	  pl_id := Create_Parameter_List(pl_name);  	   
   	  Add_Parameter(pl_id, 'GrnFromDate', TEXT_PARAMETER, :Grn_header.Pk_GrnF_Date);
   	  Add_Parameter(pl_id, 'GrnToDate', TEXT_PARAMETER, :Grn_header.Pk_GrnTo_Date);
   	  Add_Parameter(pl_id, 'Destype', TEXT_PARAMETER, 'Preview');
  	  Run_Product(REPORTS, '\\atmdomain\irfansoft\Store\Inspection\Reports\GRNote.Rep', SYNCHRONOUS, RUNTIME,FILESYSTEM,Pl_id,NULL); 
  END;