Trigger

TITEL_FILESIZE_UPD

Beschreibung

Damit wird die Gesamtgrösse aller MMFileSize in einem Fach angepasst.

Definition

CREATE TRIGGER TITEL_FILESIZE_UPD FOR TITEL
ACTIVE AFTER UPDATE POSITION 2
AS
BEGIN
  IF ((OLD.TIMMFILESIZE <> NEW.TIMMFILESIZE) OR
      (OLD.TIFAID <> NEW.TIFAID) OR
      (OLD.TIFAID IS NULL) OR (NEW.TIFAID IS NULL)) THEN
  BEGIN
    IF ((OLD.TIFAID <> NEW.TIFAID) OR (OLD.TIFAID IS NULL) OR (NEW.TIFAID IS NULL)) THEN
    BEGIN
      IF (NEW.TIFAID IS NOT NULL) THEN
      BEGIN
        UPDATE FAECHER SET FATOTALSIZE = (FATOTALSIZE + NEW.TIMMFILESIZE)
        WHERE FAID = NEW.TIFAID;
      END
      IF (OLD.TIFAID IS NOT NULL) THEN
      BEGIN
        UPDATE FAECHER SET FATOTALSIZE = (FATOTALSIZE - OLD.TIMMFILESIZE)
        WHERE FAID = OLD.TIFAID;
      END
    END
    ELSE
    BEGIN
      UPDATE FAECHER SET FATOTALSIZE = (FATOTALSIZE + (NEW.TIMMFILESIZE - OLD.TIMMFILESIZE))
      WHERE FAID = NEW.TIFAID;
    END
  END
END