GeMIS_WEB/GUI/Tools/AusverkaufteLöschen.p

FOR EACH Aufko NO-LOCK
        WHERE Aufko.Firma = '1000'
        AND   Aufko.Knr   = 23985,
        
    EACH Aufze OF Aufko:
    
    IF Aufze.MBest <> 1 THEN NEXT.
    
    FIND FIRST Artst NO-LOCK OF Aufze.
    IF Artst.Ausverk < 9 THEN NEXT.
    DELETE Aufze.
END.

FOR EACH Besko NO-LOCK
        WHERE Besko.Firma      = '1000'
        AND   Besko.Best_Datum = 02/03/2021
        AND   Besko.Lief_Datum = 02/04/2021,
        
    EACH Besze OF Besko:
    
    IF Besze.MBest <> 1 THEN NEXT.
    
    FIND FIRST Artst NO-LOCK OF Besze.
    IF Artst.Ausverk < 9 THEN NEXT.
    DELETE Besze.
END.