IF :System.RECORD_STATUS ='NEW' THEN
insert_record;
Commit_Form();
END IF;

DECLARE 
    finalstr  VARCHAR2(5000); 
    dfinalstr VARCHAR2(5000);
    QT varchar2(10) :='''';
BEGIN 
	   --first_record;
      finalstr := 'WHERE 1=1'; 
      
      IF :EMP_CONTROL.DEPTNO IS NOT NULL THEN 
        finalstr := finalstr || 'AND DEPTNO =' || QT||:EMP_CONTROL.DEPTNO||QT;
      END IF; 

      Go_block('EMP'); 
 
      dfinalstr := Get_block_property('EMP', default_where); 

      Set_block_property('EMP', default_where, finalstr);
      
      Execute_query();
END; 

ON-ERROR
--------
IF ERROR_CODE=40102 THEN
 null;
ELSE
  MESSAGE(ERROR_TEXT);
  MESSAGE(ERROR_TEXT);
  RAISE FORM_TRIGGER_FAILURE;
END IF;


--if :system.record_status!='NEW' then
--create_record;
--end if;

-if error_type = 'FRM' and error_code = 40352 then
 --null;
--end if;

ON-MESSAGE
----------
IF :System.last_record = 'FALSE' THEN -->FRM-40352: Last record of query retrieved.
Next_Record; 
END IF;