TRIGGER UPD_ORSASTATO_ANAG1
AFTER INSERT OR UPDATE OF INIZIOATTIVITA,FINEATTIVITA,EMAIL,FAX,TELEFONO,CODICEFISCALE,CODFISCPARTIVA,RAGIONESOCIALE,CODICECAMERALE,IDNAZIONALITA
ON DITTE
FOR EACH ROW
DECLARE
xIdAnagraficaSede NUMBER(22);
xOrsaStato VARCHAR2(10);

BEGIN
  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'))
      OR NVL(:NEW.FINEATTIVITA,TO_DATE('01/01/1900', 'DD/MM/YYYY')) <> NVL(:OLD.FINEATTIVITA,TO_DATE('01/01/1900', 'DD/MM/YYYY'))
      OR NVL(:NEW.EMAIL,' ') <> NVL(:OLD.EMAIL,' ') OR NVL(:NEW.FAX,' ') <> NVL(:OLD.FAX,' ')
      OR NVL(:NEW.TELEFONO,' ') <> NVL(:OLD.TELEFONO,' ') OR NVL(:NEW.CODICEFISCALE,' ') <> NVL(:OLD.CODICEFISCALE,' ')
      OR NVL(:NEW.CODFISCPARTIVA,' ') <> NVL(:OLD.CODFISCPARTIVA,' ') OR NVL(:NEW.RAGIONESOCIALE,' ') <> NVL(:OLD.RAGIONESOCIALE,' ')
      OR NVL(:NEW.CODICECAMERALE,' ') <> NVL(:OLD.CODICECAMERALE,' ') OR NVL(:NEW.IDNAZIONALITA,0) <> NVL(:OLD.IDNAZIONALITA,0))) OR INSERTING THEN
          BEGIN
            SELECT NVL(:NEW.Riferimento, NVL(A.Riferimento, A.idAnagrafiche)) INTO xIdAnagraficaSede FROM Anagrafiche A WHERE A.idAnagrafiche = :NEW.idAnagrafica;
          EXCEPTION
            WHEN NO_DATA_FOUND THEN xIdAnagraficaSede := 0;
          END;

          xOrsaStato := '-1';
          SELECT NVL(OrsaStato, '0') INTO xOrsaStato FROM Anagrafiche WHERE idAnagrafiche = xIdAnagraficaSede;
          IF xOrsaStato = '1' THEN
            UPDATE Anagrafiche SET OrsaStato = '2' WHERE idAnagrafiche = xIdAnagraficaSede;
          END IF;
  END IF;
END;