GeMIS_WEB/GUI/Tools/BeszeVerfallLotnrSetzen.p

FOR EACH Besko NO-LOCK
    WHERE Besko.Firma   = '1000'
    AND   Besko.Best_Sta < 3,
    
    EACH Besze OF Besko:
    
    IF Besze.Artnr = 0 THEN NEXT.
    
    FIND Artst OF Besze NO-LOCK.
    ASSIGN  Besze.lVerfall = Artst.lVerfall
            Besze.lLotnr   = ARtst.lLotnr.
END.