GeMIS_WEB/GUI/Tools/importEAN_Huber.p

DEF VAR cDateiName  AS CHAR NO-UNDO.
DEF VAR ix			AS INT 	NO-UNDO.

DEF TEMP-TABLE tArtlief NO-UNDO
    FIELD iKnr              AS INT
    FIELD cS_Artnr          AS CHAR
    FIELD cS_Bez1           AS CHAR
    FIELD cS_Bez2           AS CHAR
    FIELD cStrichcode_KGeb  AS CHAR
    FIELD cStrichcode_VGeb  AS CHAR
    FIELD cStrichcode_GGeb  AS CHAR
	FIELD cFehler			AS CHAR.
    
cDateiName = 'C:\Entwicklung\subversion\Ge_MIS\TRUNK\OE102A\EAN.csv'.

FILE-INFO:FILE-NAME = cDateiName.
IF FILE-INFO:FULL-PATHNAME = ? THEN DO:
    MESSAGE 'Datei ' cdateiName ' nicht gefunden! ' VIEW-AS ALERT-BOX.
    RETURN.
END.
cDateiName = FILE-INFO:FULL-PATHNAME.

INPUT FROM VALUE (cDateiName) NO-ECHO NO-MAP NO-CONVERT.
REPEAT TRANSACTION ON ERROR UNDO, NEXT
       ON STOP  UNDO, LEAVE:
    CREATE  tArtlief.
    IMPORT  DELIMITER ';' tArtlief.
END.
INPUT CLOSE.

/* Import */

FOR EACH tArtlief NO-LOCK:

	ERROR-STATUS:ERROR = FALSE.
	ix = INTEGER(tArtlief.cStrichcode_KGeb) NO-ERROR.		
	IF ERROR-STATUS:ERROR OR ix = ? THEN NEXT.
	ELSE DO:
    FIND Artlief USE-INDEX ArtLief-k3
        WHERE   Artlief.Firma = '1000'
        AND     Artlief.Knr = tArtlief.iKnr
        AND     REPLACE(REPLACE(Artlief.S_Artnr,' ',''),'.','') = REPLACE(REPLACE(tArtlief.cS_Artnr,' ',''),'.','') NO-ERROR.	
        IF AVAILABLE Artlief THEN 
            ASSIGN  Artlief.S_Bez1 = tArtlief.cS_Bez1
                    Artlief.S_Bez2 = tArtlief.cS_Bez2
                    Artlief.Strichcode_KGeb = REPLACE(tArtlief.cStrichcode_KGeb,' ','')
                    Artlief.Strichcode_VGeb = REPLACE(tArtlief.cStrichcode_VGeb,' ','')
                    Artlief.Strichcode_GGeb = REPLACE(tArtlief.cStrichcode_GGeb,' ','').
        ELSE DO:
			ASSIGN tArtlief.cFehler = 'X'.
		NEXT.   
		END.
	END.
	
END.


/* Export Fehler */
OUTPUT TO 'C:\Temp\exportFehler.csv' NO-MAP NO-CONVERT.

FOR EACH tArtlief NO-LOCK:
	EXPORT DELIMITER ";" tArtlief.
END.

OUTPUT CLOSE.