GeMIS_WEB/GUI/TRIGGERS/t-artlager-delete.p

TRIGGER PROCEDURE FOR DELETE OF ArtLager.

    DISABLE TRIGGERS FOR LOAD OF Artst.
 
    FIND Artst
            WHERE Artst.Firma  = ArtLager.Firma
            AND   Artst.Artnr  = ArtLager.Artnr
            AND   Artst.Inhalt = ArtLager.Inhalt
            AND   Artst.Jahr   = ArtLager.Jahr NO-ERROR.
    IF NOT AVAILABLE Artst THEN RETURN.
    IF NOT Artst.Lager     THEN RETURN.
    ASSIGN  Artst.Bestand      = Artst.Bestand      - ArtLager.Bestand
            Artst.Reserviert   = Artst.Reserviert   - ArtLager.Reserviert
            Artst.Bestellt     = Artst.Bestellt     - ArtLager.Bestellt
            Artst.Mind_Bestand = Artst.Mind_Bestand - ArtLager.Mind_Bestand
            Artst.Soll_Bestand = Artst.Soll_Bestand - ArtLager.Soll_Bestand
            .
    RELEASE Artst.