GeMIS_WEB/GUI/Tools/Korr_Bestellte_Menge.p

FOR EACH besze:
    FIND besko NO-LOCK OF besze NO-ERROR.
    IF NOT AVAILABLE besko THEN DO:
        DELETE besze.
        NEXT.
    END.
    FIND artst NO-LOCK OF besze NO-ERROR.
    IF NOT AVAILABLE artst THEN DO:
        DELETE besze.
        NEXT.
    END.
END.

FOR EACH artlager:
    FIND artst NO-LOCK
            WHERE artst.firma  = artlager.firma
            AND   artst.artnr  = artlager.artnr
            AND   artst.inhalt = artlager.inhalt
            AND   artst.jahr   = artlager.jahr NO-ERROR.
    IF AVAILABLE artst THEN NEXT.
    DELETE artlager.
END.

FOR EACH artst:
    artst.bestellt = 0.
    FOR EACH Artlager
        WHERE artlager.firma  = artst.firma
        AND   artlager.artnr  = artst.artnr
        AND   artlager.inhalt = artst.inhalt
        AND   artlager.jahr   = artst.jahr:
        artlager.bestellt = 0.
        FOR EACH Besze
                WHERE besze.firma  = Artlager.Firma
                AND   besze.artnr  = Artlager.Artnr
                AND   besze.inhalt = Artlager.inhalt
                AND   besze.jahr   = Artlager.jahr
                AND   besze.lager  = Artlager.lager:
                
            FIND besko OF besze NO-LOCK NO-ERROR.
            IF besko.best_Sta > 2 THEN NEXT.
            
            FIND artbw OF besze NO-LOCK NO-ERROR.
            IF AVAILABLE artbw THEN NEXT.
            
            artlager.bestellt = artlager.bestellt + besze.mbest.
            artst.bestellt    = artst.bestellt    + besze.mbest.
        END.
    END.
END.