1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| CREATE OR REPLACE TRIGGER TEST_ADMIN.MINFORIBTRIGGER
BEFORE INSERT OR DELETE OR UPDATE ON TEST_ADMIN.MINFORIB
REFERENCING OLD AS OLD NEW AS NEW
FOR EACH ROW
WHEN (1 = 1)
DECLARE
sribID integer;
BEGIN
sribID := :new.SRIB_NO - :old.SRIB_NO;
-- Insertion dans la table de suivi
INSERT INTO SUIVIRIB (SRIB_NO, SRIB_NOPK, SRIB_BNQ_ETAB, SRIB_BNQ_GUIC, SRIB_IBQ_CODE, SRIB_TITUL, SRIB_NOCPTE, SRIB_CLE, SRIB_TYPE, SRIB_MAJ_ID, SRIB_MAJ_DT, SRIB_DAT_INCID)
VALUES(sribID, :new.RIB_NO_PK, :new.RIB_BNQ_ETAB, :new.RIB_BNQ_GUIC, :new.RIB_IBQ_CODE, :new.RIB_TITUL,:new.RIB_NOCPTE, :new.RIB_CLE, :new.RIB_TYPE, :new.MAJ_ID, :new.MAJ_DT, :new.RIB_DAT_INCID )
EXCEPTION
ROLLBACK TRANSACTION
END; |
Partager