GeMIS_WEB/GUI/Tools/LagerlisteRekonstruktion.p

DEF VAR ii      AS INT      NO-UNDO.

DEF TEMP-TABLE tExcel
    FIELD cSort     AS CHAR 
    FIELD iStatus   AS INT
    FIELD Artnr     AS INT
    .
    
DEF TEMP-TABLE tLager
    FIELD Regal     AS CHAR
    FIELD Platz     AS CHAR
    FIELD Niveau    AS CHAR
    FIELD Artnr     AS INT
    FIELD Bez       AS CHAR
    FIELD Jahr      AS CHAR
    FIELD Alk       AS CHAR
    FIELD KGeb      AS CHAR
    FIELD Bestand   AS INT
    .
ii = 0.    
INPUT FROM 'C:\Entwicklung\TEMP\Huber\Lagertabelle_Donnerstag.csv' NO-MAP NO-CONVERT.
REPEAT TRANSACTION ON STOP UNDO, LEAVE:
    CREATE  tExcel.
    IMPORT DELIMITER ';' tExcel NO-ERROR.
    IF ERROR-STATUS:ERROR THEN
    MESSAGE 'Fehler bei ' ii
        VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
    ii = ii + 1.
END.
INPUT CLOSE.

MESSAGE ii
    VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.

FOR EACH tExcel BREAK BY tExcel.Artnr:
    IF NOT FIRST-OF ( tExcel.Artnr ) THEN DELETE tExcel.
END.

EMPTY TEMP-TABLE tLager.
FOR EACH tExcel BY tExcel.cSort:
    FIND FIRST Artst NO-LOCK
        WHERE Artst.Firma = '1000'
        AND   Artst.Artnr = tExcel.Artnr NO-ERROR.
    IF NOT AVAILABLE Artst THEN NEXT.
    
    FIND FIRST Artbez NO-LOCK OF Artst.
    FIND KGebinde NO-LOCK
        WHERE KGebinde.Firma  = Artst.Firma
        AND   KGebinde.Geb_Cd = Artst.KGeb_Cd NO-ERROR.
    
    CREATE  tLager.
    ASSIGN  tLager.Regal   = ENTRY(1, tExcel.cSort, '-')
            tLager.Platz   = ENTRY(2, tExcel.cSort, '-')
            tLager.Niveau  = ENTRY(3, tExcel.cSort, '-')
            tLager.Artnr   = tExcel.Artnr
            tLager.Bez     = TRIM(Artbez.Bez1 + " " + Artbez.Bez2)
            tLager.Jahr    = TRIM(STRING(Artst.Jahr,"zzzz"))
            tLager.Alk     = (IF Artst.Alk_Gehalt = 0 THEN '' ELSE TRIM(STRING(Artst.Alk_Gehalt,'>>9.99')))
            tLager.KGeb    = KGebinde.KBez
            tLager.Bestand = 0.
END.

OUTPUT TO 'C:\Entwicklung\TEMP\Huber\LagerListe_Donnerstag.csv' NO-MAP NO-CONVERT.
FOR EACH tLager BY Regal BY Platz BY Niveau:
    EXPORT DELIMITER ';' tLager.
END.
OUTPUT CLOSE.