*!*****************************************************************************
*!      Procedure: CREA_FILE
*!*****************************************************************************
LPARAM cf
*
* vola se bud s nazvem adresare (konci backslashitkem), potom v nem vytvori vsechny soubory,
* ktere neexistuji, nebo s nazvem souboru vc. cesty, pak vytvori jen tento soubor,
* neexistuje-li

IF TYPE("def_cp") = "U"
	m.def_cp = 1250
ENDIF

IF m.def_cp # 1250
	IF MESSAGEBOX("mate nastavenu archaickou kodovou stranku " + STR(m.def_cp, 5) + "," + CHR(13) + "nechcete radsi nastavit stranku 1250?",3+32,"") = 6
		m.def_cp = 1250
		UPDATE (gchom_path + "food_set.dbf") SET var_value = STR(m.def_cp) WHERE LOWER(ALLTRIM(var_name)) = "def_cp"
	ENDIF
ENDIF


ret_value = .T.
IF RIGHT(m.cf, 1) # "\"
	DO crea_f_2 WITH m.cf

ELSE
	MKDIR (m.cf)
	DO crea_f_2 WITH m.cf + "OBJ_STRAVY"
	DO crea_f_2 WITH m.cf + "BOURAK"
	DO crea_f_2 WITH m.cf + "DAVKY"
	DO crea_f_2 WITH m.cf + "DLUHY"
	DO crea_f_2 WITH m.cf + "DOKLADY"
	DO crea_f_2 WITH m.cf + "DOKL_STO"
	DO crea_f_2 WITH m.cf + "SKUPINY"
	DO crea_f_2 WITH m.cf + "ZMENADPH"
	DO crea_f_2 WITH m.cf + "KARTY"
	DO crea_f_2 WITH m.cf + "OBRA_STO"
	DO crea_f_2 WITH m.cf + "PARTNERI"
	DO crea_f_2 WITH m.cf + "POLOZKY"
	DO crea_f_2 WITH m.cf + "SKLAD"
	DO crea_f_2 WITH m.cf + "ALKOHOL"
	DO crea_f_2 WITH m.cf + "UMISTENI"
	DO crea_f_2 WITH m.cf + "UMDRUHY"
	DO crea_f_2 WITH m.cf + "SPDAN"
	DO crea_f_2 WITH m.cf + "VAHINV"
	DO crea_f_2 WITH m.cf + "SK_FIN"
	DO crea_f_2 WITH m.cf + "SK_PLT"
	DO crea_f_2 WITH m.cf + "SK_POL"
	DO crea_f_2 WITH m.cf + "SK_SEZ"
	DO crea_f_2 WITH m.cf + "SK_TXT"
	DO crea_f_2 WITH m.cf + "SK_FIS"
	DO crea_f_2 WITH m.cf + "SK_VKLKVY"

	DO crea_f_2 WITH m.cf + "SK_FIN_A"
	DO crea_f_2 WITH m.cf + "SK_PLT_A"
	DO crea_f_2 WITH m.cf + "SK_POL_A"
	DO crea_f_2 WITH m.cf + "SK_SEZ_A"
	DO crea_f_2 WITH m.cf + "SK_TXT_A"
	DO crea_f_2 WITH m.cf + "SK_FIS_A"
	DO crea_f_2 WITH m.cf + "SK_VKLKVY_A"

	DO crea_f_2 WITH m.cf + "FOOD_DAT"
	DO crea_f_2 WITH m.cf + "FOOD_SET"
	DO crea_f_2 WITH m.cf + "MAXIMA"
	DO crea_f_2 WITH m.cf + "USERS"
	DO crea_f_2 WITH m.cf + "ERRORS"
	DO crea_f_2 WITH m.cf + "SEMAFORY"
	DO crea_f_2 WITH m.cf + "SER_TIME"
	DO crea_f_2 WITH m.cf + "UZAVERKA"
	DO crea_f_2 WITH m.cf + "LIMITY"
	DO crea_f_2 WITH m.cf + "LIMIT_HL"
	DO crea_f_2 WITH m.cf + "LIMITDNI"
	DO crea_f_2 WITH m.cf + "LIMITY_A"
	DO crea_f_2 WITH m.cf + "LIMHL_A"
	DO crea_f_2 WITH m.cf + "LIMDNI_A"
	DO crea_f_2 WITH m.cf + "PAROVAKY"
	DO crea_f_2 WITH m.cf + "EURO"
	DO crea_f_2 WITH m.cf + "UCTOBD"
	DO crea_f_2 WITH m.cf + "CAS_POL"
	DO crea_f_2 WITH m.cf + "CAS_HLAV"
	DO crea_f_2 WITH m.cf + "HH_KALK"
	DO crea_f_2 WITH m.cf + "HH_DRUH"
	DO crea_f_2 WITH m.cf + "HH_HLAV"
	DO crea_f_2 WITH m.cf + "OBR_ALK"
	DO crea_f_2 WITH m.cf + "LISTOVANIE"
	DO crea_f_2 WITH m.cf + "PREVADZKARNE"
	DO crea_f_2 WITH m.cf + "UEXARCHOBRATY"
	DO crea_f_2 WITH m.cf + "UEXARCHPOLOZKY"
	DO crea_f_2 WITH m.cf + "UEXARCHPLATBY"
	DO crea_f_2 WITH m.cf + "UEXARCHSTRAVA"
	DO crea_f_2 WITH m.cf + "SAP_CD"
	IF is_newlim
		DO crea_f_2 WITH m.cf + "NLIMITY"
		DO crea_f_2 WITH m.cf + "NLIMIT_HL"
		DO crea_f_2 WITH m.cf + "NLIMITDNI"
		DO crea_f_2 WITH m.cf + "NLIMITROV"
		DO crea_f_2 WITH m.cf + "NLIMITTYPY"
		DO crea_f_2 WITH m.cf + "NLIMITCHODY"
		DO crea_f_2 WITH m.cf + "NLIMITSTRAVA"
		DO crea_f_2 WITH m.cf + "NLIMITSTRAVNICI"
		DO crea_f_2 WITH m.cf + "NLIMITSTATUS"
		DO crea_f_2 WITH m.cf + "NLIMITTYPCHODY"
		DO crea_f_2 WITH m.cf + "NLIMITSABLONYHL"
		DO crea_f_2 WITH m.cf + "NLIMITSABLONYDNI"
		DO crea_f_2 WITH m.cf + "NLIMITSABLONYPOL"
		DO crea_f_2 WITH m.cf + "NLIMITY_A"
		DO crea_f_2 WITH m.cf + "NLIMIT_HL_A"
		DO crea_f_2 WITH m.cf + "NLIMITDNI_A"
		DO crea_f_2 WITH m.cf + "NLIMITROV_A"
		DO crea_f_2 WITH m.cf + "NLIMIT_HLADINY"
		DO crea_f_2 WITH m.cf + "NLIMITROV_HLADINY"
	ENDIF
ENDIF
RETURN m.ret_value


