*    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    
*PROCEDURE spracujpasbardejov
PARAMETERS xml, m.edipor, m.orimeno, m.edimeno, m.kodedistred
PRIVATE m.hladajidedi
LOCAL pocetfaktur, faktura1, odberatel, dodavatel, polozky, polozka, pocetpoloziek, sumadokladu
#DEFINE CRLF CHR(13)+CHR(10)

pocetfaktur=1
hladajidedi=i_max("id_edi") 
otevri_edi_hlavpol()
insert_edihlav()
faktura1=vratsekciu("Doklad", m.xml,1,"X")
IF hladajsekciu("Dodavatel", m.faktura1)>0
    dodavatel=vratsekciu("Dodavatel", m.faktura1,1)
    SELECT edihlav
    REPLACE partner WITH vratsekciu("Obchodnemeno",m.dodavatel,1,"C",m.kodovastranka)
    REPLACE c_faktury WITH vratsekciu("Cislo",m.faktura1,1,"C")
    REPLACE dat_vyst WITH DATE()
    REPLACE ico WITH STRTRAN(vratsekciu("ICO",vratsekciu("Identifikacneudaje",m.dodavatel,1,"X"),1,"C")," ","")
    REPLACE icdph WITH vratsekciu("ICDPH",vratsekciu("Identifikacneudaje",m.dodavatel,1,"X"),1,"C")
    REPLACE dic WITH STRTRAN(icdph,"SK","")
    IF m.hotel_platca_dph
        REPLACE suma WITH vratsekciu("Zaklad",vratsekciu("Vyuctovanie",m.faktura1,1),1,"N")
    ELSE
        REPLACE suma WITH vratsekciu("Celkom",vratsekciu("Vyuctovanie",m.faktura1,1),1,"N")
    ENDIF 
    IF hladajsekciu("Polozky", m.faktura1)>0
        polozky=vratsekciu("Polozky", m.faktura1,1)
        pocetpoloziek=hladajsekciu("Polozka", m.polozky)
        sumadokladu=0
        FOR m.ii=1 TO m.pocetpoloziek
            polozka=vratsekciu("Polozka", 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("Mnozstvo",m.polozka,1,"N"),;
                vratsekciu("Cena",m.polozka,1,"N"),;
                0,;
                vratsekciu("DPH",m.polozka,1,"N"),;
                vratsekciu("Nazov",m.polozka,1,"C",m.kodovastranka)+" "+vratsekciu("MJ",m.polozka,1,"C"))
        ENDFOR
        RELEASE m.polozka 
        SELECT edipol
        IF !m.hotel_platca_dph
            REPLACE ALL cena WITH cena*(dan/100+1)
            REPLACE ALL dan WITH 0
        ENDIF 
        REPLACE ALL cena_celk WITH cena*mnozstvo
        SUM ALL cena_celk TO m.sumadokladu
        druhy_doklad_z_minusu()
        uloz_a_zavri_hlav_a_pol()
    ELSE
        chybatxt=m.chybatxt+CRLF+"Chybaju polozky v doklade "+ALLTRIM(edihlav.c_faktury)
    ENDIF 
ELSE
    chybatxt=m.chybatxt+CRLF+"Chybaju udaje o dodavatelovi v doklade "+ALLTRIM(edihlav.c_faktury)
ENDIF 

era_and_ok_or_err()

