Advertisement
Guest User

Untitled

a guest
Feb 27th, 2017
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. CREATE OR REPLACE TRIGGER UPD_ORSASTATO_ANAG1
  2. AFTER INSERT OR UPDATE OF INIZIOATTIVITA,FINEATTIVITA,EMAIL,FAX,TELEFONO,CODICEFISCALE,CODFISCPARTIVA,RAGIONESOCIALE,CODICECAMERALE,IDNAZIONALITA
  3. ON DITTE
  4. FOR EACH ROW
  5. DECLARE
  6. xOrsaStato VARCHAR2(10);
  7.  
  8. BEGIN
  9.   IF (UPDATING AND  (NVL(:NEW.INIZIOATTIVITA,TO_DATE('01/01/1900', 'DD/MM/YYYY')) <> NVL(:OLD.INIZIOATTIVITA,TO_DATE('01/01/1900', 'DD/MM/YYYY'))
  10.       OR NVL(:NEW.FINEATTIVITA,TO_DATE('01/01/1900', 'DD/MM/YYYY')) <> NVL(:OLD.FINEATTIVITA,TO_DATE('01/01/1900', 'DD/MM/YYYY'))
  11.       OR NVL(:NEW.EMAIL,' ') <> NVL(:OLD.EMAIL,' ') OR NVL(:NEW.FAX,' ') <> NVL(:OLD.FAX,' ')
  12.       OR NVL(:NEW.TELEFONO,' ') <> NVL(:OLD.TELEFONO,' ') OR NVL(:NEW.CODICEFISCALE,' ') <> NVL(:OLD.CODICEFISCALE,' ')
  13.       OR NVL(:NEW.CODFISCPARTIVA,' ') <> NVL(:OLD.CODFISCPARTIVA,' ') OR NVL(:NEW.RAGIONESOCIALE,' ') <> NVL(:OLD.RAGIONESOCIALE,' ')
  14.       OR NVL(:NEW.CODICECAMERALE,' ') <> NVL(:OLD.CODICECAMERALE,' ') OR NVL(:NEW.IDNAZIONALITA,0) <> NVL(:OLD.IDNAZIONALITA,0))) OR INSERTING THEN
  15.           xOrsaStato := '-1';
  16.           SELECT NVL(OrsaStato, '0') INTO xOrsaStato FROM Anagrafiche WHERE idAnagrafiche = :NEW.idAnagrafica;
  17.           IF xOrsaStato = '1' THEN
  18.             UPDATE Anagrafiche SET OrsaStato = '2' WHERE idAnagrafiche = :NEW.idAnagrafica;
  19.           END IF;
  20.   END IF;
  21. END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement