*    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *
*
* prg cte predpripravenou databazi z programu s_trzby_new/s_plat_dph, kde se platby2 kopiruji po výpočtu výnosů a částek DPH do databaze frontiere a generuje CSV
*
*    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *

#DEFINE CRLF         CHR(13)+CHR(10)
#DEFINE ODD          ";"
ACTIVATE SCREEN 

exportni_soubor = m.gcexportpath + "frontiere"
WAIT m.exportni_soubor WINDOW TIMEOUT 2

IF USED("frontiere")
    SELECT frontiere
ELSE
    SELECT 0
    USE (m.exportni_soubor) ALIAS frontiere NOUPDATE 
ENDIF 

DO generuj_csv
USE IN frontiere


*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  
PROCEDURE generuj_csv

? left(time(), 6) + "generating " + m.exportni_soubor + ".csv"
INDEX on id_kas + uzaverka + u_cis + druh_pl TO qweqwe
STRTOFILE("Pokladna; Uzaverka; CisloUctu; DruhPlatby        ;         DZ0;       DPH0;      Trzba0;         DZ1;       DPH1;      Trzba1;         DZ2;       DPH2;      Trzba2;         DZ3;       DPH3;      Trzba3" + CRLF, m.exportni_soubor + ".csv")

SCAN FOR trzba1 # 0 .OR. trzba2 # 0 .OR. trzba3 # 0 .OR. trzba4 # 0
    radek =                 id_kas + ODD + uzaverka + ODD + u_cis + ODD + LEFT(druh_pl, 22)
    radek = m.radek + ODD + nx(vynos1, 2,12) + ODD + nx(dan__1, 2,11) + ODD + nx(trzba1, 2,12)
    radek = m.radek + ODD + nx(vynos2, 2,12) + ODD + nx(dan__2, 2,11) + ODD + nx(trzba2, 2,12)
    radek = m.radek + ODD + nx(vynos3, 2,12) + ODD + nx(dan__3, 2,11) + ODD + nx(trzba3, 2,12)
    radek = m.radek + ODD + nx(vynos4, 2,12) + ODD + nx(dan__4, 2,11) + ODD + nx(trzba4, 2,12)
    STRTOFILE(radek + CRLF, m.exportni_soubor + ".csv", 1)
ENDSCAN 



*    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *
FUNCTION nx2_____ (nxcislo, nxdelka, nxdes_mist)
IF EMPTY(m.nxdes_mist)
    nxdes_mist = 2
ENDIF 
RETURN PADL(STRTRAN(ALLTRIM(STR(IIF(ISNULL(m.nxcislo), 0, m.nxcislo), 12, m.nxdes_mist)), ",", "."), nxdelka)

