Trigger

UPD_ITSTATUS

Beschreibung

Aktualisiert den ITEMTEMPLATES Status beim Senderaster Editor.

Definition

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

      UPDATE SRE_ITEMTEMPLATES SET 
        ITSTATUS = :status 
      WHERE (ITID = OLD.BIITID);
    END
    IF (NEW.BIITID IS NOT NULL) THEN BEGIN
      SELECT COUNT(*) FROM SRE_BLOCKITEMS
      WHERE (BIITID = NEW.BIITID)
      INTO :status;

      UPDATE SRE_ITEMTEMPLATES SET 
        ITSTATUS = :status 
      WHERE (ITID = NEW.BIITID);
    END
  END
END