PARAMETERS dennyexport, uzaverka1, uzaverka2, src_path, zkontroly
PRIVATE m.navrat
*src_path = m.gccen_path

old_errh = ON("ERROR")
PRIVATE m.hladajidlimit, m.hladajidden, m.datum, m.kk1, m.kk2, m.hladajdatumod, m.hladajdatumdo
PRIVATE m.chod, m.por1, m.typreportu, m.menolimitu, m.hladajidstrav, m.meno

m.hladajdatumod=m.uzaverka1
m.hladajdatumdo=m.uzaverka2
IF USED("list12")
	SELECT list12
	=REQUERY("list12")
ELSE
	SELECT 0
	IF m.issql
		USE (m.sqlprefix+"rlimityvobdobibezarchivu") ALIAS list12
	ELSE
		USE vlimityvobdobibezarchivu ALIAS list12
	ENDIF 
ENDIF 
DO pozavirej WITH "rxpolozky"
SELECT list12
SCAN ALL 
	m.hladajidlimit=list12.id_limit
	m.menolimitu=list12.menolimit
	IF m.hladajidlimit<>0
		IF USED("dnizoznam")
			REQUERY("dnizoznam")
		ELSE
			IF m.issql
				USE (m.sqlprefix+"rlimdnizoznam") ALIAS dnizoznam IN 0 
			ELSE
				USE vlimdnizoznam ALIAS dnizoznam IN 0 
			ENDIF 
		ENDIF 
		SELECT dnizoznam
		SCAN FOR datum>=m.hladajdatumod AND datum<=m.hladajdatumdo
			SELECT dnizoznam
			m.hladajidden=dnizoznam.id_den
			m.datum=dnizoznam.datum
			IF !EMPTY(m.hladajidden)
				IF USED("chody")
					=REQUERY("chody")
				ELSE
					IF m.issql
						USE (m.sqlprefix+"rlimchodyden") ALIAS chody IN 0 
					ELSE
						USE vlimchodyden ALIAS chody IN 0 
					ENDIF 
				ENDIF 
				SELECT chody
				SCAN ALL 
					m.hladajidrov=chody.id_rov
					m.chod=chody.chod
					m.por1=chody.poradie
					IF USED("rxpolozky")
						=REQUERY("rxpolozky")
					ELSE
						IF m.issql
							USE (m.sqlprefix+"rlimstravarov") IN 0 ALIAS rxpolozky
						ELSE
							USE vlimstravarov IN 0 ALIAS rxpolozky
						ENDIF 
					ENDIF 
					IF USED("llist12") 
						INSERT INTO llist12 (menolimit, datum, chod, por1, id_strav, pocet) SELECT m.menolimitu as menolimit, m.datum as datum, m.chod as chod, m.por1 as por1, id_strav, pocet FROM rxpolozky  
					ELSE 
						SELECT m.menolimitu as menolimit, m.datum as datum, m.chod as chod, m.por1 as por1, id_strav, pocet FROM rxpolozky INTO CURSOR llist12 READWRITE
					ENDIF
					SELECT chody 
				ENDSCAN 
			ENDIF
			SELECT dnizoznam 
		ENDSCAN 
		SELECT llist12
		IF USED("stravnici")
			=REQUERY("stravnici")
		ELSE
			IF m.issql
				USE (m.sqlprefix+"rlimstravnici") IN 0 ALIAS stravnici
			ELSE
				IF !USED("nlimitstravnici")
					USE (m.fn_limitstravnici) ALIAS nlimitstravnici IN 0
				ENDIF 
				USE vlimstravnici ALIAS stravnici IN 0
			ENDIF 
		ENDIF 
		SELECT  llist12.datum, llist12.id_strav, SUM(llist12.pocet) as pocet, stravnici.priezvisko, stravnici.meno, stravnici.stredisko, stravnici.oscislo FROM llist12 LEFT JOIN stravnici ON llist12.id_strav=stravnici.id_strav INTO CURSOR uexstrava READWRITE GROUP BY llist12.id_strav, llist12.datum
	ENDIF 
ENDSCAN 
DO pozavirej WITH "llist12, lllist12, list12out, menaludi, rxpolozky, nlimitstravnici, stravnici, dnizoznam, chody, list12"
