BEGIN Declare
wDummy varchar2(10);
Begin
SELECT cd_pays into :wDummy
from tpays where cd_pays = :Old.CD__PAYS;
Exception
When OTHERS Then return;
End;
Begin
INSERT INTO TAB (TAB_ID, NUM_AFF, ADR_MAIL_AR,)
VALUES (SEQ_TAB.nextval,:New.NUM_AFF,:New.ADR_MAIL_AR); Exception
When OTHERS Then null; -- ou enregistre le message d'erreur dans table de log
End;
END;
|