Trigger

UPD_DASTATUS

Beschreibung

Aktualisiert den DAYS Status beim Senderaster Editor.

Definition

CREATE TRIGGER UPD_DASTATUS FOR SRE_WAVEITEMS
ACTIVE AFTER UPDATE POSITION 0
AS
  DECLARE VARIABLE status INTEGER;
BEGIN
  IF ((OLD.WIDAID <> NEW.WIDAID) OR
      ((OLD.WIDAID IS NULL) AND (NEW.WIDAID IS NOT NULL)) OR
      ((NEW.WIDAID IS NULL) AND (OLD.WIDAID IS NOT NULL))) THEN
  BEGIN
    IF (OLD.WIDAID IS NOT NULL) THEN BEGIN
      SELECT COUNT(*) FROM SRE_WAVEITEMS 
      WHERE (WIDAID = OLD.WIDAID)
      INTO :status;

      UPDATE SRE_DAYS SET 
        DASTATUS = :status 
      WHERE (DAID = OLD.WIDAID);
    END
    IF (NEW.WIDAID IS NOT NULL) THEN BEGIN
      SELECT COUNT(*) FROM SRE_WAVEITEMS
      WHERE (WIDAID = NEW.WIDAID)
      INTO :status;

      UPDATE SRE_DAYS SET 
        DASTATUS = :status 
      WHERE (DAID = NEW.WIDAID);
    END
  END
END