--Heiko Hommes
--eine Programmunit in Forms
--diese Funktion macht ein commit 
--und verhindert dabei die lästigen popups

PROCEDURE commit_io IS
  oldmsg VARCHAR2(2);  
BEGIN
  oldmsg := :System.Message_Level;
  :System.Message_Level := '10';
  commit;
  :System.Message_Level := oldmsg;
EXCEPTION
    WHEN Form_Trigger_Failure THEN
      :System.Message_Level := oldmsg;
END commit_io;