GeMIS_WEB/GUI/Tools/SageOpAbgleich.p

DEF VAR ii AS INT.

DEF TEMP-TABLE tExcel
    FIELD Faknr      AS CHAR 
    FIELD Fakbetr    AS CHAR
    FIELD Saldo      AS CHAR
    FIELD Dummy      AS CHAR EXTENT 5
    FIELD iFaknr     AS INT 
    FIELD nFakbetr   AS DEC
    FIELD nSaldo     AS DEC
    FIELD lSageFound AS LOG INIT FALSE
    FIELD lGemFound  AS LOG INIT FALSE
    
    INDEX tExcel-k1 IS PRIMARY
        iFaknr
    .
    
INPUT FROM 'C:\Entwicklung\TEMP\Huber\Huber_Sage_OPS.csv' NO-MAP NO-CONVERT.
REPEAT TRANSACTION ON STOP UNDO, LEAVE:
    CREATE  tExcel.
    IMPORT DELIMITER ';' tExcel.
END.
INPUT CLOSE.

FOR EACH tExcel:
    IF tExcel.Faknr = '' THEN DO:
        DELETE  tExcel.
        NEXT.
    END.
    IF tExcel.Fakbetr = '' THEN DO:
        DELETE  tExcel.
        NEXT.
    END.
    IF tExcel.Saldo = '' THEN DO:
        DELETE  tExcel.
        NEXT.
    END.
    tExcel.iFaknr = INTEGER(tExcel.Faknr) NO-ERROR.
    IF  ERROR-STATUS:ERROR OR
        tExcel.iFaknr = ?  THEN
        DO:
            DELETE  tExcel.
            NEXT.
    END.
    tExcel.iFaknr   = INTEGER(tExcel.Faknr  ).
    tExcel.nFakbetr = DECIMAL(tExcel.Fakbetr).
    tExcel.nSaldo   = DECIMAL(tExcel.Saldo  ).
END.
FOR EACH tExcel:
ii = ii + 1.
END.
MESSAGE ii
    VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.

FOR EACH tExcel:
    FIND FIRST Debop NO-LOCK
        WHERE Debop.Firma = '1000'
        AND   Debop.Faknr = tExcel.iFaknr NO-ERROR.
    IF NOT AVAILABLE Debop THEN NEXT.
    lSageFound = TRUE.
END.

FOR EACH Debop NO-LOCK
    WHERE Debop.Firma    = '1000'
    AND   Debop.Fakdat  >= 01/01/2020
    AND   Debop.Fakdat  <= 12/31/2021
    AND   Debop.Fakbetr <> 0:
    FIND FIRST tExcel NO-LOCK
        WHERE tExcel.iFaknr = Debop.Faknr NO-ERROR.
    IF AVAILABLE tExcel THEN DO:
        tExcel.lGemFound = TRUE.
        NEXT.
    END.
    CREATE  tExcel.
    ASSIGN  tExcel.iFaknr   = Debop.Faknr
            tExcel.nFakbetr = Debop.Fakbetr
            tExcel.nSaldo   = Debop.Saldo.
END.

OUTPUT TO 'C:\Entwicklung\TEMP\Huber\Huber_Sage_OPS_Fehler.csv' NO-MAP NO-CONVERT.
FOR EACH tExcel
/*     WHERE (tExcel.lSageFound = FALSE   */
/*     OR     tExcel.lGemFound  = FALSE)  */
        :
    EXPORT DELIMITER ';' tExcel.
END.