Trigger

SENDEELEMENTE_DEL

Beschreibung

Trigger um den TISTATUS anzupassen.

Definition

CREATE TRIGGER SENDEELEMENTE_DEL FOR SENDEELEMENTE
ACTIVE AFTER DELETE POSITION 0
AS 
  DECLARE VARIABLE ActTiId     INTEGER;
  DECLARE VARIABLE ActTiStatus INTEGER;
  DECLARE VARIABLE hasUpdated  INTEGER;
  DECLARE VARIABLE ActTiTyp    VARCHAR(2);
BEGIN
  IF (OLD.SESTATUS <> 5) THEN
  BEGIN
    FOR SELECT TIID, TISTATUS, TITYP FROM TITEL
    WHERE (OLD.SETIID = TITEL.TIID) /* TIID kann nicht NULL sein */
    INTO :ActTiId, :ActTiStatus, :ActTiTyp
    DO BEGIN
      
      EXECUTE PROCEDURE TI_UPDATE_STATUS_WITH_RETURN ActTiId, ActTiStatus, ActTiTyp
        RETURNING_VALUES hasUpdated;
        
    END
  
    IF ((OLD.SETIID IS NULL) AND (OLD.SETYP IN ('JP', 'NM', 'RP'))) THEN BEGIN

      EXECUTE PROCEDURE UPDATE_BLOB_STATUS(OLD.SEZUSATZTEXT);

    END
  END
END