FOR EACH ArtLager WHERE ArtLager.Firma = '1000':
    ArtLager.Ort = ''.
END.

FOR EACH HoReLager WHERE HoReLager.FIrma = '1000' AND Lager = 0 AND art = 1 AND Artnr > 0
    BREAK BY HoReLager.Artnr BY HoReLager.inhalt BY HoReLager.jahr:
    
    IF NOT FIRST-OF ( HoReLager.jahr ) THEN NEXT.
    
    FOR EACH ArtLager
        WHERE ArtLager.Firma  = HoReLager.Firma
        AND   ArtLager.Artnr  = HoReLager.Artnr
        AND   ArtLager.Inhalt = HoReLager.Inhalt :
        
        ArtLager.Ort = HoReLager.cSort.
    END.
    
END.