GeMIS_WEB/GUI/Tools/MHDZuteilung.p

FOR EACH Artst
    WHERE Artst.Firma = '1000',
    
    FIRST WarenGrp NO-LOCK
        WHERE WarenGrp.Firma = Artst.Firma
        AND   WarenGrp.Wgr   = Artst.Wg_Grp:
    IF  WarenGrp.Wgr = 025 OR
        WarenGrp.Wgr = 030 OR
        WarenGrp.Wgr = 040 OR
        WarenGrp.Wgr = 110 OR
        WarenGrp.Wgr = 130 OR
        WarenGrp.Wgr = 140 OR
        WarenGrp.Wgr = 150 OR
        WarenGrp.Wgr = 160 OR
        WarenGrp.Wgr = 170 OR
        WarenGrp.Wgr = 180 OR
        WarenGrp.Wgr = 180 OR
        WarenGrp.Wgr = 210 OR
        WarenGrp.Wgr = 240 OR
        WarenGrp.Wgr = 270 OR
        WarenGrp.Wgr = 290 THEN Artst.lVerfall = TRUE.
END.