FOR EACH Artst 
    WHERE Artst.Firma   = '1000'
    AND   Artst.Aktiv   = TRUE
    AND   Artst.Ausverk < 9:

    Artst.EShop_2 = FALSE.
    FIND KGebinde NO-LOCK
        WHERE KGebinde.Firma  = Artst.Firma
        AND   KGebinde.Geb_Cd = Artst.KGeb_Cd NO-ERROR.
    IF KGebinde.Depot = 0 THEN Artst.EShop_2 = TRUE.
END.