DEF BUFFER bHoReLager FOR HoReLager.

REPEAT TRANSACTION ON ERROR UNDO, LEAVE:

    FIND HoReLager
        WHERE HoReLager.Firma  = '1000'
        AND   HoReLager.Art    = 2
        AND   HoReLager.Lager  = 0
        AND   HoReLager.cSort  = 'B2-032-02'.
    /*
    FIND bHoReLager
        WHERE bHoReLager.Firma  = '1000'
        AND   bHoReLager.Art    = 2
        AND   bHoReLager.Lager  = 0
        AND   bHoReLager.cSort  = 'B2-032-01'.
    FIND ArtLager OF bHoReLager.
    ArtLager.Inv_Best = ArtLager.Inv_Best - bHoReLager.Bestand.
    FOR EACH LotLager WHERE LotLager.HoReLager_Id = HoReLager.HoReLager_Id:
        IF LotLager.Verfall = 01/15/2021 THEN 
        DO:
            DELETE lotlager.
            NEXT.
        END.
        lotlager.horelager_id = bhorelager.horelager_id.
    END.
    */
    ASSIGN  HoReLager.Artnr   = 0
            HoReLager.Bestand = 0
            HoReLager.Eingang = ?
            HoReLager.Verfall = ?
            HoReLager.iStatus = 0.
    LEAVE.
END.