GeMIS_WEB/GUI/Tools/LagerplatzAufArtLagerSetzen.p

FOR EACH Artst NO-LOCK
    WHERE Artst.Firma = '1000':

    RELEASE HoReLager.
    FIND FIRST LotLager NO-LOCK USE-INDEX LotLager-k3
        WHERE LotLager.Firma  = Artst.Firma
        AND   LotLager.Lager  = 0
        AND   LotLager.Artnr  = Artst.Artnr
        AND   LotLager.Inhalt = Artst.Inhalt
        AND   LotLager.Jahr   = Artst.Jahr NO-ERROR.
    IF NOT AVAILABLE LotLager THEN
    DO:
        FIND FIRST LotLager NO-LOCK USE-INDEX LotLager-k3
            WHERE LotLager.Firma  = Artst.Firma
            AND   LotLager.Lager  = 0
            AND   LotLager.Artnr  = Artst.Artnr
            AND   LotLager.Inhalt = Artst.Inhalt NO-ERROR.
    END.
    IF AVAILABLE LotLager THEN
    DO:
        FIND HoReLager NO-LOCK USE-INDEX HoReLager_Id
            WHERE HoReLager.HoReLager_Id = LotLager.HoReLager_Id NO-ERROR.
    END.
    DO WHILE NOT AVAILABLE HoReLager:
        FIND FIRST HoReLager NO-LOCK
            WHERE HoReLager.Firma  = Artst.Firma
            AND   HoReLager.Lager  = 0
            AND   HoReLager.Art    = 1
            AND   HoReLager.Artnr  = Artst.Artnr
            AND   HoReLager.Inhalt = Artst.Inhalt
            AND   HoReLager.Jahr   = Artst.Jahr NO-ERROR.
        IF AVAILABLE HoReLager THEN LEAVE.
        
        FIND FIRST HoReLager NO-LOCK
            WHERE HoReLager.Firma  = Artst.Firma
            AND   HoReLager.Lager  = 0
            AND   HoReLager.Art    = 1
            AND   HoReLager.Artnr  = Artst.Artnr
            AND   HoReLager.Inhalt = Artst.Inhalt NO-ERROR.
        IF AVAILABLE HoReLager THEN LEAVE.
        
        FIND FIRST HoReLager NO-LOCK
            WHERE HoReLager.Firma  = Artst.Firma
            AND   HoReLager.Lager  = 0
            AND   HoReLager.Art    = 2
            AND   HoReLager.Artnr  = Artst.Artnr
            AND   HoReLager.Inhalt = Artst.Inhalt
            AND   HoReLager.Jahr   = Artst.Jahr NO-ERROR.
        IF AVAILABLE HoReLager THEN LEAVE.
        
        FIND FIRST HoReLager NO-LOCK
            WHERE HoReLager.Firma  = Artst.Firma
            AND   HoReLager.Lager  = 0
            AND   HoReLager.Art    = 2
            AND   HoReLager.Artnr  = Artst.Artnr
            AND   HoReLager.Inhalt = Artst.Inhalt NO-ERROR.
        IF AVAILABLE HoReLager THEN LEAVE.
        
        LEAVE.
    END.
    IF NOT AVAILABLE HoReLager THEN NEXT.

    IF Artst.Jahr > 0     AND
       HoReLager.Jahr = 0 THEN
    DO:
        FOR EACH ArtLager
            WHERE ArtLager.Firma  = Artst.Firma
            AND   ArtLager.Lager  = 0
            AND   ArtLager.Artnr  = Artst.Artnr
            AND   ArtLager.Inhalt = Artst.Inhalt:
            
            ArtLager.Ort = HoReLager.cSort.
        END.
    END.
    ELSE DO:
        FOR EACH ArtLager
            WHERE ArtLager.Firma  = Artst.Firma
            AND   ArtLager.Lager  = 0
            AND   ArtLager.Artnr  = Artst.Artnr
            AND   ArtLager.Inhalt = Artst.Inhalt
            AND   ArtLager.Jahr   = Artst.Jahr:
            
            ArtLager.Ort = HoReLager.cSort.
        END.
    END.
END.