/* Formatted on 22.04.2010 13:08:49 (QP5 v5.136.908.31019) */
DECLARE
   v_delete   NUMBER;
BEGIN
   IF :BLK_EMP_MSTR.TXT_EMP_CODE IS NOT NULL
   THEN
      SET_ALERT_PROPERTY ('alt_delete',
                          alert_message_text,
                          'Do You Want to Delete?');
      v_delete := SHOW_ALERT ('alt_delete');

      IF v_delete = alert_button1
      THEN
         DELETE FROM TBL_EMP_MSTR
               WHERE EMP_CODE = :BLK_EMP_MSTR.TXT_EMP_CODE;

         COMMIT;
         DELETE_RECORD;
         COMMIT;
         CLEAR_BLOCK (no_validate);

         DELETE FROM TBL_EMP_DTLS
               WHERE EMP_CODE = :BLK_EMP_DTLS.TXT_DTLS_EMP_CODE;

         COMMIT;
         DELETE_RECORD;
         CLEAR_BLOCK ('');
         COMMIT;
      END IF;
   END IF;
END;
CLEAR_FORM;