GeMIS_WEB/GUI/Tools/AufzeVerfallLotnrSetzen.p

FOR EACH Aufko NO-LOCK
    WHERE Aufko.Firma   = '1000'
    AND   Aufko.Auf_Sta < 2,
    
    EACH Aufze OF Aufko:
    
    IF Aufze.Artnr = 0 THEN NEXT.
    
    FIND Artst OF Aufze NO-LOCK.
    ASSIGN  Aufze.lVerfall = Artst.lVerfall
            Aufze.lLotnr   = Artst.lLotnr.
            
END.