GeMIS_WEB/GUI/Tools/FehlerhafteWgPgAg.p

OUTPUT TO 'Fehler.txt' NO-MAP NO-CONVERT.
FOR EACH Artst NO-LOCK WHERE Firma = '1000' BY Artst.Aktiv:
    FIND Warengrp NO-LOCK
            WHERE WarenGrp.Firma = Artst.Firma
            AND   WarenGrp.Wgr   = Artst.Wg_Grp NO-ERROR.
    IF NOT AVAILABLE WarenGrp THEN
    DO:
        PUT CONTROL Artst.Artnr ' ' Artst.Inhalt ' ' Artst.Jahr ' ' Artst.Aktiv CHR(10).
        NEXT.
    END.
    FIND Prodgrp NO-LOCK
            WHERE ProdGrp.Firma = Artst.Firma
            AND   ProdGrp.Wgr   = Artst.Wg_Grp
            AND   ProdGrp.Prod_Grp = Artst.Prod_Grp NO-ERROR.
    IF NOT AVAILABLE ProdGrp THEN
    DO:
        PUT CONTROL Artst.Artnr ' ' Artst.Inhalt ' ' Artst.Jahr ' ' Artst.Aktiv CHR(10).
        NEXT.
    END.
    FIND Artikgrp NO-LOCK
            WHERE ArtikGrp.Firma = Artst.Firma
            AND   ArtikGrp.Wgr   = Artst.Wg_Grp 
            AND   ArtikGrp.Prod_Grp = Artst.Prod_Grp
            AND   ArtikGrp.Art_Grp = Artst.Art_Grp NO-ERROR.
    IF NOT AVAILABLE ArtikGrp THEN
    DO:
        PUT CONTROL Artst.Artnr ' ' Artst.Inhalt ' ' Artst.Jahr ' ' Artst.Aktiv CHR(10).
        NEXT.
    END.
END.
OUTPUT CLOSE.