GeMIS_WEB/GUI/Tools/ArtikelOhneInventar.p

OUTPUT TO 'D:\Temp\ArtikelOhneInventar.csv' NO-MAP NO-CONVERT.
FOR EACH Artst NO-LOCK
    WHERE Artst.Firma   = '1000'
    AND   Artst.Aktiv   = TRUE
    AND   Artst.Ausverk < 9:
    
    FIND FIRST ArtLager OF Artst NO-LOCK NO-ERROR.
    IF NOT AVAILABLE ArtLager THEN NEXT.
    FIND FIRST Artbw NO-LOCK
        WHERE Artbw.Firma  = Artst.Firma
        AND   Artbw.Artnr  = Artst.Artnr
        AND   Artbw.Inhalt = Artst.Inhalt
        AND   Artbw.Jahr   = Artst.Jahr
        AND   Artbw.Tr_Art = 21
        AND   Artbw.Datum  = 02/26/2021 NO-ERROR.
    IF AVAILABLE Artbw THEN NEXT.
    EXPORT DELIMITER ';'
        Artst.Artnr Artst.Inhalt Artst.Jahr Artst.Bez
        Artst.Ausverk ArtLager.ort ArtLager.Bestand.
    
END.
OUTPUT CLOSE.