GeMIS_WEB/GUI/TRIGGERS/t-liefst-write.p

TRIGGER PROCEDURE FOR WRITE OF Liefst
    NEW BUFFER NLiefst
    OLD BUFFER OLiefst.

    DEF VAR hBuffer     AS HANDLE                   NO-UNDO.
    DEF VAR wi          AS INT                      NO-UNDO.

    DISABLE TRIGGERS FOR LOAD OF Adresse.
    
    FIND Steuer NO-LOCK
            WHERE Steuer.Firma = NLiefst.Firma NO-ERROR.
    IF NOT AVAILABLE Steuer THEN RETURN.
    
    FIND Adresse USE-INDEX Adresse-k1
            WHERE Adresse.Firma = Steuer.AdFirma
            AND   Adresse.Knr   = NLiefst.Knr NO-ERROR.
    IF NOT AVAILABLE Adresse THEN RETURN.
    
    wi = INDEX(WortIndex, 'XLIEFSTX').
    IF NLiefst.Aktiv THEN DO:
        IF wi > 0 THEN RETURN.
        Adresse.WortIndex = Adresse.WortIndex + ' XLIEFSTX'.
        RETURN.
    END.
    IF wi = 0 THEN RETURN.
    Adresse.WortIndex = REPLACE(Adresse.WortIndex, 'XLIEFSTX', ' ').
    Adresse.WortIndex = REPLACE(Adresse.WortIndex, '  ',       ' ').
    RETURN.