Trigger

UPD_HRSTATUS

Beschreibung

Aktualisiert den HOURS Status beim Senderaster Editor.

Definition

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

      UPDATE SRE_HOURS SET 
        HRSTATUS = :status 
      WHERE (HRID = OLD.DIHRID);
    END
    IF (NEW.DIHRID IS NOT NULL) THEN BEGIN
      SELECT COUNT(*) FROM SRE_DAYITEMS
      WHERE (DIHRID = NEW.DIHRID)
      INTO :status;

      UPDATE SRE_HOURS SET 
        HRSTATUS = :status 
      WHERE (HRID = NEW.DIHRID);
    END
  END
END