GeMIS_WEB/GUI/Tools/SavkoTotaleKontrollieren_Auswertung.p

DEF TEMP-TABLE tSavkoDiff   NO-UNDO
    FIELD Aufnr         AS INT
    FIELD Knr           AS INT
    FIELD Faknr         AS INT
    FIELD Lief_Datum    AS DATE
    FIELD Fak_Datum     AS DATE
    FIELD cText1        AS CHAR
    FIELD Total_Neu     AS DEC
    FIELD Total_Alt     AS DEC
    
    INDEX tSavkoDiff-K1 IS PRIMARY
          Aufnr.

DEF TEMP-TABLE tSavzeDiff   NO-UNDO
    FIELD Aufnr         AS INT
    FIELD Pos           AS INT
    FIELD Artnr         AS INT
    FIELD Inhalt        AS INT
    FIELD Jahr          AS INT
    FIELD MBest         AS DEC
    FIELD MGeli         AS DEC
    FIELD MRuek         AS DEC
    FIELD old_Net_Betr  AS DEC
    FIELD New_Net_Betr  AS DEC.

DEF TEMP-TABLE tAuswertung  NO-UNDO
    FIELD Knr           AS INT
    FIELD Faknr         AS INT
    FIELD Aufnr         AS INT
    FIELD Lief_Datum    AS DATE
    FIELD Fak_Datum     AS DATE
    FIELD Total_Alt     AS DEC
    FIELD Total_Neu     AS DEC
    FIELD Pos           AS INT
    FIELD Artnr         AS INT
    FIELD Inhalt        AS INT
    FIELD Jahr          AS INT
    FIELD MBest         AS DEC
    FIELD MGeli         AS DEC
    FIELD MRuek         AS DEC
    FIELD old_Net_Betr  AS DEC
    FIELD New_Net_Betr  AS DEC.

INPUT FROM 'D:\Temp\Savko_Diff.csv' NO-MAP NO-CONVERT.
REPEAT TRANSACTION ON STOP UNDO, LEAVE.
    CREATE  tSavkoDiff.
    IMPORT DELIMITER ';' tSavkoDiff.
END.
INPUT CLOSE.

INPUT FROM 'D:\Temp\Savze_Diff.csv' NO-MAP NO-CONVERT.
REPEAT TRANSACTION ON STOP UNDO, LEAVE.
    CREATE  tSavzeDiff.
    IMPORT DELIMITER ';' tSavzeDiff.
END.
INPUT CLOSE.
    
FOR EACH tSavkoDiff:
    CREATE   tAuswertung.
    BUFFER-COPY tSavkoDiff to tAuswertung.
END.

FOR EACH tSavzeDiff:
    FIND tAuswertung
            WHERE tAuswertung.Aufnr = tSavzeDiff.Aufnr NO-ERROR.
    IF NOT AVAILABLE tAuswertung THEN DO:
        CREATE  tAuswertung.
        BUFFER-COPY tSavzeDiff to tAuswertung.
        NEXT.
    END.
    BUFFER-COPY tSavzeDiff
        EXCEPT  Aufnr
        TO      tAuswertung.
END.

OUTPUT TO 'D:\Temp\Huber_Diff_Liste.csv'.
FOR EACH tAuswertung BY tAuswertung.Knr BY tAuswertung.Faknr BY tAuswertung.Aufnr:
    EXPORT DELIMITER ';' tAuswertung.        
END.
OUTPUT CLOSE.