GeMIS_WEB/GUI/Tools/xx1.p

def var fakbetr as dec.

def temp-table tsavko
    field knr           as int
    field faknr         as int
    field Aufnr         as int
    field fak_knr       as int
    field Auf_Datum     as date
    field lief_Datum    as date
    field fak_Datum     as date
    field Auf_Tot       as dec
    field debop_Datum   as date
    field debop_tot     as dec
    field diff          as dec.

for each Debop no-lock
        where Debop.Firma   = '1000'
        and   Debop.Fakdat >= 09/01/2016:
    for each Savko no-lock
            where Savko.Firma = Debop.Firma
            and   Savko.Faknr = Debop.Faknr:
            
        create  tSavko.
        buffer-copy savko to tsavko
        assign  tsavko.debop_Datum = debop.fakdat
                tsavko.debop_tot   = debop.fakbetr.
    end.
end.

output to 'D:\Ge_MIS\Fakkontrolle.csv' no-map no-convert.
for each tsavko break by tsavko.knr by tsavko.faknr by tsavko.aufnr:
    if first-of ( tsavko.faknr ) then fakbetr = 0.
    export delimiter ';' tsavko.
    fakbetr = fakbetr + tsavko.auf_tot.
    if not last-of ( tsavko.faknr ) then next.
    diff = fakbetr - tsavko.debop_tot.
    export DELIMITER ';' tsavko.knr tsavko.faknr "" "" "" "" "" "" ""
            trim(string(fakbetr,'->>>>>>>>9.99'))
            trim(string(diff,'->>>>>>>>9.99')).
end.
output close.