Trigger

UPD_BLSTATUS

Beschreibung

Aktualisiert den BLOCKS Status beim Senderaster Editor.

Definition

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

      UPDATE SRE_BLOCKS SET 
        BLSTATUS = :status 
      WHERE (BLID = OLD.HIBLID);
    END
    IF (NEW.HIBLID IS NOT NULL) THEN BEGIN
      SELECT COUNT(*) FROM SRE_HOURITEMS
      WHERE (HIBLID = NEW.HIBLID)
      INTO :status;

      UPDATE SRE_BLOCKS SET 
        BLSTATUS = :status 
      WHERE (BLID = NEW.HIBLID);
    END
  END
END