*    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    
PARAMETERS xml, m.edipor, m.orimeno, m.edimeno, m.kodedistred
PRIVATE m.hladajidedi
LOCAL pocetfaktur, pocetdodakov, faktura1, odberatel, dodavatel, polozky, polozka, pocetpoloziek, sumadokladu, chybatxt, faktury, datumdokladu
#DEFINE CRLF CHR(13)+CHR(10)
chybatxt=""
faktura=vratsekciu("WAC_Object", m.xml,1,"X")
pocetfaktur=1
IF m.pocetfaktur>0 
    FOR m.i=1 TO m.pocetfaktur
        hladajidedi=i_max("id_edi") 
        otevri_edi_hlavpol()
        insert_edihlav()
        SELECT edihlav
        REPLACE c_faktury WITH vratsekciu("D_List",m.faktura,1,"C")
        datumdokladu=vratsekciu("Datum", m.faktura,1,"C")
        IF "." $ m.datumdokladu
            REPLACE dat_vyst WITH CTOD(m.datumdokladu)
        ELSE 
            REPLACE dat_vyst WITH CTOD(SUBSTR(m.datumdokladu,9,2)+"."+SUBSTR(m.datumdokladu,6,2)+"."+LEFT(m.datumdokladu,4))
        ENDIF 
        IF hladajsekciu("Items", m.faktura)>0
            polozky=vratsekciu("Items", m.faktura,1)
            pocetpoloziek=hladajsekciu("Item", m.polozky)
            sumadokladu=0
            FOR m.ii=1 TO m.pocetpoloziek
                polozka=vratsekciu("Item", m.polozky, m.ii)
                INSERT INTO edipol (id_edi, c_data, riadok, ean, kod_zak, mnozstvo, cena, cena_celk, dan, nazov) VALUES ;
                    (m.hladajidedi, m.cdata,;
                    m.ii,;
                    vratsekciu("EAN",m.polozka,1,"C"),;
                    vratsekciu("Kod",m.polozka,1,"C"),;
                    vratsekciu("Mnozstvi",m.polozka,1,"N"),;
                    vratsekciu("CenaZaklad",m.polozka,1,"N"),;    
                    0,;
                    0,;
                    vratsekciu("Nazev",m.polozka,2,"C", m.kodovastranka))
                sumadokladu=m.sumadokladu+vratsekciu("CenaZaklad",m.polozka,1,"N")*vratsekciu("Mnozstvi",m.polozka,1,"N")
            ENDFOR
            SELECT edipol
            REPLACE ALL cena_celk WITH mnozstvo*cena
            SELECT edihlav
            REPLACE suma WITH m.sumadokladu
            RELEASE m.polozka, m.polozky 
            druhy_doklad_z_minusu()
            uloz_a_zavri_hlav_a_pol()
        ELSE
            chybatxt=m.chybatxt+CRLF+"Chybaju polozky v doklade "+ALLTRIM(edihlav.c_faktury)
        ENDIF 
    ENDFOR  
ELSE 
    chybatxt=m.chybatxt+CRLF+"Subor neobsahuje faktury"
ENDIF 

era_and_ok_or_err()