*!*****************************************************************************
PROCEDURE crea_f_2
	LPARAM cf_soubor
	cf_soubor = UPPER(m.cf_soubor)
	ERASE (m.gcpri_path + "_pom_.dbf")
	err_h_info = cf_soubor
	DO CASE
		CASE FILE(m.cf_soubor + ".DBF")
			WAIT "CREA_FILE: " + m.cf_soubor + " already exist" WIND TIME .5 AT 22,22

		CASE "BAZ_ZONY" $ cf_soubor  &&   &   &   &   &   &   &     BAZ_ZONY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
			    zona		C(20),;
			    pristup		C(50),;
			    c_karty		I,;
			    cezcas		N(5,0),;
			    cas0		N(5,0),;
			    typ_baz		C(10),;
				id_zona	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "BAZ_PRECHODY" $ cf_soubor  &&   &   &   &   &   &   &     BAZ_PRECHODY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_zamok	I,;
				id_zona1	I,;
				id_zona2	I,;
			    zamok		C(50),;
				zmaz		L,;
			    typ_baz		C(10),;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "BAZ_PRISTUPY" $ cf_soubor  &&   &   &   &   &   &   &     BAZ_PRISTUPY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				name		C(30),;
				oldextid	C(50),;
				zmaz		L,;
			    typ_baz		C(10),;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "BAZ_POHYBY" $ cf_soubor  &&   &   &   &   &   &   &     BAZ_POHYBY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_zamok	I,;
			    zamok		C(50),;
				smer		C(1),;
			    karta		C(30),;
			    izba		C(10),;
			    datcas		T,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "BAZ_ZAMKY" $ cf_soubor  &&   &   &   &   &   &   &     BAZ_ZAMKY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
			    zamok		C(50),;
				zmaz		L,;
			    typ_baz		C(10),;
				id_zamok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "BAZ_KALKULACIE" $ cf_soubor  &&   &   &   &   &   &   &     BAZ_KALKULACIE
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
			    typ_baz		C(10),;
			    c_karty		I,;
			    is_podm		L,;
			    c_podm		I,;
				zmaz		L,;
				spol_cas	L,;
			    nazev		C(30),;
			    pocet		I,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "BAZ_KALKZONY" $ cf_soubor  &&   &   &   &   &   &   &     BAZ_KALKZONY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
			    c_karty		I,;
			    c_dopl		I,;
			    cas			I,;
			    cezcas		I,;
			    cas0		I,;
			    id_zona		I,;
				zmaz		L,;
				povol		L,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "BAZ_IZBY" $ cf_soubor  &&   &   &   &   &   &   &     BAZ_IZBY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
			    izba		C(10),;
			    karta		C(20),;
				zmaz		L,;
			    id_kas		C(2),;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "OBJ_STRAVY" $ cf_soubor  &&   &   &   &   &   &   &     OBJ_STRAVY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
			    id_karty	I,;
			    id_ucet		I,;
			    id_limit	I,;
			    id_den		I,;
			    id_rov		I,;
			    dieta		C(5),;
			    skupina		C(1),;
			    poradie		C(4),;
			    pocet		N(3,0),;
			    prenesene	L,;
			    vydane		L,;
			    dat_vyd		T,;
			    dat_obj		T,;
			    dat_pren	T,;
			    cena		N(10,2),;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "TYPYPOHYBOV" $ cf_soubor  &&   &   &   &   &   &   &     TYPY_POHYBOV
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				typ_zakl		c(2)	,;
				meno			c(50)	,;
				typ_part		i		,;
				c_partner		i		,;
				typ_ceny		i		,;
				poradie			i		,;
				zmazane			l		,;
				id_typ			i		,;
				typ_spotr		i		,;
				id_kas			c(2)	,;
				cen_hlad		c(2)	,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "UZAVERKA_POHYBY" $ cf_soubor  &&   &   &   &   &   &   &     UZAVERKA_POHYBY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				mesiac		c(2)	,;
				rok			c(4)	,;
				c_stredisk	i		,;
				operace		c(2)	,;
				typ_pohybu	i		,;
				suma		y		,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "DRUHYZLIAV" $ cf_soubor  &&   &   &   &   &   &   &     DRUHYZLIAV
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				nazev_klic	c(25)	,;
				nazev		c(8)	,;
				prg_dotaz	c(30)	,;
				prg_natiz	c(30)	,;
				j0			c(30)	,;
				j1			c(30)	,;
				j2			c(30)	,;
				j3			c(30)	,;
				j4			c(30)	,;
				typ_zlavy	c(1)	,;
				zlava		n(6,2)	,;
				premenna	c(20)	,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "SPRAVYSKUPINY" $ cf_soubor  &&   &   &   &   &   &   &     Spravy skupiny
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				skupina		c(40),;
				id_skup	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "SPRAVYVSKUPINE" $ cf_soubor  &&   &   &   &   &   &   &     Spravy v skupine
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_skup		I,;
				id_sprava	I,;
				poradie		I,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "SPRAVYKUKASE" $ cf_soubor  &&   &   &   &   &   &   &     Spravy ku kase
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_kas		C(2),;
				id_sprava	I,;
				poradie		I,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "SPRAVY" $ cf_soubor  &&   &   &   &   &   &   &     Spravy
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				sprava		c(40),;
				id_sprava	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE


		CASE "MAGNETICA_POL" $ cf_soubor  &&   &   &   &   &   &   &     MAGNETICA_HLAV
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				ID			i,;
				c_karty		i,;
				nazev		c(30),;
				cena		Y,;
				dph			N(5,2),;
				mnozstvo	Y,;
				ean			c(50),;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "MAGNETICA_HLAV" $ cf_soubor  &&   &   &   &   &   &   &    MAGNETICA_POL
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				ID			i,;
				priezvisko	c(50),;
				meno		c(50),;
				adresa		c(50),;
				mesto		c(50),;
				psc			c(10),;
				telefon		c(50),;
				email		c(50),;
				ico			c(20),;
				dic			c(20),;
				icdph		c(20),;
				firma		c(50),;
				dor_przv	c(50),;
				dor_meno	c(50),;
				dor_adresa	c(50),;
				dor_mesto	c(50),;
				dor_psc		c(10),;
				dor_tel		c(50),;
				dor_mail	c(50),;
				stav		i,;
				id_limit	i,;
				id_den		i,;
				id_rov		i,;
				c_partner	i,;
				potvrdene	l,;
				ext_id		i,;
				datum		d,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "SAP_CD" $ cf_soubor  &&   &   &   &   &   &   &     SAP_CD
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				meno		c(8),;
				pc			i,;
				den			c(2),;
				mesiac		c(2),;
				rok			c(4),;
				evidencia	c(3),;
				cisrad		c(4),;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "UEXARCHOBRATY" $ cf_soubor  &&   &   &   &   &   &   &     UEXARCHOBRATY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				datum		c(10),;
				c_dokl		i,;
				id_man		c(2),;
				druh		c(20),;
				partner		c(30),;
				castka		N(14,2),;
				spdan		N(4,2),;
				MD		c(8),;
				dal		c(8),;
				hs_md		c(15),;
				hs_dal		c(15),;
				md2		c(15),;
				dal2		c(15),;
				pz		c(50),;
				poznamka	c(50),;
				zaloha		l,;
				faktura		c(10),;
				operace		c(2),;
				rok		c(4),;
				mesiac		c(2),;
				storno		l,;
				vymaz		l,;
				datum_dokl	d,;
				doklad		i,;
				dph		n(5,2),;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "UEXARCHPLATBY" $ cf_soubor  &&   &   &   &   &   &   &     UEXARCHPLATBY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				u_cis		c(7),;
				uzaverka	c(17),;
				id_kas		c(2),;
				druh_pl		c(8),;
				castka		N(14,2),;
				MD			c(8),;
				dal			c(8),;
				hs_md		c(15),;
				hs_dal		c(15),;
				md2			c(7),;
				dal2		c(7),;
				pz			c(50),;
				poznamka	c(50),;
				zaloha		l,;
				faktura		c(10),;
				partner		c(30),;
				rok			c(4),;
				mesiac		c(2),;
				datum_dokl	d,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "UEXARCHPOLOZKY" $ cf_soubor  &&   &   &   &   &   &   &     UEXARCHPOLOZKY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				u_cis		c(7),;
				uzaverka	c(17),;
				id_kas		c(2),;
				id_man		c(2),;
				druh		c(20),;
				dan_sadzba	N(5,2),;
				dan_zakl	N(14,2),;
				castka		N(14,2),;
				MD			c(8),;
				dal			c(8),;
				hs_md		c(15),;
				hs_dal		c(15),;
				md2			c(7),;
				dal2		c(7),;
				datum_dokl	d,;
				pz			c(50),;
				poznamka	c(50),;
				zaloha		l,;
				faktura		c(10),;
				partner		c(30),;
				rok			c(4),;
				mesiac		c(2),;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "UEXARCHSTRAVA" $ cf_soubor  &&   &   &   &   &   &   &     UEXARCHSTRAVA
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_strav	i		,;
				datum		d		,;
				pocet		i		,;
				suma		Y		,;
				oscislo		c(20)	,;
				stredisko	c(30)	,;
				MD			c(10)	,;
				dal			c(10)	,;
				dph_dal		c(10)	,;
				dph			N(5,2)	,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "LISTOVANIE" $ cf_soubor  &&   &   &   &   &   &   &     LISTOVANIE
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_stredisk		i	,;
				operace			c(2),;
				c_partner		i	,;
				c_karty			i	,;
				mnozstvi		Y	,;
				id_list			i	,;
				meno_list		c(30),;
				pz1				c(15),;
				pz2				c(15),;
				hlav			l,;
				poradie			i,;
				idriadok		i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "OMAN_ZAMENY" $ cf_soubor  &&   &   &   &   &   &   &     OMAN_ZAMENY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				prn_no		c(2),;
				prn_no_alt	c(2),;
				id_man_alt	c(2),;
				predv		l,;
				zmaz		l,;
				popis		c(30))
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "HORES_D" $ cf_soubor  &&   &   &   &   &   &   &     HORES_D
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				hor_pref	c(6),;
				hor_path	c(200),;
				hor_hotel	c(25),;
				hor_ip		c(40),;
				hor_port	i,;
				hor_meno	c(30),;
				hor_heslo	c(30),;
				hor_cdx		l,;
				hor_kasa	c(2),;
				api_meno	c(30),;
				api_heslo	c(30),;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "Z_HORES10" $ cf_soubor  &&   &   &   &   &   &   &     Z_HORES10
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_polozky	i,;
				raster_id	i,;
				c_karty		i,;
				id_man		c(2),;
				id_hotel	i,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "Z_HORCA" $ cf_soubor  &&   &   &   &   &   &   &     Z_HORCA
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				kod			c(7),;
				c_karty		i,;
				nazev		c(30),;
				id_man		c(2),;
				id_kas		c(2),;
				LABEL		l,;
				cena		Y,;
				dan			i,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "EDI_HLAV" $ cf_soubor  &&   &   &   &   &   &   &     EDI_HLAV
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_edi		i,;
				subor		c(99),;
				c_faktury	c(15),;
				dat_vyst	d,;
				ico			c(15),;
				dic			c(15),;
				icdph		c(15),;
				partner		c(35),;
				ulica		c(35),;
				mesto		c(35),;
				psc			c(6),;
				iban		c(35),;
				swift		c(10),;
				suma		Y,;
				c_dokl		i,;
				edi_kod		c(15),;
				edi_stred	c(50),;
				is_order	L,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "EDI_POL" $ cf_soubor  &&   &   &   &   &   &   &     EDI_POL
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_edi		i,;
				riadok		i,;
				ean			c(25),;
				kod_zak		c(25),;
				mnozstvo	N(12,3),;
				cena		N(12,4),;
				cena_celk	N(12,4),;
				dan			N(5,2),;
				nazov		c(70),;
				c_karty		i,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "PR_HORES10_UZAV" $ cf_soubor  &&   &   &   &   &   &   &     PR_HORES10_UZAV
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				uct_den		d,;
				uzaverka	c(17),;
				prenos		l,;
				c_uzav		i,;
				id_hotel	i,;
				idriadok 	i AUTOINC)

			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "PR_HORES10" $ cf_soubor  &&   &   &   &   &   &   &     PR_HORES10
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				typ			c(1),;
				ID			i,;
				raster_id	i,;
				cena_celk	Y,;
				id_meny		i,;
				datum		d,;
				cas			c(8),;
				doklad		c(30),;
				cena		Y,;
				pocet		i,;
				id_rodic	i,;
				id_pol		i,;
				c_karty		i,;
				id_platba	i,;
				id_man		c(2),;
				pr			N(5,3),;
				c_uzav		i,;
				id_hotel	i,;
				idriadok 	i AUTOINC)

			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "PR_HORES" $ cf_soubor  &&   &   &   &   &   &   &     PR_HORES
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_kas		c(2),;
				c_karty		i,;
				mnozstvi	Y,;
				cena		Y,;
				pr			N(5,3),;
				datum		T,;
				nazev		c(30),;
				uzaverka	c(17),;
				druh_pl		c(8),;
				doklad		i,;
				id_man		c(2),;
				TEXT		c(40),;
				user_id		c(3))
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE


		CASE "INV_ULOZ" $ cf_soubor  &&   &   &   &   &   &   &     INV_ULOZ
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_karty		i		,;
				mnozstvi	Y		,;
				c_stredisk	i		,;
				na_sklade	Y		,;
				kdy			T		,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "INVENTUR" $ cf_soubor  &&   &   &   &   &   &   &     INVENTUR
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_karty		i		,;
				mnozstvi	Y		,;
				c_stredisk	i		,;
				vk			c(1)	,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "NLIMIT_HLADINY" $ cf_soubor  &&   &   &   &   &   &   &     LIMITY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
			    idriadok	I AUTOINC,;
				id_limit	I,;
				hladina		c(30),;
				c_hlad		i,;
				hores_kody	M,;
				is_deleted	L)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE
			IF FILE(m.fn_limit_hl+".dbf")
				SELECT 0
				USE (m.fn_limit_hl) IN 0 ALIAS nlimit_hl
				INSERT INTO nlimit_hladiny (id_limit, c_hlad, hladina) SELECT id_limit, 1 AS c_hlad, hladina1 FROM nlimit_hl WHERE !EMPTY(hladina1)
				INSERT INTO nlimit_hladiny (id_limit, c_hlad, hladina) SELECT id_limit, 2 AS c_hlad, hladina2 FROM nlimit_hl WHERE !EMPTY(hladina2)
				UPDATE nlimit_hl SET hladina1='' WHERE !EMPTY(hladina1)
				UPDATE nlimit_hl SET hladina2='' WHERE !EMPTY(hladina2)
				USE IN nlimit_hl
			ENDIF 
			IF FILE(m.fn_limittypy+".dbf")
				SELECT 0
				USE (m.fn_limittypy) IN 0 ALIAS nlimittypy
				INSERT INTO nlimit_hladiny (id_limit, c_hlad, hladina) SELECT -1000000*id_typ, 1 AS c_hlad, jaz("form_dospely") as hladina FROM nlimittypy WHERE !(id_typ IN (SELECT id_limit/-10000000 FROM nlimit_hladiny WHERE c_hlad=1))
				INSERT INTO nlimit_hladiny (id_limit, c_hlad, hladina) SELECT -1000000*id_typ, 2 AS c_hlad, jaz("form_dieta") as hladina FROM nlimittypy WHERE !(id_typ IN (SELECT id_limit/-10000000 FROM nlimit_hladiny WHERE c_hlad=2))
				USE IN nlimittypy
			ENDIF 
			SELECT nlimit_hladiny
		CASE "NLIMITROV_HLADINY" $ cf_soubor  &&   &   &   &   &   &   &     LIMITY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
			    idriadok	I AUTOINC,;
				id_rov		I,;
				id_den		I,;
				hodnota		N(20,10),;
				c_hlad		i,;
				lbl			l,;
				pocet		N(5))
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE
			USE (m.fn_limitrov) IN 0 ALIAS nlimitrov
			INSERT INTO nlimitrov_hladiny (id_den, id_rov, c_hlad, hodnota, pocet) SELECT id_den, id_rov, 1 AS c_hlad, limit1, pocet1 FROM nlimitrov WHERE limit1<>0 or pocet1<>0
			INSERT INTO nlimitrov_hladiny (id_den, id_rov, c_hlad, hodnota, pocet) SELECT id_den, id_rov, 2 AS c_hlad, limit2, pocet2 FROM nlimitrov WHERE limit2<>0 or pocet2<>0
			UPDATE nlimitrov SET limit1=0, pocet1=0 WHERE limit1<>0 or pocet1<>0
			UPDATE nlimitrov SET limit2=0, pocet2=0 WHERE limit2<>0 or pocet2<>0
			USE IN nlimitrov
			SELECT nlimitrov_hladiny

		CASE "NLIMITSABLONYHL" $ cf_soubor  &&   &   &   &   &   &   &     LIMITY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				menolimit	c(50) NOCP	,;
				pocetdni	i			,;
				id_typ		i			,;
				id_chod		i			,;
				id_limit	i AUTOINC)

			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "NLIMITSABLONYDNI" $ cf_soubor  &&   &   &   &   &   &   &     LIMITY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_limit	i 		,;
				cyklus		i		,;
				den			i		,;
				id_chod		i		,;
				limit1		Y		,;
				limit2		Y		,;
				pocet1		N(5)	,;
				pocet2		N(5)	,;
				poznamka	m		,;
				pozn_int	m		,;
				id_den		i AUTOINC)

			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "NLIMITSABLONYPOL" $ cf_soubor  &&   &   &   &   &   &   &     LIMITY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_limit	i		,;
				id_den		i		,;
				c_karty		i		,;
				cena_prod	Y		,;
				dan			N(4,2)	,;
				mnozstvi	Y		,;
				poradie		i		,;
				c_stredisk	i		,;
				poznamka	c(30)	,;
				vlastnik	c(2)	,;
				nc			Y		,;
				LABEL		l		,;
				dieta		c(5)	,;
				vyber		c(5)	,;
				id_fmenu    c(7)    ,;
				polka		i		,;
				c_hlad		i		,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE
			REPLACE c_hlad WITH 1 FOR c_hlad=0

		CASE "NLIMITY" $ cf_soubor .OR. "NLIMITY_A" $ cf_soubor  &&   &   &   &   &   &   &     LIMITY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_limit	i		,;
				id_den		i		,;
				id_rov		i		,;
				c_karty		i		,;
				cena_prod	Y		,;
				dan			N(4,2)	,;
				mnozstvi	Y		,;
				poradie		i		,;
				c_stredisk	i		,;
				poznamka	c(30)	,;
				vlastnik	c(2)	,;
				nc			Y		,;
				LABEL		l		,;
				dieta		c(5)	,;
				vyber		c(5)	,;
				zlava		N(6,2)	,;
				id_fmenu    c(7)    ,;
				mnoz_ori	Y		,;
				c_hlad		i		,;
				polka		i		,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE
			REPLACE c_hlad WITH 1 FOR c_hlad=0

		CASE "NLIMITROV" $ cf_soubor .OR. "NLIMITROV_A" $ cf_soubor  &&   &   &   &   &   &   &     LIMITY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_limit	i			,;
				id_den		i			,;
				id_chod		i			,;
				limit1		Y			,;
				limit2		Y			,;
				pocet1		N(5)		,;
				pocet2		N(5)		,;
				poznamka	m			,;
				pozn_int	m			,;
				c_kasy		i			,;
				hladina		c(2)		,;
				txt1		c(30)		,;
				txt2		c(30)		,;
				poradie		i			,;
				uzaverka	c(17)		,;
				u_cis		c(7)		,;
				cenhlad		c(2)		,;
				zlava		N(6,2)		,;
				c_dokl		i			,;
				LABEL		l			,;
				id_rov		i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "NLIMITDNI" $ cf_soubor .OR. "NLIMITDNI_A" $ cf_soubor  &&   &   &   &   &   &   &     LIMITY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_limit	i		,;
				id_den		i AUTOINC,;
				datum		d		,;
				c_mena		N(1)	,;
				LABEL		l		)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "NLIMITSTATUS" $ cf_soubor  &&   &   &   &   &   &   &     LIMITY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_stat		i AUTOINC,;
				STATUS		c(30)	,;
				START		l		,;
				koniec		l		,;
				stat_eshop	i		,;
				farba		i		,;
				zmazane		l	)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "NLIMITSTRAVNICI" $ cf_soubor  &&   &   &   &   &   &   &     LIMITY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_strav		i AUTOINC,;
				priezvisko		c(30)	,;
				meno			c(30)	,;
				oscislo			c(20)	,;
				stredisko		c(30)	,;
				zmazane		l	)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "NLIMITSTRAVA" $ cf_soubor  &&   &   &   &   &   &   &     LIMITY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_strav		i 		,;
				id_limit		i		,;
				id_den			i		,;
				id_rov			i		,;
				pocet			i		,;
				idriadok		i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE


		CASE "NLIMIT_HL" $ cf_soubor .OR. "NLIMIT_HL_A" $ cf_soubor  &&   &   &   &   &   &   &     LIMITY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_limit	i AUTOINC	,;
				menolimit	c(50) NOCP	,;
				id_typ		i			,;
				is_kasy		l			,;
				txt_kasy	c(20)		,;
				c_kasy		i			,;
				hladina		c(2)		,;
				txt1		c(70)		,;
				txt2		c(70)		,;
				hladina1	c(30)		,;
				hladina2	c(30)		,;
				zlava		N(10,2)		,;
				typ_zlavy	c(1)		,;
				poznamka	m			,;
				pozn_int	m			,;
				c_mena		N(1)		,;
				kontakt		c(30)		,;
				kontakt1	c(30)		,;
				prichod		c(30)		,;
				firma		c(30)		,;
				archiv		l			,;
				zmazane		l			,;
				c_partner	i			,;
				adr1		c(30)		,;
				adr2		c(30)		,;
				adr3		c(30)		,;
				adr4		c(30)		,;
				id_stat		i			,;
				typ_pohybu	i			,;
				hores_kody	M			,;
				LABEL		l			)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "NLIMITCHODY" $ cf_soubor  &&   &   &   &   &   &   &     LIMITY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_chod		i AUTOINC	,;
				chod 		c(50) NOCP	,;
				chod1 		c(50) NOCP	,;
				chod2 		c(50) NOCP	,;
				chod3 		c(50) NOCP	,;
				casod		c(6) NOCP	,;
				casdo		c(6) NOCP	,;
				hores_kody	M			,;
				zmazane		l)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "NLIMITTYPY" $ cf_soubor  &&   &   &   &   &   &   &     LIMITY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_typ 		i AUTOINC,;
				menotyp		c(30)	,;
				hk_typ		c(1),;
				zmazane		l		)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "NLIMITTYPCHODY" $ cf_soubor  &&   &   &   &   &   &   &     LIMITY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_typ 		i,;
				id_chod		i,;
				poradie		i,;
				posledny	l,;
				idriadok 	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "PREVADZKARNE" $ cf_soubor
			CREATE TABLE (m.gcpri_path + "_pom_") FREE (;
				idriadok		i  AUTOINC,;
				meno			c(30),;
				c_prev			i,;
				c_stredisk		i)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "BUFF_D" $ cf_soubor
			CREATE TABLE (m.gcpri_path + "_pom_") FREE (;
				idriadok		i AUTOINC,;
				c_stredisk		i,;
				c_dokl			i,;
				c_partner		i,;
				doklad			i,;
				datum_dokl		d,;
				operace			c(2),;
				pz1				c(15),;
				pz2				c(15),;
				platba			c(5),;
				trzba1			Y,;
				trzba2			Y,;
				trzba3			Y,;
				trzba4			Y,;
				splatnost		N(2,0),;
				sleva_abs		Y,;
				sleva_proc		Y,;
				cen_hlad		c(2),;
				zaloha			Y,;
				halere			Y,;
				provedl			c(3),;
				kdy				T,;
				c_mena			i,;
				partner			c(30),;
				odlozene		i,;
				poznamka		m,;
                kurz            Y,;
                c_dokl_x        I,;
				typ_pohybu		i,;
				menobuf			c(10))
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "BUFF_R" $ m.cf_soubor
			CREATE TABLE (m.gcpri_path + "_pom_") FREE (;
				idriadok		i AUTOINC,;
				c_karty			i,;
				nazev			c(30),;
				mnozstvi		Y,;
				dluh_mnoz		Y,;
				cena			Y,;
				cena_celk		Y,;
				cena_part		Y,;
				na_sklade		Y,;
				zustatek		Y,;
				druh			c(10),;
				c_stredisk		i,;
				poradi			i,;
				operace			c(2),;
				LABEL			c(1),;
				dan				N(5,3),;
				serial_no		c(20),;
				pov_objem		N(10,4),;
				zmaz			l,;
				c_dokl			i,;
				c_druhk			i,;
				pc01			Y,;
				pc02			Y,;
				pc03			Y,;
				pc04			Y,;
				pc05			Y,;
				pc06			Y,;
				pc07			Y,;
				pc08			Y,;
				pc09			Y,;
				pc10			Y,;
				pc11			Y,;
				pc12			Y,;
				pc13			Y,;
				pc14			Y,;
				pc15			Y,;
				pc16			Y,;
				pc17			Y,;
				pc18			Y,;
				pc19			Y,;
				pc20			Y,;
				pc21			Y,;
				pc22			Y,;
				pc23			Y,;
				pc24			Y,;
				pc25			Y,;
				pc26			Y,;
				pc27			Y,;
				pc28			Y,;
				pc29			Y,;
				pc30			Y,;
				pc31			Y,;
				pc32			Y,;
				pc33			Y,;
				pc34			Y,;
				pc35			Y,;
				pc36			Y,;
				pc37			Y,;
				pc38			Y,;
				pc39			Y,;
				pc40			Y,;
				c_druh			i,;
				spdan			Y,;
				spstupne		Y,;
				lieh			N(5,1),;
				ean_koef		Y,;
				ean_mnoz		Y,;
				ean_cena		Y,;
				refcena			Y,;
				percento		Y,;
				menobuf			c(10))
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "OBR_ALK" $ cf_soubor
			CREATE TABLE (m.gcpri_path + "_pom_") FREE (;
				c_karty		i		,;
				ean			c(30)	,;
				c_partner	i		,;
				datum		d		,;
				pocet		i		,;
				zostatok	i		,;
				c_dokl		i		,;
				AUTOR		c(3)	,;
				c_stredisk	i		,;
				operace		c(2)	,;
				uzaverka	c(17)	,;
				u_cis		c(7)	,;
				id_kas		c(2)	,;
				dovod		m		,;
				spracovane	l		,;
				c_prev		i		,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "HH_HLAV" $ cf_soubor  &&   &   &   &   &   &   &     HH_HLAV
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				idriadok	i AUTOINC, ;
				c_kasy		i, ;
				meno		c(30), ;
				aktivna		l, ;
				zmazana		l, ;
				den1		l, ;
				den2		l, ;
				den3		l, ;
				den4		l, ;
				den5		l, ;
				den6		l, ;
				den7		l, ;
				mes01		l, ;
				mes02		l, ;
				mes03		l, ;
				mes04		l, ;
				mes05		l, ;
				mes06		l, ;
				mes07		l, ;
				mes08		l, ;
				mes09		l, ;
				mes10		l, ;
				mes11		l, ;
				mes12		l, ;
				casod		c(8), ;
				casdo		c(8), ;
				datumod		d, ;
				datumdo		d, ;
				typ_zlavy	N(1,0), ;
				zl_koef		N(4,1), ;
				zl_cen_hl	c(1), ;
				vs_druhy	l, ;
				mnoz_x		i, ;
				mnoz_k		i, ;
				dat_cas_zm	T, ;
				AUTOR		c(3))
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "HH_DRUHY" $ cf_soubor  &&   &   &   &   &   &   &     HH_DRUHY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				idriadok	i AUTOINC, ;
				id_hh_hlav	i, ;
				c_druh		i)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "HH_KALKY" $ cf_soubor  &&   &   &   &   &   &   &     HH_KALKY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				idriadok	i AUTOINC, ;
				id_hh_hlav	i, ;
				c_karty		i)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "CAS_POL" $ cf_soubor  &&   &   &   &   &   &   &     CAS_POL
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_karty		i		,;
				c_poloz		i		,;
				hruba		Y		,;
				cista		Y		,;
				c_pozn		i		,;
				pocet		Y		,;
				procento	N(3)	,;
				id_man		c(2)	,;
				idriadok	i AUTOINC,;
				id_hlav		i		,;
				poznamka	c(10)	)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "CAS_HLAV" $ cf_soubor  &&   &   &   &   &   &   &     CAS_HLAV
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_karty		i		,;
				id_hlav		i		,;
				pondelok	l		,;
				utorok		l		,;
				streda		l		,;
				stvrtok		l		,;
				piatok		l		,;
				sobota		l		,;
				nedela		l		,;
				januar		l		,;
				februar		l		,;
				marec		l		,;
				april		l		,;
				maj			l		,;
				jun			l		,;
				jul			l		,;
				august		l		,;
				september	l		,;
				oktober		l		,;
				november	l		,;
				december	l		,;
				casod       c(5)	,;
				casdo		c(5)	,;
				datumod		d   	,;
				datumdo		d   	,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "BARTECH" $ cf_soubor  &&   &   &   &   &   &   &     BARTECH
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				cislo		N(9,0)	,;
				docid		N(2,0)	,;
				typpoh		N(2,0)	,;
				datpoh		c(10)	,;
				caspoh		c(5)	,;
				koduzv		c(20)	,;
				kodfrm		c(10)	,;
				cisobj		N(10,0)	,;
				kodobj		c(20)	,;
				vp1sdh		c(40)	,;
				vp2sdh		c(40)	,;
				vp3sdh		c(40)	,;
				eankod		c(20)	,;
				cisskk		c(15)	,;
				mnoz		N(9,3)	,;
				jedskk		c(5)	,;
				kodskl		c(20)	,;
				kodlok		c(20)	,;
				kodbth		c(40)	,;
				datvyr		c(40)	,;
				vp1sdp		c(40)	,;
				vp2sdp		c(40)	,;
				vp3sdp		c(40)	,;
				kodskl2		c(20)	,;
				kodlok2		c(20)	,;
				cisbal		N(8,0)	,;
				eanbal		c(20)	,;
				vahbal		N(15,2)	,;
				cispol		c(10)	,;
				vs1obj		c(20)	,;
				vs2obj		c(20)	,;
				cisrad		c(10)	,;
				skkdatpoh	c(10)	,;
				skkcaspoh	c(5)	,;
				datumcas2	c(20)	,;
				c_dokl		i		,;
				subor 		c(50)	,;
				id_suboru	i		,;
				idriadok    i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "KURSY" $ cf_soubor  &&   &   &   &   &   &   &     KURSY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				mena		c(3)	,;
				kurs		N(7,4)	,;
				STAT		c(12)	,;
				pocet		N(4,0)	,;
				hladiny     c(130)  ,;
				kurs_nak    N(7,4)  ,;
				id_kas      c(2)    ,;
				zaok_men	N(5,2)	)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "PRN_DEF" $ cf_soubor  &&   &   &   &   &   &   &     PRN_DEF
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				prn_no		c(2)	,;
				prn_no_alt	c(2)	,;
				prn_name	c(20)	,;
				p_name		c(20)	,;
				is_netprn	l(1)	,;
				COMMENT		c(66)	,;
				cmd_on		c(80)	,;
				cmd_off		c(80)	,;
				cmd_cs		c(80)	,;
				p_reset		c(60)	,;
				p_crlf		c(40)	,;
				p_ff		c(40)	,;
				p_6lpi		c(40)	,;
				p_8lpi		c(40)	,;
				p_10cpi		c(40)	,;
				p_12cpi		c(40)	,;
				p_16cpi		c(40)	,;
				p_boldon	c(40)	,;
				p_boldoff	c(40)	,;
				p_ulineon	c(40)	,;
				p_ulineoff	c(40)	,;
				p_wideon	c(40)	,;
				p_wideoff	c(40)	,;
				p_italon	c(40)	,;
				p_italoff	c(40)	,;
				p_draft		c(40)	,;
				p_nlq		c(40)	,;
				p_fullcut	c(60)	,;
				p_partcut	c(40)	,;
				p_ucetfeed	N(2,0)	,;
				p_header	l(1)	,;
				p_width		c(2)	,;
				p_horiz		c(40)	,;
				typ_diakr	c(10)	,;
				cmd32_on	c(222)	,;
				ord_link	c(2)	,;
				ord_adr		c(5)	,;
				p_paragon	c(50)	,;
				p_paragoff	c(50)	,;
				typ_fiskal	c(10)	,;
				failedbils	I		,;
				unrecobils	I		,;
				p_kopii		N(1,0)	)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE


		CASE "U_EX_PLT" $ cf_soubor  &&   &   &   &   &   &   &     U_EX_PLT
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_kas c(2),;
				druh_pl c(8),;
				MD c(8),;
				dal c(8),;
				hs_md c(15),;
				hs_dal c(15),;
				md2    c(15),;
				dal2   c(15),;
				co c(30),;
				pz c(50),;
				poznamka c(30),;
				hpref c(1),;
				stare l(1),;
				idriadok i AUTOINC )
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "U_EX_POL" $ cf_soubor  &&   &   &   &   &   &   &     U_EX_POL
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_kas c(2),;
				id_man c(2),;
				druh c(10),;
				dan N(5,2),;
				cen_hlad c(2),;
				MD c(8),;
				dal c(8),;
				hs_md c(15),;
				hs_dal c(15),;
				md2 c(7),;
				dal2 c(7),;
				co c(30),;
				pz c(50),;
				poznamka c(30),;
				stare l(1),;
				idriadok i AUTOINC )
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "U_EX_OBR" $ cf_soubor  &&   &   &   &   &   &   &     U_EX_OBR
			IF m.slovenskaverzia
				CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
					id_man c(2),;
					operace c(2),;
					partner c(30),;
					druh c(20),;
					cen_hlad c(1),;
					MD c(8),;
					dal c(8),;
					hs_md c(15),;
					hs_dal c(15),;
					md2 c(7),;
					dal2 c(7),;
					co c(30),;
					pz c(50),;
					poznamka c(30),;
					stare l(1),;
					typ_pohybu i,;
					idriadok i AUTOINC )
			ELSE
				CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
					id_man c(2),;
					operace c(2),;
					partner c(25),;
					druh c(10),;
					cen_hlad c(1),;
					MD c(8),;
					dal c(8),;
					hs_md c(15),;
					hs_dal c(15),;
					md2 c(7),;
					dal2 c(7),;
					co c(30),;
					pz c(30),;
					poznamka c(30),;
					stare l(1),;
					typ_pohybu i,;
					idriadok i AUTOINC )
			ENDIF
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "U_EX" $ cf_soubor  &&   &   &   &   &   &   &     U_EX
			IF m.slovenskaverzia
				CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
					datum c(17),;
					id_man c(2),;
					partner c(25),;
					doklad c(15),;
					datum_dokl d,;
					MD c(8),;
					dal c(8),;
					hs_md c(15),;
					hs_dal c(15),;
					md2 c(15),;
					dal2 c(15),;
					castka N(12,4),;
					pz c(50),;
					poznamka c(30),;
					faktura c(20),;
					spdan N(12,4),;
					zaloha l)
				COPY ALL TO (m.cf_soubor) AS m.def_cp
				USE (m.cf_soubor) EXCLUSIVE
			ELSE
				CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
					datum c(17),;
					id_man c(2),;
					partner c(25),;
					doklad c(15),;
					datum_dokl D,;
					dan N(5,2),;
					MD c(15),;
					dal c(15),;
					hs_md c(15),;
					hs_dal c(15),;
					md2 c(15),;
					dal2 c(15),;
					castka N(12,4),;
					pz c(30),;
					poznamka c(30),;
					faktura c(20),;
					pz3 c(20))
				COPY ALL TO (m.cf_soubor) AS m.def_cp
				USE (m.cf_soubor) EXCLUSIVE
			ENDIF

		CASE "UZAVERKA" $ cf_soubor  &&   &   &   &   &   &   &     UZAVERKA
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_stredisk  i          ,;
				c_dokl      i          ,;
				c_doklod    i          ,;
				c_dokldo    i          ,;
				datum_dokl  d          ,;
				zamok       c(1)   NOCP,;
				mesiac      c(2)  NOCP,;
				rok         c(4)  NOCP,;
				ps			Y			,;
				ks			Y			,;
				ve			Y			,;
				ze			Y			,;
				vr			Y			,;
				vv			Y			,;
				zv			Y			,;
				vk			Y			,;
				pe			Y			,;
				PV			Y			,;
				PI			Y			,;
				po			Y			,;
				vo			Y			,;
				pr			Y			,;
				vp			Y			,;
				pp			Y			,;
				vb			Y			,;
				pb			Y			,;
				vc			Y			,;
				pc			Y			,;
				err			Y			,;
				provedl     c(3)         ,;
				LABEL       l(1)           ,;
				FLAG		   l(1)        ,;
				exp_meno	   c(30)		,;
				c_mena		N(1)			,;
				kdy         T            ,;
				idriadok    i AUTOINC	)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "UVERY" $ cf_soubor  &&   &   &   &   &   &   &     UVERY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				hjmeno	c(35)	,;
				adresa1	c(35)	,;
				adresa2	c(35)	,;
				adresa3	c(35)	,;
				akce		c(35)	,;
				schvalil	c(35)	,;
				txt		c(35)	,;
				jmeno	c(35)	,;
				ico		c(15)	,;
				icdph	c(20)	,;
				dic		c(15)	,;
				idriadok    i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "BOURAK" $ cf_soubor  &&   &   &   &   &   &   &     BOURAK
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_karty     i          ,;
				c_karty2    i          ,;
				nazev       c(30)      ,;
				nazev2      c(30)      ,;
				koef_mnoz   N(15,10)   ,;
				koef_ceny   N(15,10)   ,;
				FLAG        l          ,;
				LABEL       c(1)       ,;
				bour_skup   c(2)   NOCP,;
				idriadok		i AUTOINC,;
				poradi      c(1)       )
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "DAVKY" $ cf_soubor  &&   &   &   &   &   &   &     DAVKY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_kas		c(2)   NOCP	,;
				c_stredisk	i			,;
				c_karty		i			,;
				cena_prod	Y			,;
				cena_dan	Y			,;
				mnozstvi	Y			,;
				poradi		i			,;
				nazev		c(30)		,;
				davka		c(15)  NOCP	,;
				c_sklad		i			,;
				hostu		i			,;
				c_mena		N(1)		,;
				cen_hlad	c(2)   NOCP	,;
				idriadok	i AUTOINC	)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "DAVK_HL" $ cf_soubor  &&   &   &   &   &   &   &     DAVK_HL
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				davka       c(15)  NOCP,;
				id_kas      c(2)   NOCP,;
				cena_hl     c(1)       ,;
				c_stredisk  i          ,;
				datum1      d          ,;
				txt1        c(70)      ,;
				txt2        c(70)      ,;
				txt3        c(70)      ,;
				txt4        c(70)      ,;
				txt5        c(70)      ,;
				num1        Y          ,;
				num2        Y          ,;
				c_mena	   N(1)		  ,;
				prachy1     Y          ,;
				prachy2     Y          ,;
				prachy3     Y          ,;
				prachy4     Y          ,;
				prachy5     Y          ,;
				idriadok    i AUTOINC	)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "LIMITY" $ cf_soubor .OR. "LIMITY_A" $ cf_soubor  &&   &   &   &   &   &   &     LIMITY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_limit	i		,;
				datum		d		,;
				c_karty		i		,;
				cena_prod	Y		,;
				dan		N(4,2)		,;
				mnozstvi	Y		,;
				poradie		i		,;
				nazev		c(30)   ,;
				id_man		c(2)	,;
				poznamka	c(30)	,;
				vlastnik	c(2)	,;
				nc			Y		,;
				LABEL		l		,;
				rov			i		,;
				id_fmenu    c(7)    ,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "LIMIT_HL" $ cf_soubor .OR. "LIMHL_A" $ cf_soubor &&   &   &   &   &   &   &     LIMIT_HL
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				limit		c(50) NOCP	,;
				id_limit	i			,;
				id_akcia	i			,;
				is_kasy		l			,;
				txt_kasy	c(20)		,;
				id_kas		c(2) NOCP	,;
				cena_hl		c(1)		,;
				txt1		c(70)		,;
				txt2		c(70)		,;
				text1		c(10)		,;
				text2		c(10)		,;
				text3		c(10)		,;
				hlad1		c(10)		,;
				hlad2		c(10)		,;
				num1		Y			,;
				num2		Y			,;
				prachy1		Y			,;
				prachy2		Y			,;
				c_k11		i			,;
				c_k12		i			,;
				c_k21		i			,;
				c_k22		i			,;
				c_k31		i			,;
				c_k32		i			,;
				cenak11		Y			,;
				cenak12		Y			,;
				cenak21		Y			,;
				cenak22		Y			,;
				cenak31		Y			,;
				cenak32		Y			,;
				zlava		N(10,2)		,;
				typ_zlavy	c(1)		,;
				poznamka	m			,;
				pozn_host	m			,;
				c_mena		N(1)		,;
				archiv		l			,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "LIMITDNI" $ cf_soubor .OR. "LIMDNI_A" $ cf_soubor &&   &   &   &   &   &   &     LIMITDNI
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_limit    i            ,;
				datum        d            ,;
				limit1        Y            ,;
				limit12        Y            ,;
				limit2        Y            ,;
				limit22        Y            ,;
				limit3        Y            ,;
				limit32        Y            ,;
				pocet1        Y            ,;
				pocet12        Y            ,;
				pocet2        Y            ,;
				pocet22        Y            ,;
				pocet3        Y            ,;
				pocet32        Y            ,;
				LABEL        l            ,;
				FLAG        l            ,;
				u_cis        c(7)        ,;
				hladina        c(1)        ,;
				c_mena        N(1)        ,;
				poznamka    m            ,;
				pozn_host    m            ,;
				uzaverka    c(12)        ,;
				idriadok    i AUTOINC)
			IF m.slovenskaverzia
				ALTER TABLE (m.gcpri_path + "_pom_") ALTER uzaverka c(17)
			ENDIF
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "DLUHY" $ cf_soubor  &&   &   &   &   &   &   &     DLUHY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_dokl      i          ,;
				operace     c(2)   NOCP,;
				c_karty     i          ,;
				mnozstvi    Y          ,;
				c_stredisk  i          ,;
				stornovano  l          ,;
				provedl     c(3)       ,;
				LABEL       l(1)       ,;
				kdy         T          ,;
				idriadok    i AUTOINC	)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "KARTY" $ cf_soubor  &&   &   &   &   &   &   &     KARTY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_karty     i          ,;
				nazev       c(30)      ,;
				druh        c(10)  NOCP,;
				c_druh		i		  ,;
				druh_skl    c(10)  NOCP,;
				c_druhs		i		  ,;
				druh_kalk   c(10)  NOCP,;
				c_druhk		i		  ,;
				c_obalu     i          ,;
				obal_obsah  Y          ,;
				cena_prum   Y          ,;
				cena_nakup  Y          ,;
				cena01      Y          , cena02 Y, cena03 Y, cena04 Y, cena05 Y, cena06 Y, cena07 Y, cena08 Y, cena09 Y, cena10 Y,;
				cena11      Y          , cena12 Y, cena13 Y, cena14 Y, cena15 Y, cena16 Y, cena17 Y, cena18 Y, cena19 Y, cena20 Y,;
				cena21      Y          , cena22 Y, cena23 Y, cena24 Y, cena25 Y, cena26 Y, cena27 Y, cena28 Y, cena29 Y, cena30 Y,;
				cena31      Y          , cena32 Y, cena33 Y, cena34 Y, cena35 Y, cena36 Y, cena37 Y, cena38 Y, cena39 Y, cena40 Y,;
				pocet       Y          ,;
				kod         c(13)  NOCP,;
				bar_kod1    c(26)  NOCP,;
				bar_kod2    c(13)  NOCP,;
				dan1        c(1)       ,;
				dph         N(5,3)     ,;
				nazev1      c(27)      , nazev2 c(27), nazev3 c(27), nazev4 c(27), nazev5 c(27),;
				naz1        c(30)      , naz2   c(30), naz3   c(30), naz4   c(30), naz5   c(30),;
				vaha_obalu  Y          ,;
				vaha_koef   Y          ,;
				tolerance   Y          ,;
				vaha        c(10)      ,;
				lieh		   N(5,1)	  ,;
				objem	   N(10,4)	  ,;
				pov_objem   N(10,4)	  ,	;
				LABEL	    L(1)       ,;
		                stav        c(1)  NOCPTRANS ,;
				idriadok	   i AUTOINC ,;
				c_mena	   N(1)		  ,;
				c_mena_n	N(1)			,;
				vyr_postup  m          )
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "KKARTY" $ cf_soubor  &&   &   &   &   &   &   &     KARTY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_karty		i			,;
				nazev		c(30)		,;
				c_druh		i			,;
				c_druhs		i			,;
				c_druhk		i			,;
				c_obalu		i			,;
				obal_obsah	Y			,;
				cena_prum	Y			,;
				cena_nakup	Y			,;
				pocet		Y			,;
				kod			c(13)	NOCP,;
				bar_kod1	c(26)	NOCP,;
				bar_kod2	c(13)	NOCP,;
				dan1		c(1)		,;
				dph			N(5,3)		,;
				vaha_obalu	Y			,;
				vaha_koef	Y			,;
				tolerance	Y			,;
				vaha		c(10)		,;
				lieh		N(5,1)		,;
				objem		N(10,4)		,;
				pov_objem	N(10,4)		,;
				LABEL		l(1)		,;
				c_mena		N(1)		,;
				c_mena_n	N(1)		,;
				zmazane		l(1)		,;
				idriadok	i AUTOINC	)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "KCENY" $ cf_soubor  &&   &   &   &   &   &   &     KARTY - PREDAJNE CENY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_karty     i          ,;
				cenaa0 Y, cenaa1 Y, cenaa2 Y, cenaa3 Y, cenaa4 Y, cenaa5 Y, cenaa6 Y, cenaa7 Y, cenaa8 Y, cenaa9 Y,;
				cenab0 Y, cenab1 Y, cenab2 Y, cenab3 Y, cenab4 Y, cenab5 Y, cenab6 Y, cenab7 Y, cenab8 Y, cenab9 Y,;
				cenac0 Y, cenac1 Y, cenac2 Y, cenac3 Y, cenac4 Y, cenac5 Y, cenac6 Y, cenac7 Y, cenac8 Y, cenac9 Y,;
				cenad0 Y, cenad1 Y, cenad2 Y, cenad3 Y, cenad4 Y, cenad5 Y, cenad6 Y, cenad7 Y, cenad8 Y, cenad9 Y,;
				cenae0 Y, cenae1 Y, cenae2 Y, cenae3 Y, cenae4 Y, cenae5 Y, cenae6 Y, cenae7 Y, cenae8 Y, cenae9 Y,;
				cenaf0 Y, cenaf1 Y, cenaf2 Y, cenaf3 Y, cenaf4 Y, cenaf5 Y, cenaf6 Y, cenaf7 Y, cenaf8 Y, cenaf9 Y,;
				cenag0 Y, cenag1 Y, cenag2 Y, cenag3 Y, cenag4 Y, cenag5 Y, cenag6 Y, cenag7 Y, cenag8 Y, cenag9 Y,;
				cenah0 Y, cenah1 Y, cenah2 Y, cenah3 Y, cenah4 Y, cenah5 Y, cenah6 Y, cenah7 Y, cenah8 Y, cenah9 Y,;
				cenai0 Y, cenai1 Y, cenai2 Y, cenai3 Y, cenai4 Y, cenai5 Y, cenai6 Y, cenai7 Y, cenai8 Y, cenai9 Y,;
				cenaj0 Y, cenaj1 Y, cenaj2 Y, cenaj3 Y, cenaj4 Y, cenaj5 Y, cenaj6 Y, cenaj7 Y, cenaj8 Y, cenaj9 Y,;
				cenak0 Y, cenak1 Y, cenak2 Y, cenak3 Y, cenak4 Y, cenak5 Y, cenak6 Y, cenak7 Y, cenak8 Y, cenak9 Y,;
				cenal0 Y, cenal1 Y, cenal2 Y, cenal3 Y, cenal4 Y, cenal5 Y, cenal6 Y, cenal7 Y, cenal8 Y, cenal9 Y,;
				idriadok	   i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "KTEXTY" $ cf_soubor  &&   &   &   &   &   &   &     KARTY - TEXTY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_karty     i          ,;
				nazev1      c(27)      , nazev2 c(27) , nazev3 c(27) , nazev4 c(27) , nazev5 c(27) ,;
				naz1        c(30)      , naz2   c(30) , naz3   c(30) , naz4   c(30) , naz5   c(30) ,;
				meno1       c(250)     , meno2  c(250), meno3  c(250), meno4  c(250), meno5  c(250),;
				vyr_postup  m          ,;
				idriadok	   i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "KTRIED" $ cf_soubor  &&   &   &   &   &   &   &     KARTY - TRIEDENIE
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_karty		i,;
				c_tr		i,;
				tried		i,;
				c_data		i,;
				poradie		i,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "TRIED" $ cf_soubor  &&   &   &   &   &   &   &     TRIED - TRIEDENIE KARIET
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_tr		i,;
				tried		i,;
				por			i,;
				popis		c(30),;
				c_data		i,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "KREST" $ cf_soubor  &&   &   &   &   &   &   &     KARTY - ZVYSOK
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_karty		i,;
				alergeny	i,;
				obrazok		m,;
				kalorie		Y,;
				kal_zad		Y,;
				cas1		i,;
				cas2		i,;
				cas3		i,;
				c_data		i,;
				poznamka	m,;
				teplota		i,;
				zaruka		i,;
				straty		n(5,2),;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "DOKL" $ cf_soubor  &&   &   &   &   &   &   &     DOKLADY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_stredisk	i			,;
				c_dokl		i			,;
				c_partner	i			,;
				doklad		i			,;
				datum_dokl	d			,;
				operace		c(2)	NOCP,;
				pz1			c(15)	NOCP,;
				pz2			c(15)	NOCP,;
				platba		c(5)		,;
				trzba1		Y			,;
				splatnost	N(2,0)		,;
				sleva_abs	Y			,;
				sleva_proc	Y			,;
				cen_hlad	c(2)		,;
				zaloha		Y			,;
				halere		Y			,;
				provedl		c(3)		,;
                uctsuma     Y           ,;
				kurz        Y			,;
				uctexport	l			,;
				c_mena		N(1)		,;
				kdy			T			,;
				poznamka	m			,;
                c_dokl_x    i           ,;
				typ_pohybu	i			,;
				idriadok	i AUTOINC	)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "OBRA_STO" $ cf_soubor  &&   &   &   &   &   &   &     OBRA_STO
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_stredisk  i          ,;
				operace     c(2)   NOCP,;
				c_dokl      i          ,;
				c_karty     i          ,;
				mnozstvi    Y          ,;
				cena        Y          ,;
				cena_part   Y          ,;
				zustatek    Y          ,;
				cena_prum   Y          ,;
				spdan	    Y          ,;
				spstupne	Y		   ,;
				dan         N(5,3)     ,;
				serial_no   c(20)      ,;
				poradi      i          ,;
				kdy         T          ,;
				idriadok    i AUTOINC	)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "OBRA" $ cf_soubor  &&   &   &   &   &   &   &     OBRATY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_stredisk  i			,;
				operace     c(2)	NOCP,;
				c_dokl      i			,;
				c_karty     i			,;
				mnozstvi    Y			,;
				cena        Y   		,;
				cena_part   Y   		,;
				zustatek    Y			,;
				cena_prum   Y			,;
				spdan	    Y			,;
				spstupne	Y			,;
				dan         N(5,3)		,;
				serial_no   c(20)		,;
				poradi      i			,;
				idriadok    i AUTOINC	)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "PARTNERI" $ cf_soubor  &&   &   &   &   &   &   &     PARTNERI
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_partner   i          ,;
				partner     c(30)  NOCP,;
				ico         c(14)      ,;
				dic         c(14)      ,;
				icdph       c(16)      ,;
				banka       c(25)      ,;
				ucet        c(25)      ,;
				telefon     c(25)      ,;
				naz1        c(30)      ,;
				naz2        c(30)      ,;
				naz3        c(30)      ,;
				naz4        c(30)      ,;
				naz5        c(30)      ,;
				naz6        c(30)      ,;
				splatnost   N(3,0)     ,;
				cen_hlad    c(2)       ,;
				sleva_proc  N(4,1)     ,;
				alkokod		c(30)	   ,;
				ext_id		i		   ,;
				ext_intern	c(15)	   ,;
				platcadph	l		   ,;
				edi_kod		c(15)	   ,;
				edi_dodani	c(15)	   ,;
				edi_mankod	l,;
				typ_obj		i		   ,;
				platba		c(5)	   ,;
				email		c(50)	   ,;
				fmeno		c(50)	   ,;
				fulica		c(50)	   ,;
				fmesto		c(50)	   ,;
				fpsc		c(50)	   ,;
				funkcie		c(50)	   ,;
				mutacia		C(1)	   ,;
				idriadok    i AUTOINC	)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "POLOZKY" $ cf_soubor  &&   &   &   &   &   &   &     POLOZKY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_karty     i          ,;
				c_poloz     i          ,;
				hruba       Y          ,;
				cista       Y          ,;
				c_pozn      i          ,;
				pocet       Y          ,;
				procento    N(3)       ,;
				id_man      c(2)       ,;
				idriadok	i AUTOINC	,;
				poradie		i			,;
				poznamka    c(10)      )
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "SKLAD" $ cf_soubor  &&   &   &   &   &   &   &     SKLAD
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_stredisk		i			,;
				c_karty			i			,;
				zustatek		Y			,;
				cena_prum		Y			,;
				max_zaso		Y			,;
				min_zaso		Y			,;
				rezervace		Y			,;
				c_mena			N(1)			,;
				vycisleni   	c(1)		,;
				idriadok		i AUTOINC	)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "ALKOHOL" $ cf_soubor  &&   &   &   &   &   &   &     ALKOHOL
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_stredisk  i          ,;
				c_karty     i          ,;
				mnozstvi    Y          ,;
				mesiac	   c(2)       ,;
				rok         c(4)       ,;
				idriadok    i AUTOINC	)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "UMDRUHY" $ cf_soubor  &&   &   &   &   &   &   &     UMDRUHY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_druhk     i        ,;
				druh		c(10)	,;
				id_kas		c(2)    ,;
				id_man		c(2)    ,;
				prn_no		c(2)    ,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "SPDAN" $ cf_soubor  &&   &   &   &   &   &   &     SPDAN
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_karty     i        ,;
				koeficient	N(10,4)	,;
				zmazane     i        ,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "EANY" $ cf_soubor  &&   &   &   &   &   &   &     EANY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_karty     i		,;
				ean			c(30)	,;
				popis		c(50)	,;
				objem		N(10,4)	,;
				koef		N(10,4)	,;
                bour_skup   c(2)   NOCP,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "SORTIMENT_DODAVATELU" $ cf_soubor  &&   &   &   &   &   &   &     SORTIMENT_DODAVATELU
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_karty     i		,;
				ean			c(30)	,;
				kod			c(30)	,;
				popis		c(50)	,;
				objem		N(10,4)	,;
				koef		N(10,4)	,;
				ico			c(10),;
				skupina		c(20),;
				poznamka1	c(10),;
				poznamka2	c(10),;
				cena		N(10,4),;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "SKUPINY" $ cf_soubor  &&   &   &   &   &   &   &     SKUPINY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_druh		i  AUTOINC,;
				druh        c(10)  NOCP,;
				spart       c(3)   NOCP,;
				spart_kas   c(3)   NOCP,;
				typ_skup    c(1)   NOCP,;
				typ_skl     c(1)   NOCP,;
				typ_kalk    c(1)   NOCP,;
				prir2       Y          ,;
				dan01       N(5,3), dan02 N(5,3), dan03 N(5,3), dan04 N(5,3), dan05 N(5,3), dan06 N(5,3), dan07 N(5,3), dan08 N(5,3), dan09 N(5,3), dan10 N(5,3),;
				dan11       N(5,3), dan12 N(5,3), dan13 N(5,3), dan14 N(5,3), dan15 N(5,3), dan16 N(5,3), dan17 N(5,3), dan18 N(5,3), dan19 N(5,3), dan20 N(5,3),;
				dan21       N(5,3), dan22 N(5,3), dan23 N(5,3), dan24 N(5,3), dan25 N(5,3), dan26 N(5,3), dan27 N(5,3), dan28 N(5,3), dan29 N(5,3), dan30 N(5,3),;
				dan31       N(5,3), dan32 N(5,3), dan33 N(5,3), dan34 N(5,3), dan35 N(5,3), dan36 N(5,3), dan37 N(5,3), dan38 N(5,3), dan39 N(5,3), dan40 N(5,3),;
                dana0       N(5,3), dana1 N(5,3), dana2 N(5,3), dana3 N(5,3), dana4 N(5,3), dana5 N(5,3), dana6 N(5,3), dana7 N(5,3), dana8 N(5,3), dana9 N(5,3),;
                danb0       N(5,3), danb1 N(5,3), danb2 N(5,3), danb3 N(5,3), danb4 N(5,3), danb5 N(5,3), danb6 N(5,3), danb7 N(5,3), danb8 N(5,3), danb9 N(5,3),;
                danc0       N(5,3), danc1 N(5,3), danc2 N(5,3), danc3 N(5,3), danc4 N(5,3), danc5 N(5,3), danc6 N(5,3), danc7 N(5,3), danc8 N(5,3), danc9 N(5,3),;
                dand0       N(5,3), dand1 N(5,3), dand2 N(5,3), dand3 N(5,3), dand4 N(5,3), dand5 N(5,3), dand6 N(5,3), dand7 N(5,3), dand8 N(5,3), dand9 N(5,3),;
                dane0       N(5,3), dane1 N(5,3), dane2 N(5,3), dane3 N(5,3), dane4 N(5,3), dane5 N(5,3), dane6 N(5,3), dane7 N(5,3), dane8 N(5,3), dane9 N(5,3),;
                danf0       N(5,3), danf1 N(5,3), danf2 N(5,3), danf3 N(5,3), danf4 N(5,3), danf5 N(5,3), danf6 N(5,3), danf7 N(5,3), danf8 N(5,3), danf9 N(5,3),;
                dang0       N(5,3), dang1 N(5,3), dang2 N(5,3), dang3 N(5,3), dang4 N(5,3), dang5 N(5,3), dang6 N(5,3), dang7 N(5,3), dang8 N(5,3), dang9 N(5,3),;
                danh0       N(5,3), danh1 N(5,3), danh2 N(5,3), danh3 N(5,3), danh4 N(5,3), danh5 N(5,3), danh6 N(5,3), danh7 N(5,3), danh8 N(5,3), danh9 N(5,3),;
                dani0       N(5,3), dani1 N(5,3), dani2 N(5,3), dani3 N(5,3), dani4 N(5,3), dani5 N(5,3), dani6 N(5,3), dani7 N(5,3), dani8 N(5,3), dani9 N(5,3),;
                danj0       N(5,3), danj1 N(5,3), danj2 N(5,3), danj3 N(5,3), danj4 N(5,3), danj5 N(5,3), danj6 N(5,3), danj7 N(5,3), danj8 N(5,3), danj9 N(5,3),;
                dank0       N(5,3), dank1 N(5,3), dank2 N(5,3), dank3 N(5,3), dank4 N(5,3), dank5 N(5,3), dank6 N(5,3), dank7 N(5,3), dank8 N(5,3), dank9 N(5,3),;
                danl0       N(5,3), danl1 N(5,3), danl2 N(5,3), danl3 N(5,3), danl4 N(5,3), danl5 N(5,3), danl6 N(5,3), danl7 N(5,3), danl8 N(5,3), danl9 N(5,3),;
				dotacia	   l,;
				LABEL       l,;
				poradie     i,;
				sumar		l,;
				druh1       c(30),;
				druh2       c(30),;
				druh3       c(30),;
				druh4       c(30),;
				druh5       c(30),;
				c_druh_1	i,;
				c_druh_2	i,;
				samozdan	L,;
				koef_c_2	N(5,3),;
				koef_c_3	N(5,3),;
				koef_c_4	N(5,3),;
				dan_samo	N(5,3))
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE
		CASE "ZMENADPH" $ cf_soubor  &&   &   &   &   &   &   &     ZMENADPH
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_druh		i  AUTOINC,;
				druh        c(10)  NOCP,;
				spart       c(3)   NOCP,;
				spart_kas   c(3)   NOCP,;
				typ_skup    c(1)   NOCP,;
				typ_skl     c(1)   NOCP,;
				typ_kalk    c(1)   NOCP,;
				dan01       N(5,3), dan02 N(5,3), dan03 N(5,3), dan04 N(5,3), dan05 N(5,3), dan06 N(5,3), dan07 N(5,3), dan08 N(5,3), dan09 N(5,3), dan10 N(5,3),;
				dan11       N(5,3), dan12 N(5,3), dan13 N(5,3), dan14 N(5,3), dan15 N(5,3), dan16 N(5,3), dan17 N(5,3), dan18 N(5,3), dan19 N(5,3), dan20 N(5,3),;
				dan21       N(5,3), dan22 N(5,3), dan23 N(5,3), dan24 N(5,3), dan25 N(5,3), dan26 N(5,3), dan27 N(5,3), dan28 N(5,3), dan29 N(5,3), dan30 N(5,3),;
				dan31       N(5,3), dan32 N(5,3), dan33 N(5,3), dan34 N(5,3), dan35 N(5,3), dan36 N(5,3), dan37 N(5,3), dan38 N(5,3), dan39 N(5,3), dan40 N(5,3),;
                dana0       N(5,3), dana1 N(5,3), dana2 N(5,3), dana3 N(5,3), dana4 N(5,3), dana5 N(5,3), dana6 N(5,3), dana7 N(5,3), dana8 N(5,3), dana9 N(5,3),;
                danb0       N(5,3), danb1 N(5,3), danb2 N(5,3), danb3 N(5,3), danb4 N(5,3), danb5 N(5,3), danb6 N(5,3), danb7 N(5,3), danb8 N(5,3), danb9 N(5,3),;
                danc0       N(5,3), danc1 N(5,3), danc2 N(5,3), danc3 N(5,3), danc4 N(5,3), danc5 N(5,3), danc6 N(5,3), danc7 N(5,3), danc8 N(5,3), danc9 N(5,3),;
                dand0       N(5,3), dand1 N(5,3), dand2 N(5,3), dand3 N(5,3), dand4 N(5,3), dand5 N(5,3), dand6 N(5,3), dand7 N(5,3), dand8 N(5,3), dand9 N(5,3),;
                dane0       N(5,3), dane1 N(5,3), dane2 N(5,3), dane3 N(5,3), dane4 N(5,3), dane5 N(5,3), dane6 N(5,3), dane7 N(5,3), dane8 N(5,3), dane9 N(5,3),;
                danf0       N(5,3), danf1 N(5,3), danf2 N(5,3), danf3 N(5,3), danf4 N(5,3), danf5 N(5,3), danf6 N(5,3), danf7 N(5,3), danf8 N(5,3), danf9 N(5,3),;
                dang0       N(5,3), dang1 N(5,3), dang2 N(5,3), dang3 N(5,3), dang4 N(5,3), dang5 N(5,3), dang6 N(5,3), dang7 N(5,3), dang8 N(5,3), dang9 N(5,3),;
                danh0       N(5,3), danh1 N(5,3), danh2 N(5,3), danh3 N(5,3), danh4 N(5,3), danh5 N(5,3), danh6 N(5,3), danh7 N(5,3), danh8 N(5,3), danh9 N(5,3),;
                dani0       N(5,3), dani1 N(5,3), dani2 N(5,3), dani3 N(5,3), dani4 N(5,3), dani5 N(5,3), dani6 N(5,3), dani7 N(5,3), dani8 N(5,3), dani9 N(5,3),;
                danj0       N(5,3), danj1 N(5,3), danj2 N(5,3), danj3 N(5,3), danj4 N(5,3), danj5 N(5,3), danj6 N(5,3), danj7 N(5,3), danj8 N(5,3), danj9 N(5,3),;
                dank0       N(5,3), dank1 N(5,3), dank2 N(5,3), dank3 N(5,3), dank4 N(5,3), dank5 N(5,3), dank6 N(5,3), dank7 N(5,3), dank8 N(5,3), dank9 N(5,3),;
                danl0       N(5,3), danl1 N(5,3), danl2 N(5,3), danl3 N(5,3), danl4 N(5,3), danl5 N(5,3), danl6 N(5,3), danl7 N(5,3), danl8 N(5,3), danl9 N(5,3),;
				datum		D,;
				idriadok	i AUTOINC	)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "VYPOCTY" $ cf_soubor  &&   &   &   &   &   &   &     SKUPINY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_druh		i  ,;
				druh        c(10)  NOCP,;
				spart_kas   c(3)   NOCP,;
				typ_kalk    c(1)   NOCP,;
				dan01       N(5,3)     ,;
                vypocet01   c(55)      , vypocet02 c(55), vypocet03 c(55), vypocet04 c(55), vypocet05 c(55), vypocet06 c(55), vypocet07 c(55), vypocet08 c(55), vypocet09 c(55), vypocet10 c(55),;
                vypocet11   c(55)      , vypocet12 c(55), vypocet13 c(55), vypocet14 c(55), vypocet15 c(55), vypocet16 c(55), vypocet17 c(55), vypocet18 c(55), vypocet19 c(55), vypocet20 c(55),;
                vypocet21   c(55)      , vypocet22 c(55), vypocet23 c(55), vypocet24 c(55), vypocet25 c(55), vypocet26 c(55), vypocet27 c(55), vypocet28 c(55), vypocet29 c(55), vypocet30 c(55),;
				vypocet31   c(55)      , vypocet32 c(55), vypocet33 c(55), vypocet34 c(55), vypocet35 c(55), vypocet36 c(55), vypocet37 c(55), vypocet38 c(55), vypocet39 c(55), vypocet40 c(55),;
                vypocet41   c(55)      , vypocet42 c(55), vypocet43 c(55), vypocet44 c(55), vypocet45 c(55), vypocet46 c(55), vypocet47 c(55), vypocet48 c(55), vypocet49 c(55), vypocet50 c(55),;
                vypocet51   c(55)      , vypocet52 c(55), vypocet53 c(55), vypocet54 c(55), vypocet55 c(55), vypocet56 c(55), vypocet57 c(55), vypocet58 c(55), vypocet59 c(55), vypocet60 c(55),;
                vypocet61   c(55)      , vypocet62 c(55), vypocet63 c(55), vypocet64 c(55), vypocet65 c(55), vypocet66 c(55), vypocet67 c(55), vypocet68 c(55), vypocet69 c(55), vypocet70 c(55),;
                vypocet71   c(55)      , vypocet72 c(55), vypocet73 c(55), vypocet74 c(55), vypocet75 c(55), vypocet76 c(55), vypocet77 c(55), vypocet78 c(55), vypocet79 c(55), vypocet80 c(55),;
                vypocet81   c(55)      , vypocet82 c(55), vypocet83 c(55), vypocet84 c(55), vypocet85 c(55), vypocet86 c(55), vypocet87 c(55), vypocet88 c(55), vypocet89 c(55), vypocet90 c(55),;
                vypocet91   c(55)      , vypocet92 c(55), vypocet93 c(55), vypocet94 c(55), vypocet95 c(55), vypocet96 c(55), vypocet97 c(55), vypocet98 c(55), vypocet99 c(55),;
				idriadok	i AUTOINC	)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "UMISTENI" $ cf_soubor  &&   &   &   &   &   &   &     UMISTENI
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_karty		i			,;
				nazev		c(30)	NOCP,;
				id_kas		c(2)	NOCP,;
				id_man		c(2)	NOCP,;
				prn_no		c(2)	NOCP,;
				kod			c(13)	NOCP,;
				rkod		c(5)	NOCP,;
				idriadok	i AUTOINC	,;
				c_druhk		i		  ,;
				druh_kalk	c(10)  NOCP)
			*!*				oblasta		l			,;
			*!*				oblastb		l			,;
			*!*				oblastc		l)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "VAHINV" $ cf_soubor  &&   &   &   &   &   &   &     VAHINV
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_kas      c(2)   NOCP,;
				id_man      c(2)   NOCP,;
				c_stredisk  i          ,;
				nazev       c(30)  NOCP,;
				uzaverka    c(12)  NOCP,;
				pocatek     N(10,3)    ,;
				konec       N(10,3)    ,;
				dotace      N(10,3)    ,;
				spotreba    N(10,3)    ,;
				idriadok    i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "SK_FIN_A" $ cf_soubor   &&   SK_FIN_A
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_kas      c(2)   NOCP,;
				u_cis       c(7)   NOCP,;
				AUTOR       c(3)   NOCP,;
				text_sleva  c(16)  NOCP,;
				text_link   c(25)  NOCP,;
				uzaverka    c(12)  NOCP,;
				cena_celk   Y          ,;
				sleva_abs   Y          ,;
				cena_slev   Y          ,;
				u_cas       c(14)      ,;
				pocet_h     N(5)       ,;
				stul        N(6,1)     ,;
				cas_atrib   c(1)       ,;
				mutace      c(1)       ,;
				u_open      c(5)       ,;
				id_limit    i          ,;
				id_den      i          ,;
				id_chod     i          ,;
				lim_datum   d          ,;
				id_slave    c(2)   NOCP,;
				uzcis       c(14)      ,;
				idriadok    i AUTOINC	)
			IF m.slovenskaverzia
				ALTER TABLE (m.gcpri_path + "_pom_") ALTER uzaverka c(17)
				ALTER TABLE (m.gcpri_path + "_pom_") ADD ducis c(4)
				ALTER TABLE (m.gcpri_path + "_pom_") ADD round50 N(5,2)
				ALTER TABLE (m.gcpri_path + "_pom_") ADD pohladavka l
			ENDIF
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "TMSKFIN" $ cf_soubor .OR. "SK_FIN" $ cf_soubor   &&   SK_FIN
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_kas      c(2)   NOCP,;
				u_cis       c(7)   NOCP,;
				AUTOR       c(3)   NOCP,;
				text_sleva  c(16)  NOCP,;
				text_link   c(25)  NOCP,;
				uzaverka    c(12)  NOCP,;
				cena_celk   N(12,2)    ,;
				sleva_abs   N(12,2)    ,;
				cena_slev   N(12,2)    ,;
				dph_celk    N(12,2)    ,;
				trzba_dph1  N(12,2)    ,;
				trzba_dph2  N(12,2)    ,;
				trzba_dph3  N(12,2)    ,;
				trzba_dph4  N(12,2)    ,;
				dan1        N(5,3)     ,;
				dan2        N(5,3)     ,;
				dan3        N(5,3)     ,;
				dan4        N(5,3)     ,;
				u_cas       c(14)      ,;
				pocet_h     N(5)       ,;
				stul        N(6,1)     ,;
				cas_atrib   c(1)       ,;
				mutace      c(1)       ,;
				u_open      c(5)       ,;
				id_limit    N(9)       ,;
				id_den      i		   ,;
				id_chod     i   	   ,;
				lim_datum   d          ,;
				id_slave    c(2)   NOCP,;
				uzcis       c(14)      ,;
				idriadok    I          )

			IF m.slovenskaverzia
				ALTER TABLE (m.gcpri_path + "_pom_") ALTER COLUMN uzaverka c(17)
				ALTER TABLE (m.gcpri_path + "_pom_") ADD ducis c(4)
				ALTER TABLE (m.gcpri_path + "_pom_") ADD round50 N(5,2)
				ALTER TABLE (m.gcpri_path + "_pom_") ADD pohladavka l
			ENDIF

			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE  "SK_PLT_A" $ cf_soubor   &&   SK_PLT
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				u_cis		c(7)	NOCP,;
				cena_pl		Y           ,;
				druh_pl		c(8)	NOCP,;
				tip			Y           ,;
				uzaverka	c(12)	NOCP,;
				mena		c(3)	NOCP,;
				cena_mena	Y           ,;
				kompez		l	,;
				fik         c(39)   NOCP,;
				bkp         c(44)   NOCP,;
				cas_odesl   c(13)   NOCP,;
				idriadok	i AUTOINC	)
			IF m.slovenskaverzia
				ALTER TABLE (m.gcpri_path + "_pom_") ALTER COLUMN uzaverka c(17)
				ALTER TABLE (m.gcpri_path + "_pom_") ALTER COLUMN fik c(1)
				ALTER TABLE (m.gcpri_path + "_pom_") ALTER COLUMN bkp c(1)
				ALTER TABLE (m.gcpri_path + "_pom_") ALTER COLUMN cas_odesl c(1)
			ENDIF
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "TMSKPLT" $ cf_soubor .OR. "SK_PLT" $ cf_soubor   &&   SK_PLT
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				u_cis       c(7)   NOCP,;
				cena_pl     N(12,2)    ,;
				druh_pl     c(8)   NOCP,;
				tip         N(8,2)     ,;
				uzaverka    c(12)  NOCP,;
				mena        c(3)   NOCP,;
				cena_mena   N(12,2)    ,;
				kompez		l			,;
				fik         c(39)   NOCP,;
				cas_odesl   c(13)   NOCP,;
				bkp         c(44)   NOCP,;
				idriadok    i        )
			IF m.slovenskaverzia
				ALTER TABLE (m.gcpri_path + "_pom_") ALTER COLUMN uzaverka  c(17)
				ALTER TABLE (m.gcpri_path + "_pom_") ALTER COLUMN fik c(1)
				ALTER TABLE (m.gcpri_path + "_pom_") ALTER COLUMN bkp c(1)
				ALTER TABLE (m.gcpri_path + "_pom_") ALTER COLUMN cas_odesl c(1)
			ENDIF
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "SK_POL_A" $ cf_soubor   &&   SK_POL_A
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_kas      c(2)   NOCP,;
				id_man      c(2)   NOCP,;
				u_cis       c(7)   NOCP,;
				c_karty     i          ,;
				prachy      Y          ,;
				dan         N(5,3)     ,;
                procentosl  N(2)       ,;
				mnozstvi    Y          ,;
				cen_hlad    c(2)   NOCP,;
				k_odpoctu   c(1)   NOCP,;
				uzaverka    c(12)  NOCP,;
				u_time      c(2)       ,;
				dotacia     c(1)       ,;
				id_fmenu    c(7)       ,;
				kompez		l			,;
				idriadok    i AUTOINC	)
			IF m.slovenskaverzia
				ALTER TABLE (m.gcpri_path + "_pom_") ALTER uzaverka c(17)
				ALTER TABLE (m.gcpri_path + "_pom_") ADD jc Y
				ALTER TABLE (m.gcpri_path + "_pom_") ADD typpolozky c(1)
			ENDIF
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "TMSKPOL" $ cf_soubor .OR. "SK_POL" $ cf_soubor   &&   SK_POL
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_kas      c(2)   NOCP,;
				id_man      c(2)   NOCP,;
				u_cis       c(7)   NOCP,;
				c_karty     N(9)       ,;
				nazev       c(30)  NOCP,;
				prachy      N(12,2)    ,;
				dan         N(5,3)     ,;
                procentosl  N(2)       ,;
				mnozstvi    N(10,3)    ,;
				stor_mno    N(10,3)    ,;
				cen_hlad    c(1)   NOCP,;
				k_odpoctu   c(1)   NOCP,;
				uzaverka    c(12)  NOCP,;
				blocked_by  c(2)       ,;
				SELECTED    c(1)       ,;
				u_time      c(2)       ,;
				dotacia     c(1)       ,;
				id_fmenu    c(7)       ,;
				kompez		l		   ,;
				idriadok    i          )
			IF m.slovenskaverzia
				ALTER TABLE (m.gcpri_path + "_pom_") ALTER uzaverka c(17)
				ALTER TABLE (m.gcpri_path + "_pom_") ALTER cen_hlad c(2) NOCP
				ALTER TABLE (m.gcpri_path + "_pom_") ADD jc N(12,3)
				ALTER TABLE (m.gcpri_path + "_pom_") ADD id_karty N(9)
				ALTER TABLE (m.gcpri_path + "_pom_") ADD typpolozky c(1)
			ENDIF
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "SK_SEZ_A" $ cf_soubor  &&   &   &   &   &   &   &     SK_SEZ_A
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_man      c(2)   NOCP,;
				id_kas      c(2)   NOCP,;
				uzaverka    c(12)  NOCP,;
				AUTOR       c(3)   NOCP,;
				odecteno    c(17)  NOCP,;
				LABEL       c(1)   NOCP,;
				uz_cislo    N(4,0)     ,;
				priznak     c(20) NOCP ,;
				uctexport   l(1)       ,;
				c_mena      N(1)       ,;
				uct_den     d          ,;
				lastuzav    c(12)  NOCP,;
				vsql		l			,;
				idriadok    i AUTOINC	)
			IF m.slovenskaverzia
				ALTER TABLE (m.gcpri_path + "_pom_") ALTER uzaverka c(17)
				ALTER TABLE (m.gcpri_path + "_pom_") ADD fuzcislo N(5)
				ALTER TABLE (m.gcpri_path + "_pom_") ADD fuzdate d
				ALTER TABLE (m.gcpri_path + "_pom_") ADD fuzav l
				ALTER TABLE (m.gcpri_path + "_pom_") ADD u_cis c(7)
				ALTER TABLE (m.gcpri_path + "_pom_") ADD ducis c(4)
			ENDIF
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "SK_SEZ" $ cf_soubor  &&   &   &   &   &   &   &     SK_SEZ
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_man      c(2)   NOCP,;
				id_kas      c(2)   NOCP,;
				uzaverka    c(12)  NOCP,;
				AUTOR       c(3)   NOCP,;
				odecteno    c(17)  NOCP,;
				LABEL       c(1)   NOCP,;
				uz_cislo    N(4,0)     ,;
				priznak     c(20) NOCP ,;
				uctexport   l(1)       ,;
				c_mena      N(1)       ,;
				uct_den     d          ,;
				lastuzav    c(12)  NOCP,;
				vsql		l			,;
				idriadok    i          )
			IF m.slovenskaverzia
				ALTER TABLE (m.gcpri_path + "_pom_") ALTER uzaverka c(17)
				ALTER TABLE (m.gcpri_path + "_pom_") ALTER lastuzav c(17)
				ALTER TABLE (m.gcpri_path + "_pom_") ADD fuzcislo N(5)
				ALTER TABLE (m.gcpri_path + "_pom_") ADD fuzdate d
				ALTER TABLE (m.gcpri_path + "_pom_") ADD fuzav l
				ALTER TABLE (m.gcpri_path + "_pom_") ADD u_cis c(7)
				ALTER TABLE (m.gcpri_path + "_pom_") ADD ducis c(4)
			ENDIF
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "SK_TXT_A" $ cf_soubor   &&   SK_TXT_A
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				u_cis       c(7)   NOCP,;
				txt         c(35)  NOCP,;
				jmeno       c(35)  NOCP,;
				adresa1     c(35)      ,;
				adresa2     c(35)      ,;
				adresa3     c(35)      ,;
				schvalil    c(35)      ,;
				akce        c(35)      ,;
				dic         c(15)      ,;
				cislo       c(15)      ,;
				hucet       c(15)      ,;
				hpokoj      c(8)       ,;
				hjmeno      c(30)      ,;
				hporad      c(2)       ,;
				hpref       c(15)      ,;
				id_kas      c(2)       ,;
				uzaverka    c(12)      ,;
				hid         c(12)      ,;
				icdph       c(20)      ,;
				ico         c(15)      ,;
				poradi      N(2,0)     ,;
				idriadok    i AUTOINC	)

			IF m.slovenskaverzia
				ALTER TABLE (m.gcpri_path + "_pom_") ALTER uzaverka c(17)
			ENDIF

			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "TMSKTXT" $ cf_soubor .OR. "SK_TXT" $ cf_soubor   &&   SK_TXT
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				u_cis       c(7)   NOCP,;
				txt         c(35)  NOCP,;
				jmeno       c(35)  NOCP,;
				adresa1     c(35)      ,;
				adresa2     c(35)      ,;
				adresa3     c(35)      ,;
				schvalil    c(35)      ,;
				akce        c(35)      ,;
				dic         c(15)      ,;
				cislo       c(15)      ,;
				hucet       c(15)      ,;
				hpokoj      c(8)       ,;
				hjmeno      c(15)      ,;
				hporad      c(2)       ,;
				hpref       c(15)      ,;
				id_kas      c(2)       ,;
				uzaverka    c(12)      ,;
				hid         c(12)      ,;
				icdph       c(20)      ,;
				ico         c(15)      ,;
				poradi      N(2,0)     ,;
				idriadok    i          )

			IF m.slovenskaverzia
				ALTER TABLE (m.gcpri_path + "_pom_") ALTER uzaverka c(17)
			ENDIF
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL


		CASE  "SK_FIS_A" $ cf_soubor   &&   SK_FIS_A
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_kas		c(2)	NOCP,;
				u_cis		c(7)	NOCP,;
				uzaverka	c(12)	NOCP,;
				fucis		N(5,0)		,;
				fuciarkod	c(20)	NOCP,;
				fuzcislo	N(5,0)		,;
				fuzdate		d			,;
				idriadok	i AUTOINC	)
			IF m.slovenskaverzia
				ALTER TABLE (m.gcpri_path + "_pom_") ALTER uzaverka c(17)
			ENDIF
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL


		CASE  "SK_FIS" $ cf_soubor   &&   SK_FIS
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_kas		c(2)	NOCP,;
				u_cis		c(7)	NOCP,;
				uzaverka	c(12)	NOCP,;
				fucis		N(5,0)		,;
				fuciarkod	c(20)	NOCP,;
				fuzcislo	N(5,0)		,;
				fuzdate		d			,;
				uid			C(50)	NOCP,;
				okp			c(45)	nocp,;
				nedokoncen	L,;
				prn_no		c(2)		,;
				idriadok	i 			)
			IF m.slovenskaverzia
				ALTER TABLE (m.gcpri_path + "_pom_") ALTER uzaverka c(17)
			ENDIF
			COPY ALL TO (m.cf_soubor)  AS m.def_cp
			USE (m.cf_soubor) EXCL


		CASE  "SK_VKLVY" $ cf_soubor   &&   SK_VKLVY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				nazev		c(8)	NOCP,;
				datum		T			,;
				uzaverka	c(12)	NOCP,;
				u_cis		c(7)	NOCP,;
				ciastka		N(12,2)		,;
				mena		c(3)	NOCP,;
				ciast_mena	N(12,2)		,;
				AUTOR		c(3)		,;
				cisfplat	N(2,0)		,;
				popis		c(50)		,;
				fciarkod	c(20)		,;
				fucis		N(5,0)		,;
				komu		c(3)		,;
				id_kas		c(2)		,;
				operacia	N(1,0)		,;
				idriadok	i 		)
			IF m.slovenskaverzia
				ALTER TABLE (m.gcpri_path + "_pom_") ALTER uzaverka c(17)
			ENDIF
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL


		CASE  "SK_VKLVY_A" $ cf_soubor   &&   SK_VKLVY_A
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				nazev		c(8)	NOCP,;
				datum		T			,;
				uzaverka	c(12)	NOCP,;
				u_cis		c(7)	NOCP,;
				ciastka		Y           ,;
				mena		c(3)	NOCP,;
				ciast_mena	Y           ,;
				AUTOR		c(3)		,;
				cisfplat	N(2,0)		,;
				popis		c(50)		,;
				fciarkod	c(20)		,;
				fucis		N(5,0)		,;
				komu		c(3)		,;
				id_kas		c(2)		,;
				operacia	N(1,0)		,;
				idriadok	i AUTOINC	)
			IF m.slovenskaverzia
				ALTER TABLE (m.gcpri_path + "_pom_") ALTER uzaverka c(17)
			ENDIF
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL


		CASE "KLAPKY" $ cf_soubor  &&   &   &   &   &   &   &     KLAPKY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				strana      i          ,;
				pozice      i          ,;
				CAPTION     c(30)      ,;
				typ         c(4)       ,;
				vazba       i          ,;
				COLO        i          ,;
				nazev       c(30)      ,;
				barva       c(10)      ,;
				autonavrat  c(1)       ,;
				caption1    c(30)      ,;
				caption2    c(30)      ,;
				caption3    c(30)      ,;
				caption4    c(30)      ,;
				font_size	N(5,1)     ,;
				font_name	C(30)	   ,;
				velk_klp	N(1,0)		)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "FOOD_SET" $ cf_soubor  &&   &   &   &   &   &   &     FOOD_SET
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				var_name    c(20)  NOCP,;
				var_value   c(111)     ,;
				var_typ     c(1)   NOCP,;
				COMMENT     c(70)  NOCP,;
				supervisor  l          )
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "UG_SKUP" $ cf_soubor  &&   &   &   &   &   &   &     UG___
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				user_id     c(3)   NOCPTRANS ,;
				c_druh      i  				 ,;
				g0          l       		 ,;
				g1 			l				 ,;
				g2 			l				 ,;
				idriadok i AUTOINC )
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "UG___" $ cf_soubor  &&   &   &   &   &   &   &     UG___
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				user_id     c(3)   NOCP,;
				ID          c(2)   NOCP,;
				g0          l       , g1 l, g2 l, g3 l, g4 l, g5 l, g6 l, g7 l, g8 l, g9 l )
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "GR___" $ cf_soubor  &&   &   &   &   &   &   &     GR___
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				klic       c(30)   NOCP,;
				g0          l       , g1 l, g2 l, g3 l, g4 l, g5 l, g6 l, g7 l, g8 l, g9 l )
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "MAXIMA" $ cf_soubor  &&   &   &   &   &   &   &     MAXIMA
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				soubor      c(50)   NOCP ,;
				i_max       i          )
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "SEMAFORY" $ cf_soubor  &&   &   &   &   &   &   &     SEMAFORY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				semafor_id  c(15)   NOCP  ,;
				semafor     c(60)   NOCP  ,;
				kdy         c(17)   NOCP  ,;
				pri_path    c(22)   NOCP  )
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "SER_TIME" $ cf_soubor  &&   &   &   &   &   &   &     SER_TIME
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				ser_time    c(17)  NOCP )
			APPEND BLANK
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "USERS" $ cf_soubor  &&   &   &   &   &   &   &     USERS
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				username	c(15)		,;
				user_id		c(3)	NOCP,;
				jazyk		c(1)	NOCP,;
   				heslo		c(12)	NOCP,;
   				hash		c(12)	NOCP,;
   				hashfood	c(12)	NOCP,;
   				hashoman	c(12)	NOCP,;
				is_admin	L			,;
				mzda		N(7,1)		,;
				sef			L			,;
				cen_hl		c(1)		,;
                user_ean    c(13)   NOCP,;
				idriadok	i		)
            IF m.slovenskaverzia
                ALTER TABLE (m.gcpri_path + "_pom_") ALTER heslo    C(20)
                ALTER TABLE (m.gcpri_path + "_pom_") ALTER hash     C(20)
                ALTER TABLE (m.gcpri_path + "_pom_") ALTER hashfood C(20)
                ALTER TABLE (m.gcpri_path + "_pom_") ALTER hashoman c(20)
            ENDIF
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL
			INDEX ON user_id TAG user_id

		CASE "ERRORS" $ cf_soubor  &&   &   &   &   &   &   &     ERRORS
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				mssg       c(99)    NOCP ,;
				line_txt   c(222)   NOCP ,;
				prog_chain c(222)   NOCP ,;
				prg        c(99)    NOCP ,;
				otevreno   c(99)    NOCP ,;
				err_h_info c(99)    NOCP ,;
				machine    c(20)    NOCP ,;
				kdo        c(5)     NOCP ,;
				cas        T         ,;
				idriadok    i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "FOOD_DAT" $ cf_soubor  &&   &   &   &   &   &   &     FOOD_DAT
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				ID          c(2)	NOCP,;
				id_menu     c(10)	NOCP,;
				pgm         c(12)	NOCP,;
				pgm_param   c(12)	NOCP,;
				pgm_path    c(99)	NOCP,;
				dat_path    c(99)	NOCP,;
				cen_path    c(99)	NOCP,;
				id_zkratka  c(30)	NOCP,;
				c_stredisk  N(7,0)		,;
				priority    N(1,0)		,;
				skupina     c(1)	NOCP,;
				COMMENT     c(50)	NOCP,;
				bour_skup   c(2)	NOCP,;
				setup_skup  c(2)	NOCP,;
				prava_skup  c(2)	NOCP,;
				stredskup   c(4)	NOCP,;
				a1          c(2)	NOCP, a2 c(2) NOCP, a3 c(2) NOCP, a4 c(2) NOCP, a5 c(2) NOCP, a6 c(2) NOCP, a7 c(2) NOCP, a8 c(2) NOCP, a9 c(2) NOCP,;
				b1          c(2)	NOCP, b2 c(2) NOCP, b3 c(2) NOCP, b4 c(2) NOCP, b5 c(2) NOCP, b6 c(2) NOCP, b7 c(2) NOCP, b8 c(2) NOCP, b9 c(2) NOCP,;
				c1          c(2)	NOCP, c2 c(2) NOCP, c3 c(2) NOCP, c4 c(2) NOCP, c5 c(2) NOCP, c6 c(2) NOCP, c7 c(2) NOCP, c8 c(2) NOCP, c9 c(2) NOCP,;
				id_klapky   c(2)	NOCP,;
				pozadi      c(30)	NOCP,;
				defa_prn    c(2)	NOCP,;
				zadan_prn   c(2)	NOCP,;
				sankcnicen  c(2)	NOCP,;
				era_cen     c(5)	NOCP,;
				typ_inst	i			,;
				master_kas	c(2)		,;
				kont_dbf    l			,;
				eet_dic		c(12)	NOCP,;
				eet_dic2	c(12)	NOCP,;
				eet_provoz	c(10)	NOCP,;
				eet_kasa	c(10)	NOCP,;
				eet_url		c(99)	NOCP,;
				eet_url2	c(99)	NOCP,;
				plateny		N(1)	,;
				servis		N(1)	,;
				edi_kod		C(15)	NOCP,;
				id_prev		C(2)	NOCP,;
				prevadzka	c(30)	NOCP,;
				id_ediprev	I,;
				datinst		D)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL
			INDEX ON ID TAG ID

		CASE "EDI_PREV" $ cf_soubor  &&   &   &   &   &   &   &     EDI_PREV
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				meno		C(50),;
				ulica		C(50),;
				mesto		C(50),;
				psc			C(5),;
				osoba		C(50),;
				mail		C(50),;
				telefon		C(50),;
				ico			C(15),;
				dic			C(15),;
				ic_dph		C(17),;
				gln			C(20),;
				banka		C(50),;
				ucet		C(50),;
				swift		C(20),;
				reg_cislo	C(50),;
				reg_vydal	C(50),;
				faktu_pref	C(50),;
				logo		M,;
				peciatka	M,;
				idriadok	i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "EDI_PART" $ cf_soubor  &&   &   &   &   &   &   &     EDI_PART
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_ediprev	I    ,;
				c_partner	I    ,;
				edi_kod		C(50),;
                edi_kodstr  C(15),;
				idriadok    i AUTOINC)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL


		CASE "HRAS_SET" $ cf_soubor  &&   &   &   &   &   &   &     HRAS_SET
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				druh        c(10)      ,;
				rastr       c(5)       ,;
				kdy         c(17)      ,;
				kdo         c(3)       )
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "PAROVAKY" $ cf_soubor  &&   &   &   &   &   &   &     PAROVAKY
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				pz1         c(15) NOCPTRANS )
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "KASA_SET" $ cf_soubor  &&   &   &   &   &   &   &     KASA_SET
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				poc_stolu   N(4,0)     ,;
				uzav_prn    c(4)       ,;
				uzav_no     c(2)       ,;
				max_ucis    N(5,0)     ,;
				last_dokla  N(5,0)     ,;
				master_id   c(2)       ,;
				uz_cislo    N(4,0)     ,;
				uz_date     d          ,;
				uz_time     c(5)       ,;
				uz_suma     N(9,2)     ,;
				des_mist    N(1,0)     ,;
				hor_path    c(40)      ,;
				sme_path    c(40)      ,;
				sme_odpoc   c(6)       ,;
				userhead1   c(30)      ,;
				userhead2   c(30)      ,;
				userhead3   c(30)      ,;
				userhead4   c(30)      ,;
				usertail1   c(30)      ,;
				usertail2   c(30)      ,;
				userplat1   c(30)      ,;
				userplat2   c(30)      ,;
				pokl_hrmc   c(3)       ,;
				set_dat     d          ,;
				set_cas     c(5)       )
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "KASA_UCP" $ cf_soubor  &&   &   &   &   &   &   &     KASA_UCP
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				ID          c(2)       ,;
				zkratka     c(30)      ,;
				ucet_prn    c(4)       ,;
				ucet_no     c(2)       ,;
				ucet_nam    c(20)      )
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL


		CASE "UC_SUBT" $ cf_soubor  &&   &   &   &   &   &   &     UC_SUBT
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				u_cis       c(7)       ,;
				radek       N(3,0)     ,;
				stranka     N(2,0)     ,;
				mutace      c(1)       )
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "UC_POL" $ cf_soubor  &&   &   &   &   &   &   &     UC_POL
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				stul        N(6,1)     ,;
				kolik       N(10,3)    ,;
				vyber       N(10,3)    ,;
				delitel     N(1,0)     ,;
				kod         c(13)      ,;
				id_man      c(2)       ,;
				nazev       c(30)      ,;
				spart       c(1)       ,;
				pc          N(8,2)     ,;
				pr          N(5,3)     ,;
				druh        c(10)      ,;
				prn_no      c(2)       ,;
				SELECTED    c(1)       ,;
				blocked_by  c(2)       ,;
				block_snr   c(5)       ,;
				cena        c(1)       ,;
				hras        c(3)       ,;
				u_cis       c(7)       ,;
				k_stornu    N(10,3)    ,;
				TIME        c(5)       ,;
				pmx         N(8,1)     ,;
				cisnik      c(15)      )
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "DRUHY_PL" $ cf_soubor  &&   &   &   &   &   &   &     DRUHY_PL
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				nazev_klic	c(25)	,;
				nazev		c(8)	,;
				TEXT			l(1)	,;
				prg_dotaz	c(30)	,;
				prg_natiz	c(30)	,;
				pl_druh		N(2,0)	,;
				zaokr		N(1,0)	,;
				j0			c(30)	,;
				j1			c(30)	,;
				j2			c(30)	,;
				j3			c(30)	,;
				j4			c(30)	,;
				do_recepce	l(1)	,;
				kod_pl		c(5)	,;
				do_limitu	l(1)	,;
				cisfplat	N(2,0)	,;
				typ_komb	c(1)	,;
				komp_pol	c(13)	,;
				komp_pl		c(8)	,;
				zal_pl		c(8)	,;
				typpl		c(1)	,;
				order_en	l		,;
				sdph_pl		N(5,2)	,;
                prplmencen  N(2,0)  ,;
				nfpl		l		,;
				poradie		I		,;
				odovzdat	c(1)	,;
				terminal	l		,;
				odvod		l)
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "EURO" $ cf_soubor  &&   &   &   &   &   &   &     EURO
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				id_kas		c(2),;
				cenhladina	i(4,0),;
				ecr_typ		c(30),;
				comrychl	c(5),;
				ecr_plu		i(4,0),;
				ecr_cislo	i(4,0),;
				comport		c(4),;
				combit		i(4,0),;
				comstop		i(4,0),;
				comlimit	i(4,0),;
				comparita	i(4,0),;
				comopakov	i(4,0),;
				lanip		c(15),;
				lanport		i(4,0),;
				lanlimit	i(4,0),;
				lanopakov	i(4,0),;
				ecr_fiskal	i(4,0),;
				ecr_krajin	i(4,0),;
				ecr_meno	c(10),;
				ecr_txtcis	i(4,0),;
				prenosnenu	i(4,0),;
				index_pol	i(4,0),;
				zap_rec		i(4,0),;
				zap_log		i(4,0),;
				mazat_log	i(4,0),;
				auto_spust	i(4,0),;
				zavriet		i(4,0),;
				uzav_blok	i(4,0),;
				uzav_zur	i(4,0),;
				info_zur	i(4,0),;
				test		i(4,0),;
				paket		i(4,0),;
				chyby		i(4,0),;
				mazat_ecr	i(4,0),;
				protokol	i(4,0),;
				heslo		c(10),;
				modemtelef	c(30),;
				modeminit	c(100),;
				modemcakat	i(4,0),;
				modemzloz	i(4,0),;
				typport		i(4,0),;
				modem		i(4,0))
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

		CASE "DEF_KAS" $ cf_soubor  &&   &   &   &   &   &   &     UG___
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				ID			c(2)   NOCP,;
				meno			c(25),;
				OS			c(2)   NOCP,;
				skratka		c(10),;
				dat_path		c(25),;
				skratka_eo	c(10))
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "DEF_OS" $ cf_soubor  &&   &   &   &   &   &   &     UG___
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				OS			c(2)   NOCP,;
				popis		c(30))
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "DEF_PLA" $ cf_soubor  &&   &   &   &   &   &   &     UG___
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				druh_pl		c(8)   NOCP,;
				skr_dlock	c(10)  NOCP,;
				is_rozpis	c(1)   ,;
				popis		c(30),;
				rozpis		l(1))
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "DEF_SPOT" $ cf_soubor  &&   &   &   &   &   &   &     UG___
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				priznak		c(20) ,;
				povolene		c(1),;
				nazev		c(8)   NOCP,;
				OS			c(2)   NOCP,;
				pl_druh		N(2,0))
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "DEF_STR" $ cf_soubor  &&   &   &   &   &   &   &     UG___
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				ID			c(2)   NOCP,;
				meno			c(25),;
				OS			c(2)   NOCP,;
				cislo		N(4,0),;
				dat_path		c(25))
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

		CASE "UCTOBD" $ cf_soubor  &&   &   &   &   &   &   &     Uctovne obdobia
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				c_stredisk	i		,;
				uctobd		c(6))
			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCLUSIVE

			*!*	vlado export faktur
		CASE "EXP_FAKTURA" $ cf_soubor  &&   &   &   &   &   &   &     EXP_FAKTURA
			CREATE TABLE (m.gcpri_path + "_pom_") FREE ( ;
				ID		    	i AUTOINC,;
				part_meno       c(50),;
				part_ico        c(15),;
				part_kod        c(15),;
				part_extid      i(4,0),;
				dat_vyst        d,;
				dat_splat       d,;
				dat_dodani      d,;
				cislo_pe        c(30),;
				cislo_fa        c(30),;
				cislo_st        c(30),;
				cislo_vs        c(30),;
				zakl_0          N(10,2),;
				zakl_10         N(10,2),;
				zakl_20         N(10,2),;
				zakl_celk       N(10,2),;
				dph_10          N(10,2),;
				dph_20          N(10,2),;
				dph_celk        N(10,2),;
				c_dokl			i,;
				zasoby			l,;
				prenesene       l(1),;
				zaokruhlen		N(10,2),;
				mattov			C(10),;
				idriadok		i AUTOINC)

			COPY ALL TO (m.cf_soubor) AS m.def_cp
			USE (m.cf_soubor) EXCL

			*!*	koniec vlado export faktur
		OTHERWISE
			*    DO app_log WITH "CREA_FILE: Can't create unknown " + m.cf_soubor
			ret_value = .F.
	ENDCASE
err_h_info = ""
