/******************************************************************************/ /******************************************************************************/ /* */ /* Trigger: DTULTATUTPAR_TIPOAJRECEBER */ /* Tabela : TIPOAJRECEBER */ /* */ /* Criação: */ /* 26/02/2006 - ARNALDO COUTINHO BRITO JÚNIOR */ /* */ /******************************************************************************/ CREATE OR REPLACE TRIGGER DTULTATUTPAR_TIPOAJRECEBER BEFORE INSERT OR UPDATE OR DELETE ON TIPOAJRECEBER FOR EACH ROW BEGIN IF INSERTING THEN :NEW.DTULTATUTPAR := SYSDATE; END IF; IF UPDATING THEN IF (NVL(:OLD.CDAJUCTREC,0 ) <> NVL(:NEW.CDAJUCTREC,0 )) OR (NVL(:OLD.CDHISTPADR,0 ) <> NVL(:NEW.CDHISTPADR,0 )) OR (NVL(:OLD.CDCONTCTBL,0 ) <> NVL(:NEW.CDCONTCTBL,0 )) OR (NVL(:OLD.DSAJUCTREC,0 ) <> NVL(:NEW.DSAJUCTREC,0 )) OR (NVL(:OLD.IDAJUCTREC,0 ) <> NVL(:NEW.IDAJUCTREC,0 )) OR (NVL(:OLD.IDCTBAJCTREC,0) <> NVL(:NEW.IDCTBAJCTREC,0)) THEN :NEW.DTULTATUTPAR := SYSDATE; END IF; END IF; IF DELETING THEN INSERT INTO DELETECACHE (NMTABLECACHE, CDFILICACHE, DSKEYCACHE, DTULTATUCACH) VALUES ('TIPOAJRECEBER', '', 'CDAJUCTREC='||:OLD.CDAJUCTREC||'; CDHISTPADR='||:OLD.CDHISTPADR||'; CDCONTCTBL='||:OLD.CDCONTCTBL||';', SYSDATE); END IF; END; / ALTER TABLE TIPOAJRECEBER MODIFY DTULTATUTPAR DEFAULT SYSDATE /