*!*****************************************************************************

#DEFINE POCET_ZAZNAMU 20
LOCAL zoznamkodov, aktkod
IF VARTYPE(m.hotel_edikod)=="C" AND !EMPTY(m.hotel_edikod)
	IF m.issql
		USE (m.sqlprefix+"rfooddat_edikody") IN 0 ALIAS edikody
	ELSE
		IF USED("food_dat")
            SELECT distinct edi_kod, 1 as c_data FROM food_dat INTO CURSOR edikody WHERE pgm="MAN" AND !EMPTY(edi_kod) AND ALLTRIM(edi_kod)<>m.hotel_edikod
		ELSE
			USE (m.fn_food_dat) IN 0
            SELECT distinct edi_kod, 1 as c_data FROM food_dat INTO CURSOR edikody WHERE pgm="MAN" AND !EMPTY(edi_kod) AND ALLTRIM(edi_kod)<>m.hotel_edikod
			USE IN food_dat
		ENDIF 
	ENDIF 
    
    zapis_chybejici_cesty_do_ini()
    IF slovenskaverzia
        existujici_edi_kody_v_ini = zapis_chybejici_edikody_do_ini()
        dopln_edi_kody_do_ini()
    ENDIF 

	pocetedikodov = POCET_ZAZNAMU
	PUBLIC ARRAY zoznamedikodov(POCET_ZAZNAMU, 3)

	zoznamedikodov(1,1) = m.hotel_edikod
	zoznamedikodov(1,2) = m.gcedicesta
	zoznamedikodov(1,3) = 1

    FOR ii = 2 TO POCET_ZAZNAMU
        si=ALLTRIM(STR(m.ii))
        edikod   = get_ini("config",           "Edi_kod_" + m.si)
        edicesta      = get_ini(m.machine, "Cesta_k_EDI_" + m.si)
        IF EMPTY(m.edicesta)
             edicesta = get_ini("config" , "Cesta_k_EDI_" + m.si)
        ENDIF 

        zoznamedikodov(ii, 1) = m.edikod
        zoznamedikodov(ii, 2) = ""
        IF .not. EMPTY(m.edicesta)
           IF DIRECTORY(m.edicesta)
               backslash( @m.edicesta )
               zoznamedikodov(m.ii,2)=m.edicesta
           ENDIF 
        ENDIF 
        SELECT edikody
        LOCATE FOR ALLTRIM(edi_kod)=ALLTRIM(m.edikod)
        IF FOUND()
			zoznamedikodov(ii,3) = edikody.c_data
		ELSE
			zoznamedikodov(ii,3) = 1
		ENDIF 
    ENDFOR 
    IF VARTYPE(m.hotel_edikod_list)=="C" AND !EMPTY(m.hotel_edikod_list)
		m.zoznamkodov=m.hotel_edikod_list
	    FOR ii = 1 TO POCET_ZAZNAMU
			IF !EMPTY(zoznamedikodov(ii, 1))
				IF zoznamedikodov(ii, 1)$zoznamkodov
					m.zoznamkodov=STRTRAN(m.zoznamkodov,zoznamedikodov(ii, 1),"")
				ENDIF 
			ENDIF 
		ENDFOR 
		IF !EMPTY(m.zoznamkodov)
			DO WHILE !EMPTY(m.zoznamkodov)
				IF ","$m.zoznamkodov
					m.aktkod=LEFT(m.zoznamkodov,AT(",",m.zoznamkodov)-1)
					m.zoznamkodov=SUBSTR(m.zoznamkodov,	AT(",",m.zoznamkodov)+1)
				ELSE
					m.aktkod=m.zoznamkodov
					m.zoznamkodov=""
				ENDIF 
			    FOR ii = 1 TO POCET_ZAZNAMU
					IF EMPTY(zoznamedikodov(ii, 1))
						zoznamedikodov(ii,1)=m.aktkod
						EXIT 
					ENDIF 
				ENDFOR 
			ENDDO 
		ENDIF 
	ENDIF 
	DO pozavirej WITH "edikody, food_edi"
ENDIF 


*!*****************************************************************************
PROCEDURE zapis_chybejici_edikody_do_ini
#DEFINE RADEK_NEEXISTUJE "hovnooooooo"
seznam_edi_kodu = "_"
FOR i = 2 TO POCET_ZAZNAMU
    si=ALLTRIM(STR(m.i))
    edikod  =get_ini("config", "Edi_kod_"     + m.si, RADEK_NEEXISTUJE)
    IF m.edikod = RADEK_NEEXISTUJE
        put_ini("config", "Edi_kod_" + m.si, "")    && zalozi se prazdny radek do ini
    ELSE
        seznam_edi_kodu = m.seznam_edi_kodu + "_" + m.edikod
    ENDIF 
ENDFOR 
RETURN m.seznam_edi_kodu


*!*****************************************************************************
PROCEDURE zapis_chybejici_cesty_do_ini
#DEFINE RADEK_NEEXISTUJE "hovnooooooo"
FOR i = 2 TO POCET_ZAZNAMU
    si=ALLTRIM(STR(m.i))
    edicesta=get_ini("config", "Cesta_k_EDI_" + m.si, RADEK_NEEXISTUJE)
    IF m.edicesta = RADEK_NEEXISTUJE
        put_ini("config", "Cesta_k_EDI_" + m.si, "")
    ENDIF 
ENDFOR 


*!*****************************************************************************
FUNCTION dopln_edi_kody_do_ini (kod)
SELECT edikody
SCAN
    edikod1 = ALLTRIM(edikody.edi_kod)
    IF .not. edikod1 $ existujici_edi_kody_v_ini
        dopln_1_kod()
    ENDIF 
ENDSCAN 

*!*****************************************************************************
FUNCTION dopln_1_kod
FOR iii = 2 TO POCET_ZAZNAMU
    siii=ALLTRIM(STR(m.iii))
    edikod  =get_ini("config", "Edi_kod_" + m.siii)
    IF EMPTY(m.edikod)
        put_ini("config", "Edi_kod_" + m.siii, m.edikod1)
        EXIT 
    ENDIF 
ENDFOR 
