GeMIS_WEB/GUI/Tools/InventarNullerBuchung.p

DEF VAR i1  AS INT NO-UNDO.

FOR EACH Artst NO-LOCK
    WHERE Artst.Firma   = '1000'
    AND   Artst.Aktiv   = TRUE
    AND   Artst.Ausverk < 9:
    
    FIND FIRST ArtLager NO-LOCK OF Artst NO-ERROR.
    IF NOT AVAILABLE ArtLager THEN NEXT.
    
    FIND FIRST Artbez NO-LOCK OF Artst.
    
    FIND FIRST 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  = 02/26/2021 NO-ERROR.
    IF AVAILABLE Artbw THEN NEXT.
    
    FIND KGebinde NO-LOCK
        WHERE KGebinde.Firma  = Artst.Firma
        AND   KGebinde.Geb_Cd = Artst.KGeb_Cd NO-ERROR.
    FIND VGebinde NO-LOCK
        WHERE VGebinde.Firma  = Artst.Firma
        AND   VGebinde.Geb_Cd = Artst.VGeb_Cd NO-ERROR.
    FIND GGebinde NO-LOCK
        WHERE GGebinde.Firma  = Artst.Firma
        AND   GGebinde.Geb_Cd = Artst.GGeb_Cd NO-ERROR.

    DISABLE TRIGGERS FOR LOAD OF ArtLager.

    REPEAT TRANSACTION ON ERROR UNDO, LEAVE:                        
        FIND LAST Artbw USE-INDEX Artbw-k1
            WHERE Artbw.Firma = Artst.Firma NO-LOCK NO-ERROR.
        IF AVAILABLE Artbw THEN i1 = Artbw.Trnr + 1.
        ELSE                    i1 = 1.
        
        CREATE  Artbw.
        ASSIGN  
            Artbw.Firma      = Artst.Firma
            Artbw.Trnr       = i1
            Artbw.Tr_Art     = 21
            Artbw.Artnr      = Artst.Artnr
            Artbw.Inhalt     = Artst.Inhalt
            Artbw.Jahr       = Artst.Jahr
            Artbw.Bez1       = Artbez.Bez1
            Artbw.Menge      = 0
            Artbw.Alk_Gehalt = Artst.Alk_Gehalt
            Artbw.Aktion     = FALSE
            Artbw.Sk_Ber     = FALSE
            Artbw.Netto      = FALSE
            Artbw.Lager      = ArtLager.Lager
            Artbw.KGeb_Cd    = Artst.KGeb_Cd
            Artbw.VGeb_Cd    = Artst.VGeb_Cd
            Artbw.GGeb_Cd    = Artst.GGeb_Cd
            Artbw.KGeb_Me    = 0
            Artbw.VGeb_Me    = 0
            Artbw.GGeb_Me    = 0
            Artbw.Liter      = 0
            Artbw.Datum      = 02/26/2021
            Artbw.Abhol      = FALSE
            Artbw.FRW        = 'CHF'
            Artbw.Faktor     = 1
            Artbw.Kurs       = 1.0
            Artbw.Preis      = Artst.Listen_EP
            Artbw.Bru_Betr   = Artst.Listen_EP * Artbw.Menge
            Artbw.Net_Betr   = Artst.Listen_EP * Artbw.Menge
            Artbw.EP         = Artst.Listen_EP.
            
        
        RELEASE Artbw     .
        RELEASE Artst    .
        RELEASE Artbez   .
        RELEASE KGebinde  .
        RELEASE VGebinde  .
        RELEASE GGebinde  .
        
        LEAVE.
    END.
END.