DECLARE
        repid                                                 REPORT_OBJECT ;
        v_rep                                                 varchar2(100);
        rep_status                                 varchar2(20);
        PL                                  PARAMLIST ;

BEGIN
	if :empid is null and :date_from is null and :date_to is null then
		message('íÌÈ ÊÚÈÆÉ ÇÍÏ ÇáÍÞæá');
				message('íÌÈ ÊÚÈÆÉ ÇÍÏ ÇáÍÞæá');
raise form_trigger_failure;	
		end if; 
        repid := find_report_object('REPORT17');    
        pl:=get_parameter_list('paraformlist'); 
        if not id_null(pl) then
                destroy_parameter_list(pl);
                end if;

        -- Adjust form report obeject
        SET_REPORT_OBJECT_PROPERTY (repid,report_execution_mode,batch);
        SET_REPORT_OBJECT_PROPERTY (repid,report_comm_mode,synchronous);
        SET_REPORT_OBJECT_PROPERTY (repid,report_destype,cache);
        SET_REPORT_OBJECT_PROPERTY (repid,report_desformat,'htmlcss'); 
        SET_REPORT_OBJECT_PROPERTY (repid,report_server,'hr_rep_serv');   
    pl:=create_parameter_list('paraformlist');
        add_parameter(pl,'paramform',text_parameter,'no');
 
add_parameter(pl,'P_EMPID',text_parameter,:empid);
add_parameter(pl,'P_date_from',text_parameter,:date_from);
add_parameter(pl,'P_date_to',text_parameter,:date_to);
 
  SET_APPLICATION_PROPERTY(CURSOR_STYLE,'BUSY');
  ----
        v_rep := RUN_REPORT_OBJECT(repid,pl);
        rep_status := REPORT_OBJECT_STATUS(v_rep);
        WHILE rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED') LOOP
                rep_status := report_object_status(v_rep);
        END LOOP;
        IF rep_status = 'FINISHED' THEN
                /*Display report in the browser*/
                WEB.SHOW_DOCUMENT('http://dev_ora-pc:8889/reports/rwservlet/getjobid'|| substr(v_rep,instr(v_rep,'_',-1)+1)||'?'||'server=hr_rep_serv', '_blank');
        ELSE
                message(' Error when running report ');
                message(' Error when running report ');
        END IF;

  ----change cursor
  SET_APPLICATION_PROPERTY(CURSOR_STYLE,'DEFAULT');
  ----

END;