TRIGGER PROCEDURE FOR WRITE OF HoReLager
    NEW BUFFER NHoReLager
    OLD BUFFER OHoReLager.

IF  nHoReLager.Art   = 2                THEN RETURN.
IF  nHoReLager.Artnr = oHoReLager.Artnr AND 
    nHoReLager.cSort = oHoReLager.cSort THEN RETURN.

IF oHoReLager.Artnr > 0 THEN 
DO:    
    FOR EACH ArtLager 
        WHERE ArtLager.Firma  = oHoReLager.Firma
        AND   ArtLager.Lager  = oHoReLager.Lager
        AND   ArtLager.Artnr  = oHoReLager.Artnr
        AND   ArtLager.Inhalt = oHoReLager.Inhalt:
            
        ASSIGN  
            ArtLager.Ort = ''.
            RELEASE ArtLager.
    END.
END.
    
IF nHoReLager.Artnr > 0 THEN 
DO:    
    FOR EACH ArtLager 
        WHERE ArtLager.Firma  = nHoReLager.Firma
        AND   ArtLager.Lager  = nHoReLager.Lager
        AND   ArtLager.Artnr  = nHoReLager.Artnr
        AND   ArtLager.Inhalt = nHoReLager.Inhalt:
            
        ASSIGN  
            ArtLager.Ort = nHoReLager.cSort.
            RELEASE ArtLager.
    END.
END.