| 12
 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