GeMIS_WEB/GUI/Tools/InventarKorrektur.p

DEF VAR nBestand        AS DEC                      NO-UNDO.
DEF VAR nInventar       AS DEC                      NO-UNDO.
DEF VAR iTrnr           AS INT                      NO-UNDO.

FOR EACH Artst
        WHERE Artst.Firma = '1000'
        AND   Artst.Lager = TRUE:
    nBestand  = 0.
    nInventar = 0.
    iTrnr     = 0.
    FOR EACH Artbw NO-LOCK
            WHERE Artbw.Firma  = Artst.Firma
            AND   Artbw.Artnr  = Artst.Artnr
            AND   Artbw.Inhalt = Artst.Inhalt
            AND   Artbw.Jahr   = Artst.Jahr
            AND   Artbw.Tr_Art = 21
            AND   Artbw.Datum  = 01/01/2018 :
        nBestand  = nBestand  + Artbw.Menge.
        nInventar = nInventar + Artbw.Menge.
        IF Artbw.Trnr > iTrnr THEN iTrnr = Artbw.Trnr.
    END.
    FOR EACH Artbw NO-LOCK
            WHERE Artbw.Firma    = Artst.Firma
            AND   Artbw.Artnr    = Artst.Artnr
            AND   Artbw.Inhalt   = Artst.Inhalt
            AND   Artbw.Jahr     = Artst.Jahr
            AND   Artbw.Tr_Art   < 21
            AND   Artbw.Datum   >= 01/01/2018
            AND   Artbw.Datum   <  01/01/2019
            AND   Artbw.Trnr     > iTrnr
            AND   Artbw.Lag_Buch = TRUE:
        IF Artbw.Tr_Art < 10 THEN nBestand = nBestand - Artbw.Menge.
        ELSE                      nBestand = nBestand + Artbw.Menge.
    END.
    FIND ArtLager
            WHERE ArtLager.Firma  = Artst.Firma
            AND   ArtLager.Artnr  = Artst.Artnr
            AND   ArtLager.Inhalt = Artst.Inhalt
            AND   ArtLager.Jahr   = Artst.Jahr
            AND   ArtLager.Lager  = 0.
    ASSIGN  ArtLager.Datum_Inv   = 01/01/2019
            ArtLager.Bestand_Alt = nBestand
            ArtLager.Inv_Alt     = nInventar.
END.

FOR EACH Artbw
        WHERE Artbw.Firma  = '1000'
        AND   Artbw.Tr_Art = 14
        AND   Artbw.Datum  = 12/31/2018:
    DELETE  Artbw.
END.
/*
FOR EACH Aufko NO-LOCK
        WHERE Aufko.FIrma = '1000',
    EACH Aufze NO-LOCK
        WHERE Aufze.Firma = Aufko.Firma
        AND   Aufze.Aufnr = Aufko.Aufnr
        AND   Aufze.Artnr > 0:
    FIND Artbw OF Aufze.
    Artbw.Datum = Aufko.Lief_Datum.
END.
*/