*
*
*     novobal pro hajka
*
* 2023-07-21 - ze stringovych fieldu smaze pripadne uvozovky a apostrofy, protoze ti debilove to posilaji pokazde jiank
*
*
*



*Doklad;Cislo_dokladu;Datum;Firma;Adresa_zbozi_dorucit;Produkt;mnozstvi;Popis;Jednotky;Cena_za_jednotku;u_jmenododavatele
*Výdejka;SD3-2023-00499;4.7.2023;Ovocný světozor;Chodov;13.037 6 1c;-150;Chmm-chlebickova nejmensi - jednodilna (250x250x55);ks;7,31;NOVOBAL s.r.o.
*Výdejka;SD3-2023-00499;4.7.2023;Ovocný světozor;Chodov;13.037 7 1;-50;Chv- chlebickova velka - dvoudilna (450x360x75) - nová grafika;ks;18,97;NOVOBAL s.r.o.

*   0            1           2         3           4        5                        6                                       7         8    9      10   

riadok = 2000
insert_edihlav()

DO WHILE !FEOF(m.edisubor)
    txtriadok=FGETS(m.edisubor) + ";;;;;;;;;;;;;;;;;;;;;;;;"

    c_faktury = sxs(m.txtriadok, 1)

    dat_vyst  = "." + sxs(m.txtriadok, 2)
    dat_vyst  = DATE(v_sss(m.dat_vyst, 3, "."), v_sss(m.dat_vyst, 2, "."), v_sss(m.dat_vyst, 1, "."))

    edi_stred = sxs(m.txtriadok, 4)
    ico       = sxs(m.txtriadok, 10)
    partner   = m.ico

    SELECT edihlav
    GATHER MEMVAR FIELDS c_faktury, dat_vyst, partner, ico, edi_stred

    riadok    =     m.riadok + 1
    ean       = STRTR(sxs(m.txtriadok, 5), " ", "")   && odstrani se mezery
    kod_zak   =   m.ean

    nazov     =     sxs(m.txtriadok, 7) + sxs(m.txtriadok, 8)
    nazov     = STRTR(m.nazov, " -", "-")
    nazov     = STRTR(m.nazov, "- ", "-")
    nazov     = STRTR(m.nazov, "(", "")
    nazov     = STRTR(m.nazov, ")", "")

    mnozstvo  = - v_sss(m.txtriadok, 6)
    cena      =   v_sss(m.txtriadok, 9)
    cena_celk =   m.cena * m.mnozstvo
    dan       = 1.0
    
    INSERT INTO edipol (id_edi     , c_data,   riadok,   ean,   kod_zak,   mnozstvo,   cena,   cena_celk,   dan,   nazov) ;
            VALUES  (m.hladajidedi, m.cdata, m.riadok, m.ean, m.kod_zak, m.mnozstvo, m.cena, m.cena_celk, m.dan, m.nazov)

ENDDO 

druhy_doklad_z_minusu()
uloz_a_zavri()


** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** 
FUNCTION sxs (texticek, pozice, oddelovac)
PRIVATE pom
IF EMPTY(m.oddelovac)
    oddelovac = ";"
ENDIF 

pom = SUBSTR(m.texticek, AT(m.oddelovac, m.texticek, m.pozice) + 1) + m.oddelovac
pom = ALLTRIM(LEFT(m.pom, AT(m.oddelovac, m.pom,1) - 1))
pom = STRTR(m.pom, '"', '')
pom = STRTR(m.pom, "'", "")

RETURN m.pom
