GeMIS_WEB/GUI/Tools/ArtikelMehrereRuestplaetze.p

OUTPUT TO 'D:\TEMP\ArtikelAnMehrerenRuestplaetzen.csv' NO-MAP NO-CONVERT.

FOR EACH HoReLager NO-LOCK
    WHERE HoReLager.Firma = '1000'
    AND   HoReLager.Art   = 1
    AND   HoReLager.Lager = 0
    AND   HoReLager.Artnr > 0
    
    BREAK BY HoReLager.Artnr
          BY HoReLager.Inhalt:
          
    IF  FIRST-OF ( HoReLager.Inhalt ) AND
        LAST-OF  ( HoReLager.Inhalt ) THEN NEXT.

        FIND FIRST Artbez NO-LOCK
            WHERE Artbez.FIrma  = HoReLager.Firma
            AND   Artbez.Artnr  = HoReLager.Artnr
            AND   Artbez.Inhalt = HoReLager.Inhalt.
    
    EXPORT DELIMITER ';'
        HoReLager.Artnr
        HoReLager.Inhalt
        HoReLager.Jahr
        ArtBez.Bez1
        Artbez.Bez2
        HoReLager.cSort
        HoReLager.Bestand.
END.
OUTPUT CLOSE.

FOR EACH HoReLager WHERE HoReLager.Artnr = 0:
    ASSIGN  HoReLager.Inhalt    = 0
            HoReLager.Jahr      = 0
            HoReLager.Bestand   = 0
            HoReLager.Eingang   = ?
            HoReLager.Verfall   = ?
            HoReLager.Lotnummer = ''
            HoReLager.iStatus   = 0.
END.

FOR EACH HoReLager WHERE HoReLager.Artnr > 0:
    HoReLager.iStatus = (IF HoReLager.Bestand > 0 THEN 2 ELSE 1).
END.