GeMIS_WEB/GUI/Tools/Bestellberichtigung.p

DEF VAR nTotale AS DEC NO-UNDO EXTENT 10.

{ super/funktionen.i }

FOR EACH Besko NO-LOCK
    WHERE Besko.Firma     = '1000'
    AND   Besko.Best_Sta <= 2:
    
    FOR EACH Besze OF Besko:
        Besze.Best_Sta = Besko.Best_Sta.
        Besze.MRuek    = Besze.MBest - Besze.MGeli - Besze.Eingang.
        DYNAMIC-FUNCTION('calculateBeszeNetto':U, Besko.FIrma, Besko.Besnr,Besze.Pos, ? ).
    END.
    DYNAMIC-FUNCTION('calculateBeskoTotal':U, Besko.Firma, Besko.Besnr, OUTPUT nTotale ).
END.

FOR EACH ArtLager WHERE ArtLager.Firma = '1000':
    ASSIGN  ArtLager.Bestellt = 0.
    
    FOR EACH Besze NO-LOCK
        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:
        
        IF Besze.Artnr = 0 THEN NEXT.
        
        ArtLager.Bestellt = ArtLager.Bestellt + Besze.MBest.
    END.
END.