История изменения контрагентов : Супермаг Плюс (Супермаг 2000)

CREATE OR REPLACE TRIGGER smclientinfo_audt
   BEFORE INSERT OR UPDATE OR DELETE
   ON smclientinfo
   FOR EACH ROW
DECLARE
   tip     VARCHAR2 (6);
   suser   VARCHAR2 (30);
BEGIN
   IF     UPDATING
      AND (   :OLD.NAME != :NEW.NAME
           OR :OLD.accepted != :NEW.accepted
           OR :OLD.inn != :NEW.inn
          )
   THEN
      tip := 'UPDATE';

      SELECT surname
        INTO suser
        FROM smstaff
       WHERE serverlogin = USER;

      INSERT INTO smclientinfo_log
                  (smclientinfo_log.userh, smclientinfo_log.dateh,
                   smclientinfo_log.oper,
                   smclientinfo_log.hist
                  )
           VALUES (suser, SYSDATE,
                   tip,
                      'OLD:  '
                   || :OLD.ID
                   || ', '
                   || :OLD.NAME
                   || ', '
                   || :OLD.accepted
                   || ', '
                   || :OLD.inn
                  );

      INSERT INTO smclientinfo_log
                  (smclientinfo_log.userh, smclientinfo_log.dateh,
                   smclientinfo_log.oper,
                   smclientinfo_log.hist
                  )
           VALUES (suser, SYSDATE,
                   tip,
                      'NEW: '
                   || :NEW.ID
                   || ', '
                   || :NEW.NAME
                   || ', '
                   || :NEW.accepted
                   || ', '
                   || :NEW.inn
                  );
   ELSIF DELETING
   THEN
      tip := 'DELETE';

      SELECT surname
        INTO suser
        FROM smstaff
       WHERE serverlogin = USER;

      INSERT INTO smclientinfo_log
                  (smclientinfo_log.userh, smclientinfo_log.dateh,
                   smclientinfo_log.oper,
                   smclientinfo_log.hist
                  )
           VALUES (suser, SYSDATE,
                   tip,
                      'OLD:  '
                   || :OLD.ID
                   || ', '
                   || :OLD.NAME
                   || ', '
                   || :OLD.accepted
                   || ', '
                   || :OLD.inn
                  );
   ELSIF INSERTING
   THEN
      tip := 'INSERT';

      SELECT surname
        INTO suser
        FROM smstaff
       WHERE serverlogin = USER;

      INSERT INTO smclientinfo_log
                  (smclientinfo_log.userh, smclientinfo_log.dateh,
                   smclientinfo_log.oper,
                   smclientinfo_log.hist
                  )
           VALUES (suser, SYSDATE,
                   tip,
                      'NEW: '
                   || :NEW.ID
                   || ', '
                   || :NEW.NAME
                   || ', '
                   || :NEW.accepted
                   || ', '
                   || :NEW.inn
                  );
   END IF;
END smclientinfo_audt;
/