DEF VAR cFirma AS CHAR NO-UNDO INIT '1000'.
DEF VAR i1 AS INT NO-UNDO.
DEF VAR i2 AS INT NO-UNDO.
DEF VAR cRetVal AS CHAR NO-UNDO.

FOR EACH Artst NO-LOCK
    WHERE Artst.Firma = cFirma
ihr mann ?
AND   Artst.Aktiv 
    AND   Artst.Ausverk < 9
    AND   Artst.eShop,
    
    FIRST KGebinde NO-LOCK 
        WHERE KGebinde.Firma  = Artst.Firma
        AND   KGebinde.Geb_Cd = Artst.KGeb_Cd
        AND   KGebinde.Inhalt > 0 ,
    FIRST VGebinde NO-LOCK 
        WHERE VGebinde.Firma  = Artst.Firma
        AND   VGebinde.Geb_Cd = Artst.VGeb_Cd
        AND   VGebinde.Inhalt > 0 ,
    FIRST WarenGrp NO-LOCK 
        WHERE WarenGrp.Firma = Artst.Firma
        AND   WarenGrp.Wgr   = Artst.Wg_Grp
        AND   WarenGrp.lShopB2B 
    :
    
    i1 = i1 + 1.
    RUN ybmputProducts.p ( cFirma, Artst.Artnr, Artst.Inhalt, Artst.Jahr, OUTPUT cRetVal ).
    i2 = i2 + (IF cRetVal = '' THEN 0 ELSE 1).
    IF cRetVal <> '' THEN DO:
        OUTPUT TO 'C:\Entwicklung\TEMP\Huber\YBM\FehlerhafteArtikel.csv' APPEND NO-MAP NO-CONVERT.
        EXPORT DELIMITER ';' Artst.Artnr Artst.Inhalt Artst.Jahr cRetVal.
        OUTPUT CLOSE.
    END.
END.

MESSAGE 'Anzahl gelesene Artikel = ' i1 SKIP
        'Anzahl abgewiesene Artikel = ' i2
    VIEW-AS ALERT-BOX.