GeMIS_WEB/GUI/Tools/ImportLager_Total.p

DEFINE VARIABLE iSf     AS INTEGER   NO-UNDO.
DEFINE VARIABLE cFirma  AS CHARACTER NO-UNDO INIT '1000'.
DEFINE VARIABLE ii      AS INTEGER   NO-UNDO.
DEFINE VARIABLE i1      AS INTEGER   NO-UNDO.
DEFINE VARIABLE cRegal  AS CHARACTER NO-UNDO.
DEFINE VARIABLE cPlatz  AS CHARACTER NO-UNDO.
DEFINE VARIABLE cNiveau AS CHARACTER NO-UNDO.
DEFINE VARIABLE cSf     AS CHARACTER NO-UNDO.

DEF TEMP-TABLE tExcel
    FIELD cSort     AS CHAR 
    FIELD iArtnr    AS INT
    .
    
FOR EACH HoReLager:
    DELETE  HoReLager.
END.

i1 = 0.
INPUT FROM 'C:\Entwicklung\TEMP\Huber\Lagerlisten\Lagerliste_20210120.csv' NO-MAP NO-CONVERT.
REPEAT TRANSACTION ON STOP UNDO, LEAVE ON ERROR UNDO, NEXT:
    CREATE  tExcel.
    IMPORT DELIMITER ';' tExcel NO-ERROR.
    IF ERROR-STATUS:ERROR THEN NEXT.
    i1 = i1 + 1.
END.
INPUT CLOSE.
MESSAGE i1
    VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.

i1 = 0.
FOR EACH tExcel
    BY tExcel.cSort :
        
    ASSIGN  cRegal  = ''
            cPlatz  = ''
            cNiveau = ''
            cSf     = ''.
            
    DO ii = 1 TO NUM-ENTRIES(tExcel.cSort, '-'):
        CASE ii:
            WHEN 1 THEN cRegal  = TRIM(ENTRY(ii, tExcel.cSort, '-')).
            WHEN 2 THEN cPlatz  = TRIM(ENTRY(ii, tExcel.cSort, '-')).
            WHEN 3 THEN cNiveau = TRIM(ENTRY(ii, tExcel.cSort, '-')).
            WHEN 4 THEN cSf     = TRIM(ENTRY(ii, tExcel.cSort, '-')).
        END CASE.
    END.
    
    CREATE  HoReLager.
    ASSIGN  
        HoReLager.Firma    = cFirma
        HoReLager.Lager    = 0
        HoReLager.Art      = 1
        HoReLager.Regal    = cRegal
        HoReLager.Niveau   = cNiveau
        HoReLager.Platz    = cPlatz
        HoReLager.Sf       = cSf
        HoReLager.cSort    = tExcel.cSort
        HoReLager.Artnr    = tExcel.iArtnr
        HoReLager.Inhalt   = 0
        HoReLager.Jahr     = 0
        HoReLager.Bestand  = 0
        HoReLager.iStatus  = (IF tExcel.iArtnr = 0 THEN 0 ELSE 1).

    i1 = i1 + 1.
    IF HoReLager.Artnr = 0 THEN NEXT.
    
    FOR EACH ArtLager
        WHERE ArtLager.Firma  = HoReLager.Firma
        AND   ArtLager.Lager  = HoReLager.Lager
        AND   ArtLager.Artnr  = HoReLager.Artnr
        AND   ArtLager.Inhalt = HoReLager.Inhalt :
        
        ArtLager.Ort = HoReLager.cSort.
    END.
END.
MESSAGE i1
    VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.