Oracle Forms Developer – Form Builder Reference, Volume 1

48
IF :System.Form_Status ’QUERY’ THEN
Message(’An error prevented your changes from being
committed.’);
Bell;
RAISE Form_trigger_Failure;
END IF;
END IF;
END;
Example 2
/*
** Built-in: COMMIT_FORM
** Example: Perform Form Builder database commit during commit
** processing. Decide whether to use this Built-in
** or a user exit based on a global flag setup at
** startup by the form, perhaps based on a
**
** trigger: On-Commit
*/
BEGIN
/*
** Check the global flag we set during form startup
*/
IF :Global.Using_Transactional_Triggers = ’TRUE’ THEN
User_Exit(’my_commit’);
/*
** Otherwise, do the right thing.
*/
ELSE
Commit_Form;
END IF;
END;