PARAMETERS hladajcdokl, typ_obj, zberna, oprava
PRIVATE m.edicesta, otvorenyfooddat, povinnapoznamka
PRIVATE m.typ_obj, m.hladajstrcdokl, m.cdata, m.partnerico, m.partnerovekody
LOCAL m.hhotel_naz1, m.x_partner, m.x_stredisk, m.menostrediska, m.hhotel_ulica, m.hhotel_psc, m.hhotel_mesto, m.hhotel_telefon, m.hhotel_osoba, m.hhotel_mail, m.hhotel_gln
LOCAL m.menopartnera, m.ico, m.mailovaadresa, m.pokecdodavatela, m.partneredikod, m.ii, m.partneredikoddodania, m.cislo_objednavky
LOCAL m.partnerdic, m.partneredikod, m.pokecdodavatela, m.partner_naz1, m.partner_naz2, m.partner_naz3, m.partner_naz4, m.partner_naz5
LOCAL m.hhotel_banka, m.hhotel_ucet, m.hhotel_swift, m.hhotelreg_cislo, m.hhotelreg_vydal, m.hhotel_ico, m.hhotel_dico, m.hhotel_icdph

#DEFINE CRLF CHR(13)+CHR(10)
m.otvorenydokl=.t.
m.otvorenyfooddat=.t.
m.hladajstrcdokl=m.hladajcdokl
m.povinnapoznamka=.f.
m.cdata=1
IF EMPTY(m.gcedicesta)
	=MESSAGEBOX(jaz("form_nenastavena_cesta_edi"),16,"FoodMan")
	RETURN .f.
ELSE
	IF DIRECTORY(m.gcedicesta)
		IF "\in\"$LOWER(m.gcedicesta)
			m.edicesta=STRTRAN(LOWER(m.gcedicesta),"\in\","\out\")
		ELSE 
			m.edicesta=m.gcedicesta+IIF(RIGHT(ALLTRIM(m.gcedicesta),1)="\","","\")+"vydajky\"
		ENDIF 
		=mk_dir(m.edicesta)
		IF !DIRECTORY(m.edicesta)
			=MESSAGEBOX(jaz("form_chyba_priecinok_obj")+CHR(10)+m.edicesta,16,"FoodMan")
			RETURN .f.
		ENDIF 
	ENDIF 
ENDIF 
IF USED("dokladxx") 
	USE IN dokladxx
ENDIF 
IF m.issql
	USE (m.sqlprefix+"rprnobra") IN 0 ALIAS dokladxx
ELSE
	USE vprnobra IN 0 ALIAS dokladxx
ENDIF 
IF !USED("food_edi") 
	IF m.issql
		USE (m.sqlprefix+"rfooddat_idediprev") IN 0 ALIAS food_edi
	ELSE
		USE (m.fn_food_dat) IN 0 ALIAS food_edi AGAIN 
	ENDIF 
	m.otvorenyfooddat=.f.
ENDIF 
IF m.issql
	rv("extpartneri_obj","part_ze")
ELSE
	USE vpartneri IN 0 ALIAS part_ze
ENDIF 
SELECT dokladxx
GO TOP 
m.x_partner=dokladxx.c_partner
m.x_stredisk=dokladxx.c_stredisk
m.cislo_objednavky=""
IF INLIST(dokladxx.operace,"VR","VE") AND !EMPTY(dokladxx.pz1)
	m.hladajpz2=STR(dokladxx.c_dokl,15,0)
	SELECT 0
	IF m.issql
		USE (m.sqlprefix+"rdokladyziadankakvydajke") ALIAS zz1
	ELSE 
		USE vdokladyziadankakvydajke ALIAS zz1
	ENDIF 
	IF RECCOUNT("zz1")>0
		GO TOP 
		SCAN ALL 
			IF EMPTY(m.cislo_objednavky)
				m.cislo_objednavky=m.cislo_objednavky+ALLTRIM(zz1.pz1)
			ELSE 
				m.cislo_objednavky=m.cislo_objednavky+","+ALLTRIM(zz1.pz1)
			ENDIF 
		ENDSCAN 
	ENDIF 
	IF EMPTY(m.cislo_objednavky)
		m.cislo_objednavky=ALLTRIM(dokladxx.pz1)
	ENDIF 
	DO pozavirej WITH "zz1"
ENDIF 
SELECT food_edi
LOCATE FOR c_stredisk=m.x_stredisk
IF FOUND()
	m.menostrediska=food_edi.id_zkratka
	m.hladajidediprev=food_edi.id_ediprev
	m.cdata=food_edi.c_data
ELSE
	m.menostrediska=m.gcid_zkratka 
	m.hladajidediprev=0
	m.cdata=1
ENDIF 
m.hhotel_naz1=m.hotel_naz1
m.hhotel_ulica=m.hotel_naz2
m.hhotel_psc=m.hotel_naz4
m.hhotel_mesto=m.hotel_naz3
m.hhotel_osoba=""
m.hhotel_telefon=""
m.hhotel_mail=""
m.hhotel_ico=m.hotel_ico
m.hhotel_dico=m.hotel_dico
m.hhotel_icdph=m.hot_icdph
m.hhotel_gln=IIF(EMPTY(m.hotel_edikod), ALLTRIM(m.hotel_ico), ALLTRIM(m.hotel_edikod))
m.hhotel_banka=m.hotel_bank
m.hhotel_ucet=m.hotel_ucet
m.hhotel_swift=m.hotel_swift
m.hhotelreg_cislo=m.reg_cislo
m.hhotelreg_vydal=m.reg_vydal
IF ATC("sushitime", m.wi_zakaz) > 0
	m.hladajcpartner=dokladxx.c_partner
	IF m.issql
		USE (m.sqlprefix+"rediprevpartnera") IN 0 ALIAS dodpartner
	ELSE
		USE vediprevpartnera IN 0 ALIAS dodpartner
	ENDIF 
	IF RECCOUNT("dodpartner")>0
		SELECT dodpartner
		GO TOP 
		m.hhotel_naz1=ALLTRIM(dodpartner.meno)
		m.hhotel_ulica=ALLTRIM(dodpartner.ulica)
		m.hhotel_psc=ALLTRIM(dodpartner.psc)
		m.hhotel_mesto=ALLTRIM(dodpartner.mesto)
		m.hhotel_osoba=ALLTRIM(dodpartner.osoba)
		m.hhotel_telefon=ALLTRIM(dodpartner.telefon)
		m.hhotel_ico=ALLTRIM(dodpartner.ico)
		m.hhotel_dico=ALLTRIM(dodpartner.dic)
		m.hhotel_icdph=ALLTRIM(dodpartner.ic_dph)
		m.hhotel_banka=ALLTRIM(dodpartner.banka)
		m.hhotel_ucet=ALLTRIM(dodpartner.ucet)
		m.hhotel_swift=ALLTRIM(dodpartner.swift)
		m.hhotelreg_cislo=ALLTRIM(dodpartner.reg_cislo)
		m.hhotelreg_vydal=ALLTRIM(dodpartner.reg_vydal)
		IF !EMPTY(dodpartner.gln)
			m.hhotel_gln=ALLTRIM(dodpartner.gln)
		ENDIF 
		m.hhotel_mail=ALLTRIM(dodpartner.mail)
	ENDIF 
	USE IN dodpartner		
ELSE 
	IF !EMPTY(m.hladajidediprev)
		SELECT 0
		USE (m.sqlprefix+"redi_prev") ALIAS edi_prev
		LOCATE FOR idriadok=m.hladajidediprev
		IF FOUND()
			m.hhotel_naz1=ALLTRIM(edi_prev.meno)
			m.hhotel_ulica=ALLTRIM(edi_prev.ulica)
			m.hhotel_psc=ALLTRIM(edi_prev.psc)
			m.hhotel_mesto=ALLTRIM(edi_prev.mesto)
			m.hhotel_osoba=ALLTRIM(edi_prev.osoba)
			m.hhotel_telefon=ALLTRIM(edi_prev.telefon)
			m.hhotel_mail=ALLTRIM(edi_prev.mail)
			m.hhotel_ico=ALLTRIM(edi_prev.ico)
			m.hhotel_dico=ALLTRIM(edi_prev.dic)
			m.hhotel_icdph=ALLTRIM(edi_prev.ic_dph)
			m.hhotel_banka=ALLTRIM(edi_prev.banka)
			m.hhotel_ucet=ALLTRIM(edi_prev.ucet)
			m.hhotel_swift=ALLTRIM(edi_prev.swift)
			m.hhotelreg_cislo=ALLTRIM(edi_prev.reg_cislo)
			m.hhotelreg_vydal=ALLTRIM(edi_prev.reg_vydal)
		ENDIF 
		USE IN edi_prev
	ENDIF 
ENDIF 
m.menopartnera=IIF(EMPTY(dokladxx.fmeno),ALLTRIM(dokladxx.partner), ALLTRIM(dokladxx.fmeno))
SELECT part_ze
LOCATE FOR c_partner=m.x_partner
IF FOUND()
	m.mailovaadresa=ALLTRIM(part_ze.email)
	m.partnerico=ALLTRIM(part_ze.ico)
	m.partnerdic=ALLTRIM(part_ze.dic)
	m.partneredikod=IIF(EMPTY(part_ze.edi_kod),ALLTRIM(part_ze.ico),ALLTRIM(part_ze.edi_kod))
	m.partneredikoddodania=IIF(EMPTY(part_ze.edi_dodanie), m.partneredikod, ALLTRIM(part_ze.edi_dodanie))
	m.pokecdodavatela=part_ze.popis
	m.partner_naz1=IIF(EMPTY(dokladxx.fulica),ALLTRIM(part_ze.naz1), ALLTRIM(dokladxx.fulica))
	m.partner_naz2=IIF(EMPTY(dokladxx.fmesto),ALLTRIM(part_ze.naz2), ALLTRIM(dokladxx.fmesto))
	m.partner_naz3=IIF(EMPTY(dokladxx.fpsc),ALLTRIM(part_ze.naz3), ALLTRIM(dokladxx.fpsc))
	m.partner_naz4=ALLTRIM(part_ze.naz4)
	m.partner_naz5=ALLTRIM(part_ze.naz5)
	m.mutacia=ALLTRIM(part_ze.mutacia)
	IF "sushitime"$LOWER(m.wi_zakaz) AND LOWER(part_ze.funkcie)="dl"
		m.povinnapoznamka=.t.
	ENDIF 
	m.partnerovekody=part_ze.edi_mankod
ELSE
	m.mailovaadresa=""
	m.partnerico=""
	m.partnerdic=""
	m.partneredikod=""
	m.partneredikoddodania=""
	m.pokecdodavatela=""
	m.partner_naz1=""
	m.partner_naz2=""
	m.partner_naz3=""
	m.partner_naz4=""
	m.partner_naz5=""
	m.mutacia="1"
	m.partnerovekody=.f.
ENDIF 
IF EMPTY(m.mutacia)
	m.mutacia="1"
ENDIF 
FOR m.ii=1 TO 20
	IF zoznamedikodov(m.ii,1)=m.hhotel_gln AND !EMPTY(zoznamedikodov(m.ii,2))
		IF DIRECTORY(zoznamedikodov(m.ii,2))
			IF "\in\"$LOWER(zoznamedikodov(m.ii,2))
				m.edicesta=STRTRAN(LOWER(zoznamedikodov(m.ii,2)),"\in\","\out\")
			ELSE 
				m.edicesta=zoznamedikodov(m.ii,2)+IIF(RIGHT(ALLTRIM(zoznamedikodov(m.ii,2)),1)="\","","\")+"vydajky\"
			ENDIF 
			=mk_dir(m.edicesta)
			IF !DIRECTORY(m.edicesta)
				=MESSAGEBOX(jaz("form_chyba_priecinok_obj")+CHR(10)+m.edicesta,16,"FoodMan")
				RETURN .f.
			ENDIF 
		ENDIF 
		EXIT  
	ENDIF 
ENDFOR 
**** Nasleduje vytvorenie edi faktury ***
DO CASE 
	CASE INLIST(m.typ_obj,1,4,5)
		m.menosuboru=m.edicesta+"INVOIC_"+m.partneredikod+"_"+ALLTRIM(STR(m.hladajcdokl,10,0))+"_"+STRTRAN(STRTRAN(ALLTRIM(dokladxx.pz2),"\","-"),"/","-")+"_"+STRTRAN(STRTRAN(STRTRAN(TTOC(DATETIME())," ",""),".",""),":","")+"_"+SYS(2015)+".txt"
		m.menoriadok="SYS"+PADR(ALLTRIM(m.partneredikod),14)+"E"+"D  96A"+"INVOIC"+"P"+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
        DO zapis_radek_hlavicky96
		SELECT dokladxx
		m.poradie=0
		SCAN ALL 
			m.poradie=m.poradie+1
			DO zapis_radek_telicka96
		ENDSCAN
		DO zapis_radek_sum96
		=MESSAGEBOX(jaz("form_vytvoreny_subor")+":"+CHR(10)+m.menosuboru,64,"FoodMan",2000)
		IF FILE(m.menosuboru) AND (!EMPTY(man_email_from) OR !EMPTY(food_email_from)) AND !EMPTY(m.mailovaadresa) AND !("sushitime"$LOWER(wi_zakaz))
			DO poslimailhocikam WITH "Faktúra č:"+ALLTRIM(STR(dokladxx.c_dokl,10,0))+" "+m.hotel_name, "", m.menosuboru,"","",m.mailovaadresa
			IF !EMPTY(m.hhotel_mail)
				DO poslimailhocikam WITH "Faktúra č:"+ALLTRIM(STR(dokladxx.c_dokl,10,0))+" "+m.hotel_name, "", m.menosuboru,"","",m.hhotel_mail
			ENDIF 				
		ENDIF 
	CASE INLIST(m.typ_obj,6)
		m.menosuboru=m.edicesta+"INVOIC_"+m.partneredikod+"_"+ALLTRIM(STR(m.hladajcdokl,10,0))+"_"+STRTRAN(STRTRAN(ALLTRIM(dokladxx.pz2),"\","-"),"/","-")+"_"+STRTRAN(STRTRAN(STRTRAN(TTOC(DATETIME())," ",""),".",""),":","")+"_"+SYS(2015)+".xml"
		m.menoriadok='<?xml version="1.0" encoding="UTF-8"?>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='<orion_message>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='	<header>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='		<message_type>INVOIC</message_type>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='		<version>1.0.0</version>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='		<message_id></message_id>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='		<creation_date>'+LEFT(DTOS(DATE()),4)+'-'+SUBSTR(DTOS(DATE()),5,2)+'-'+SUBSTR(DTOS(DATE()),7,2)+'-'+'</creation_date>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='		<creation_time>'+LEFT(TIME(),5)+'</creation_time>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='		<receiver>'+m.partneredikod+'</receiver>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='		<sender>'+m.hhotel_gln+'</sender>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='		<test_flag/>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='	</header>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='	<body>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='		<message_header>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<doc_number>'+ALLTRIM(dokladxx.pz2)+'</doc_number>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<doc_type>380</doc_type>'+CHR(13)+CHR(10) && 380 Faktura, 386 Zálohová faktura, 325	Proforma faktura, 381 Dopropis - Celková cena je u dobropisu záporná, 383 Vrubopis
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<doc_function>'+IIF(EMPTY(m.oprava),'9','5')+'</doc_function>'+CHR(13)+CHR(10) && 9 - Originál; 1 - Zrušení; 5 - Náhrada; 7 - Duplikát; 31 - Kopie; 43 - Dodatečný přenos
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<issue_date>'+LEFT(DTOS(dokladxx.datum_dokl),4)+'-'+SUBSTR(DTOS(dokladxx.datum_dokl),5,2)+'-'+SUBSTR(DTOS(dokladxx.datum_dokl),7,2)+'-'+'</issue_date>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<tax_date>'+LEFT(DTOS(dokladxx.datum_dokl),4)+'-'+SUBSTR(DTOS(dokladxx.datum_dokl),5,2)+'-'+SUBSTR(DTOS(dokladxx.datum_dokl),7,2)+'-'+'</tax_date>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<despatch_date></despatch_date>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<delivery_date>'+LEFT(DTOS(dokladxx.datum_dokl),4)+'-'+SUBSTR(DTOS(dokladxx.datum_dokl),5,2)+'-'+SUBSTR(DTOS(dokladxx.datum_dokl),7,2)+'-'+'</delivery_date>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<invoice_period_start></invoice_period_start>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<invoice_period_end></invoice_period_end>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<due_date>'+LEFT(DTOS(dokladxx.datum_dokl+dokladxx.splatnost),4)+'-'+SUBSTR(DTOS(dokladxx.datum_dokl+dokladxx.splatnost),5,2)+'-'+SUBSTR(DTOS(dokladxx.datum_dokl+dokladxx.splatnost),7,2)+'</due_date>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<payment_means>'+IIF(LOWER(dokladxx.platba)='prevo','42','10')+'</payment_means>'+CHR(13)+CHR(10) && 42 Úhrada na bankovní účet, 10 V hotovosti
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<currency_code>'+m.skr_mena+'</currency_code>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<currency_target_code></currency_target_code>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<currency_exchange_rate></currency_exchange_rate>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<currency_rate_value></currency_rate_value>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<currency_exchange_date></currency_exchange_date>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<registration></registration>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<regulatory_information></regulatory_information>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<reverse_charge></reverse_charge>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<country_of_origin>'+STRTRAN(m.hotel_krajina,"SVK","SK")+'</country_of_origin>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<contract_number></contract_number>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<order_number>'+m.cislo_objednavky+'</order_number>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<order_number_date></order_number_date>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<order_number_time></order_number_time>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<supplier_order_number>'+m.cislo_objednavky+'</supplier_order_number>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<supplier_order_date></supplier_order_date>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<supplier_order_time></supplier_order_time>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		IF m.povinnapoznamka
			m.menoriadok='			<despatch_advice_number>'+ALLTRIM(dokladxx.poznamka)+'</despatch_advice_number>'+CHR(13)+CHR(10)
		ELSE
			m.menoriadok='			<despatch_advice_number>'+ALLTRIM(dokladxx.pz2)+'</despatch_advice_number>'+CHR(13)+CHR(10)
		ENDIF 
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<despatch_advice_date>'+LEFT(DTOS(dokladxx.datum_dokl),4)+'-'+SUBSTR(DTOS(dokladxx.datum_dokl),5,2)+'-'+SUBSTR(DTOS(dokladxx.datum_dokl),7,2)+'</despatch_advice_date>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<despatch_advice_time></despatch_advice_time>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<free_text_1>'+ALLTRIM(m.hhotelreg_cislo)+","+ALLTRIM(m.hhotelreg_vydal)+'</free_text_1>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<party>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<party_qualifier>BY</party_qualifier>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<party_ean>'+m.partneredikod+'</party_ean>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<party_description/>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<party_name>'+STRTRAN(ALLTRIM(dokladxx.fmeno),"&","&amp;")+'</party_name>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<street>'+STRTRAN(ALLTRIM(dokladxx.fulica),"&","&amp;")+'</street>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<place>'+STRTRAN(ALLTRIM(dokladxx.fmesto),"&","&amp;")+'</place>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<postcode>'+STRTRAN(ALLTRIM(dokladxx.fpsc),"&","&amp;")+'</postcode>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<country_code></country_code>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<country_name></country_name>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<company_id>'+ALLTRIM(dokladxx.ico)+'</company_id>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<tax_id>'+ALLTRIM(dokladxx.icdph)+'</tax_id>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<vat_id>'+ALLTRIM(dokladxx.dic)+'</vat_id>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<contact_type></contact_type>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<contact_name></contact_name>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<contact_tel></contact_tel>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<contact_fax></contact_fax>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<contact_email></contact_email>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			</party>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<party>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<party_qualifier>DP</party_qualifier>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<party_id>'+m.partneredikoddodania+'</party_id>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			</party>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<party>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<party_qualifier>IV</party_qualifier>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<party_id>'+m.partneredikod+'</party_id>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			</party>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			<party>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<party_qualifier>SU</party_qualifier>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<party_id>'+m.hhotel_gln+'</party_id>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<party_name>'+ALLTRIM(m.hhotel_naz1)+'</party_name>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<street>'+ALLTRIM(m.hhotel_ulica)+'</street>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<place>'+ALLTRIM(m.hhotel_mesto)+'</place>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<postcode>'+ALLTRIM(m.hhotel_psc)+'</postcode>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<country_code>'+STRTRAN(m.hotel_krajina,"SVK","SK")+'</country_code>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<country_name></country_name>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<company_id>'+ALLTRIM(m.hhotel_ico)+'</company_id>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<tax_id>'+ALLTRIM(m.hhotel_icdph)+'</tax_id>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<contact_type></contact_type>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<contact_name>'+ALLTRIM(m.hhotel_osoba)+'</contact_name>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<contact_tel>'+ALLTRIM(m.hhotel_telefon)+'</contact_tel>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<contact_fax></contact_fax>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<contact_email>'+m.hhotel_mail+'</contact_email>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<iban>'+m.hhotel_ucet+'</iban>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<swift>'+m.hhotel_swift+'</swift>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<bank_name>'+m.hhotel_banka+'</bank_name>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<bank_code>'+SUBSTR(m.hhotel_ucet,5,4)+'</bank_code>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<account_number>'+RIGHT(m.hhotel_ucet,10)+'</account_number>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<constant_symbol>308</constant_symbol>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='				<variable_symbol>'+ALLTRIM(dokladxx.pz2)+'</variable_symbol>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='			</party>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='		</message_header>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='		<line_items>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		SELECT dokladxx
		m.poradie=0
		SCAN ALL 
			m.poradie=m.poradie+1
			DO zapis_radek_telicka_orion
		ENDSCAN
		m.menoriadok='		</line_items>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		DO zapis_radek_sum_orion
		m.menoriadok='	</body>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		m.menoriadok='</orion_message>'+CHR(13)+CHR(10)
		=STRTOFILE(m.menoriadok,m.menosuboru,1)
		=MESSAGEBOX(jaz("form_vytvoreny_subor")+":"+CHR(10)+m.menosuboru,64,"FoodMan",2000)
		IF FILE(m.menosuboru) AND (!EMPTY(man_email_from) OR !EMPTY(food_email_from)) AND !EMPTY(m.mailovaadresa) AND !("sushitime"$LOWER(wi_zakaz))
			DO poslimailhocikam WITH "Faktúra č:"+ALLTRIM(STR(dokladxx.c_dokl,10,0))+" "+m.hotel_name, "", m.menosuboru,"","",m.mailovaadresa
			IF !EMPTY(m.hhotel_mail)
				DO poslimailhocikam WITH "Faktúra č:"+ALLTRIM(STR(dokladxx.c_dokl,10,0))+" "+m.hotel_name, "", m.menosuboru,"","",m.hhotel_mail
			ENDIF 				
		ENDIF 
ENDCASE 
IF !m.otvorenyfooddat
	DO pozavirej WITH "food_edi"
ENDIF 
DO pozavirej WITH "dokladxx, part_ze, dodean"

PROCEDURE  zapis_radek_hlavicky96
menoriadok = "HDR"																&&  1 C3  P
menoriadok = m.menoriadok + PADR(nx(dokladxx.c_dokl), 15)							&&  2 C15 P cislo dokladu (daňového dokladu)
menoriadok = m.menoriadok + PADR("308", 3)										&&  3 C3 P druh dokladu (308-riadna faktúra)
menoriadok = m.menoriadok + PADR("9", 3)										&&  4 C3 P funkcia správy (9-originál)
menoriadok = m.menoriadok + PADR(DTOS(dokladxx.datum_dokl),  8)					&&  5 C8  P datum vystaveni
menoriadok = m.menoriadok + PADR(DTOS(dokladxx.datum_dokl),  8)					&&  6 C8  P datum zdanitelneho plnenia
menoriadok = m.menoriadok + PADR(DTOS(dokladxx.datum_dokl),  8)					&&  7 C8  P datum vyskladnenia
menoriadok = m.menoriadok + SPACE(8)											&&  8 C8  P datum dodania
menoriadok = m.menoriadok + SPACE(8)											&&  9 C8  P fakturácia od
menoriadok = m.menoriadok + SPACE(8)											&& 10 C8  P fakturácia do
menoriadok = m.menoriadok + PADR(DTOS(dokladxx.datum_dokl+dokladxx.splatnost) ,  8)	&& 11 C8  P dátum splatnosti
menoriadok = m.menoriadok + SPACE(3)											&& 12 C3  P spôsob úhrady
menoriadok = m.menoriadok + SPACE(15)											&& 13 C15  P číslo zmluvy
menoriadok = m.menoriadok + SPACE(15)											&& 14 C15  P číslo objednávky zákazníka
menoriadok = m.menoriadok + SPACE(8)											&& 15 C8  P dátum vystavenia objednávky
menoriadok = m.menoriadok + SPACE(15)											&& 16 C15  P číslo objednávky u dodávateľa
menoriadok = m.menoriadok + SPACE(8)											&& 17 C8  P dátum prijatia objednávky
menoriadok = m.menoriadok + SPACE(15)											&& 18 C15  P číslo dodacieho listu
menoriadok = m.menoriadok + SPACE(8)											&& 19 C8  P dátum dodacieho listu
menoriadok = m.menoriadok + SPACE(3)											&& 20 C3  P význam ref.čísla faktúry
menoriadok = m.menoriadok + SPACE(15)											&& 21 C15  P ref.číslo faktúry
menoriadok = m.menoriadok + SPACE(15)											&& 22 C15  P číslo objednávky zákazníka
menoriadok = m.menoriadok + SPACE(8)											&& 23 C8  P dátum k ref.číslu faktúry
menoriadok = m.menoriadok + SPACE(15)											&& 24 C15  P dealerská kategória
menoriadok = m.menoriadok + PADR(m.partneredikod, 17)							&& 25 C17 P GLN odberateľa
menoriadok = m.menoriadok + PADR(m.partnerico, 15)								&& 26 C15 P IČO odberateľa 
menoriadok = m.menoriadok + PADR(m.partnerdic, 15)								&& 27 C15 P DIČ odberateľa
menoriadok = m.menoriadok + SPACE(17)											&& 28 C17 P GLN objednateľa
menoriadok = m.menoriadok + SPACE(17)											&& 29 C17 P GLN miesta dodania
menoriadok = m.menoriadok + SPACE(17)											&& 30 C17 P GLN fakturačného miesta
menoriadok = m.menoriadok + PADR(m.hhotel_gln, 17)								&& 31 C17 P GLN dodávateľa
menoriadok = m.menoriadok + PADR(m.hhotel_ico, 15)								&& 32 C15 N IČO dodávateľa 
menoriadok = m.menoriadok + PADR(m.hhotel_dico, 15)								&& 33 C15 N ICO dodávateľa 
menoriadok = m.menoriadok + SPACE(17)											&& 34 C17 P GLN distribučného skladu
menoriadok = m.menoriadok + SPACE(17)											&& 35 C17 P GLN fakturačného miesta
menoriadok = m.menoriadok + PADL(m.hhotel_ucet, 17)								&& 36 C17 P bankový účet
menoriadok = m.menoriadok + SPACE(4)											&& 37 C17 P kód banky
menoriadok = m.menoriadok + SPACE(4)											&& 38 C17 P konštantný symbol
menoriadok = m.menoriadok + SPACE(10)											&& 39 C17 P variabilný symbol
menoriadok = m.menoriadok + SPACE(10)											&& 40 C17 P špecifický symbol
menoriadok = m.menoriadok + PADR(m.skr_mena, 3)									&& 41 C3 P mena
STRTOFILE(m.menoriadok + CRLF, m.menosuboru, 1)
menoriadok = "HDD"													&&  1 C3  P
menoriadok = m.menoriadok + PADR(m.menopartnera, 35)				&&  2 C35 P meno odberateľa
menoriadok = m.menoriadok + SPACE(35)								&&  3 C35 N meno odberateľa
menoriadok = m.menoriadok + SPACE(35)								&&  4 C35 N meno odberateľa
menoriadok = m.menoriadok + SPACE(35)								&&  5 C35 N meno odberateľa
menoriadok = m.menoriadok + SPACE(35)								&&  6 C35 N meno odberateľa
menoriadok = m.menoriadok + PADR(m.partner_naz1, 35)				&&  7 C35 P adresa odberateľa
menoriadok = m.menoriadok + PADR(m.partner_naz2, 35)				&&  8 C35 N adresa odberateľa
menoriadok = m.menoriadok + PADR(m.partner_naz3, 35)				&&  9 C35 N adresa odberateľa
menoriadok = m.menoriadok + PADR(m.partner_naz4, 35)				&& 10 C35 N adresa odberateľa
menoriadok = m.menoriadok + PADR(m.partner_naz5, 35)				&& 11 C35 N adresa odberateľa
menoriadok = m.menoriadok + SPACE(6)								&& 12 C6 N psč odberateľa
menoriadok = m.menoriadok + PADR(m.hhotel_naz1, 35)					&& 13 C35 P obch jmeno dodávateľa
menoriadok = m.menoriadok + PADR(m.hhotel_ulica, 35)				&& 14 C35 N ulica dodávateľa
menoriadok = m.menoriadok + SPACE(35)								&& 15 C35 N ulica dodávateľa
menoriadok = m.menoriadok + SPACE(35)								&& 16 C35 N ulica dodávateľa
menoriadok = m.menoriadok + SPACE(35)								&& 17 C35 N ulica dodávateľa
menoriadok = m.menoriadok + PADR(m.hhotel_mesto, 35)				&& 18 C35 N mesto dodávateľa
menoriadok = m.menoriadok + PADR(m.hhotel_psc, 6)					&& 19 C6 N psc dodávateľa
STRTOFILE(m.menoriadok + CRLF, m.menosuboru, 1)



*    *    *    *    *    *    *    *    *    *    *    *    *    *
PROCEDURE  zapis_radek_telicka96
PRIVATE m.serial_no, m.hladajckarty
LOCAL dlzkaica
m.hladajckarty=dokladxx.c_karty
IF USED("dodean")
	=REQUERY("dodean")
ELSE
	IF m.issql
		USE (m.sqlprefix+"reanykukarte") ALIAS dodean IN 0
	ELSE 
		USE veanykukarte ALIAS dodean IN 0
	ENDIF 
ENDIF 
SELECT dodean
IF RECCOUNT()>0
	m.dlzkaica=LEN(ALLTRIM(m.partnerico))
	IF m.dlzkaica>0
		LOCATE FOR LEFT(dodean.ean,m.dlzkaica+2)=ALLTRIM(m.partnerico)+"::"
		IF FOUND()
			m.serial_no=ALLTRIM(SUBSTR(dodean.ean,m.dlzkaica+3))
		ELSE
			IF EMPTY(dokladxx.serial_no)
				GO TOP 
				LOCATE FOR !("::"$dodean.ean)
				IF FOUND()
					m.serial_no=ALLTRIM(dodean.ean)
				ELSE
					GO TOP 
					m.serial_no=ALLTRIM(dodean.ean)
				ENDIF 
			ELSE
				m.serial_no=ALLTRIM(dokladxx.serial_no)
			ENDIF 
		ENDIF 
	ELSE
		IF EMPTY(dokladxx.serial_no)
			m.serial_no=""
		ELSE
			m.serial_no=ALLTRIM(dokladxx.serial_no)
		ENDIF 
	ENDIF 
ELSE
	IF EMPTY(dokladxx.serial_no)
		m.serial_no=""
	ELSE
		m.serial_no=ALLTRIM(dokladxx.serial_no)
	ENDIF 
ENDIF 
menoriadok = "LIN"															&&  1 C3
menoriadok = m.menoriadok + nx(m.poradie, 0,  6)							&&  2 N6    cislo radku
menoriadok = m.menoriadok + PADR(m.serial_no, 25)							&&  3 C25   EAN zbozi
menoriadok = m.menoriadok + PADR(nx(dokladxx.c_karty), 25)					&&  4 C25   cislo zbozi dodavatele
menoriadok = m.menoriadok + PADR("Z", 3)									&&  5 C3    typ polozky: Z:zbozi, O:obal
menoriadok = m.menoriadok + nx(-dokladxx.mnozstvi, 3, 12)					&&  6 N12,3 dodane mnozstvi
menoriadok = m.menoriadok + nx(dokladxx.cena_part, 2, 12)					&&  7 N12,2 cena za jednotku
menoriadok = m.menoriadok + nx(0, 3, 7)									&&  8 N7,3 zľava na položku
menoriadok = m.menoriadok + nx(0, 2, 12)									&&  9 N12,2 čiastka zľavy na položku
menoriadok = m.menoriadok + nx(dokladxx.cena_part, 2, 12)					&&  10 N12,2 cena za jednotku po zľave
menoriadok = m.menoriadok + nx(-dokladxx.mnozstvi*dokladxx.cena_part, 2, 12)	&&  11 N12,2 cena celkom za položku
menoriadok = m.menoriadok + nx(dokladxx.dan*100-100 , 2, 5)					&&  12 N5,2  sazba dph
DO CASE 
	CASE m.mutacia="1"
		menoriadok = m.menoriadok + RIGHT(dokladxx.nazev, 3)							&&  13 C3 merná jednotka
	OTHERWISE 
		DO CASE 
			CASE LOWER(RIGHT(dokladxx.nazev,3))="kg"
				menoriadok = m.menoriadok + "KGM"							&&  13 C3 merná jednotka
			CASE LOWER(RIGHT(dokladxx.nazev,3))="por"
				menoriadok = m.menoriadok + "PCE"							&&  13 C3 merná jednotka
			CASE INLIST(LOWER(RIGHT(dokladxx.nazev,3)),"lt","l")
				menoriadok = m.menoriadok + "LTR"							&&  13 C3 merná jednotka
			OTHERWISE  
				menoriadok = m.menoriadok + RIGHT(dokladxx.nazev, 3)							&&  13 C3 merná jednotka
		ENDCASE 
ENDCASE 
menoriadok = m.menoriadok + nx(1.0, 3, 12)									&&  14 N12,3 pocet jednotek v baleni
menoriadok = m.menoriadok + SPACE(15)										&&  15 C15 N skupina spotrebnej dane
menoriadok = m.menoriadok + SPACE(12)										&&  16 N12,3 N základ spotrebnej dane
menoriadok = m.menoriadok + SPACE(12)										&&  17 N12,3 N čiastka spotrebnej dane
menoriadok = m.menoriadok + SPACE(17)										&&  18 C17 N GLN objednateľa
menoriadok = m.menoriadok + SPACE(17)										&&  19 C17 N GLN miesta dodania
menoriadok = m.menoriadok + SPACE(8)										&&  20 C8 N dátum dodania
menoriadok = m.menoriadok + SPACE(15)										&&  21 C15  N číslo objednávky zákazníka
menoriadok = m.menoriadok + SPACE(8)										&&  22 C8  N dátum vystavenia objednavky
menoriadok = m.menoriadok + SPACE(15)										&&  23 C15  N číslo objednávky u dodávateľa
menoriadok = m.menoriadok + SPACE(8)										&&  24 C8  N dátum prijatia objednavky
menoriadok = m.menoriadok + SPACE(15)										&&  25 C15  P číslo dodacieho listu
menoriadok = m.menoriadok + SPACE(8)										&&  26 C8  P dátum dodacieho listu
menoriadok = m.menoriadok + SPACE(3)										&&  27 C3  P význam ref.čísla faktúry
menoriadok = m.menoriadok + SPACE(15)										&&  28 C15  P ref.číslo faktúry
menoriadok = m.menoriadok + SPACE(8)										&&  29 C8  P dátum k ref.číslu faktúry
menoriadok = m.menoriadok + SPACE(8)										&&  30 N8  N stav salda obalov
menoriadok = m.menoriadok + SPACE(8)										&&  31 N8  N obaly dodané
menoriadok = m.menoriadok + SPACE(8)										&&  32 N8  N obaly vrátené
menoriadok = m.menoriadok + SPACE(8)										&&  33 N8  N Stav salda vrat. obalov jedného typu celkom
DO CASE 
	CASE m.mutacia="1"
		menoriadok = m.menoriadok + PADR(dokladxx.nazev1, 70)							&&  34 C70   specifikace
	CASE m.mutacia="2"
		menoriadok = m.menoriadok + PADR(dokladxx.nazev2, 70)							&&  34 C70   specifikace
	CASE m.mutacia="3"
		menoriadok = m.menoriadok + PADR(dokladxx.nazev3, 70)							&&  34 C70   specifikace
	CASE m.mutacia="4"
		menoriadok = m.menoriadok + PADR(dokladxx.nazev4, 70)							&&  34 C70   specifikace
	CASE m.mutacia="5"
		menoriadok = m.menoriadok + PADR(dokladxx.nazev5, 70)							&&  34 C70   specifikace
	OTHERWISE 
		menoriadok = m.menoriadok + PADR(dokladxx.nazev1, 70)							&&  34 C70   specifikace
ENDCASE 
STRTOFILE(m.menoriadok + CRLF, m.menosuboru, 1)


PROCEDURE  zapis_radek_sum96
PRIVATE m.serial_no, m.hladajckarty
LOCAL suma0, sumalo, sumahi, danlo, danhi, zakllo, zaklhi
STORE 0 TO suma0, sumalo, sumahi, danlo, danhi, zakllo, zaklhi
SELECT dan, SUM(-mnozstvi*cena_part) AS dan_zakl GROUP BY dan FROM dokladxx INTO CURSOR dane
SCAN
	DO CASE 
		CASE dan=m.uctdphhi
			zaklhi = ROUND(dane.dan_zakl, 2)
			danhi = ROUND(zaklhi * (m.uctdphhi - 1), 2)
			sumahi = zaklhi+danhi
		CASE dan=1
			suma0 = ROUND(dane.dan_zakl, 2)
		OTHERWISE 
			zakllo = ROUND(dane.dan_zakl, 2)
			danlo = ROUND(zakllo * (m.uctdphlo - 1), 2)
			sumalo = zakllo+danlo
	ENDCASE 
ENDSCAN
USE IN dane

menoriadok = "SUM"															&&  1 C3
menoriadok = m.menoriadok + nx(m.suma0, 2,  12)							&&  2 N12,2  základ dane 0
menoriadok = m.menoriadok + nx(m.zakllo, 2,  12)							&&  3 N12,2  základ dane znížený
menoriadok = m.menoriadok + nx(m.zaklhi, 2,  12)							&&  4 N12,2  základ dane základný
menoriadok = m.menoriadok + nx(m.zaklhi+m.zakllo+m.suma0, 2,  12)			&&  5 N12,2  základ dane celkom
menoriadok = m.menoriadok + nx(m.uctdphlo*100-100, 2,  5)					&&  6 N5,2   sadzba dane znížená
menoriadok = m.menoriadok + nx(m.uctdphhi*100-100, 2,  5)					&&  7 N5,2   sadzba dane základná
menoriadok = m.menoriadok + nx(m.danlo, 2,  12)							&&  8 N12,2  daň znížená
menoriadok = m.menoriadok + nx(m.danhi, 2,  12)							&&  9 N12,2  daň základná
menoriadok = m.menoriadok + nx(m.danlo+m.danhi, 2,  12)					&& 10 N12,2  daň celkom
menoriadok = m.menoriadok + SPACE(255)										&& 11 C		 kopec ďalších prázdnych textov
menoriadok = m.menoriadok + nx(m.poradie, 0,  6)							&& 36 N6     počet riadkov LIN v dokumente
STRTOFILE(m.menoriadok + CRLF, m.menosuboru, 1)


PROCEDURE  zapis_radek_telicka_orion
PRIVATE m.serial_no, m.hladajckarty
IF !EMPTY(dokladxx.c_karty) AND !ISNULL(dokladxx.c_karty)
	LOCAL dlzkaica
	m.hladajckarty=dokladxx.c_karty
	IF USED("dodean")
		=REQUERY("dodean")
	ELSE
		IF m.issql
			USE (m.sqlprefix+"reanykukarte") ALIAS dodean IN 0
		ELSE 
			USE veanykukarte ALIAS dodean IN 0
		ENDIF 
	ENDIF 
	SELECT dodean
	IF RECCOUNT()>0
		m.dlzkaica=LEN(ALLTRIM(m.partnerico))
		IF m.dlzkaica>0
			IF m.partnerovekody
				LOCATE FOR LEFT(dodean.ean,m.dlzkaica+2)=ALLTRIM(m.partnerico)+"::"
				IF FOUND()
					m.serial_no=ALLTRIM(SUBSTR(dodean.ean,m.dlzkaica+3))
				ELSE
					IF EMPTY(dokladxx.serial_no)
						GO TOP 
						LOCATE FOR !("::"$dodean.ean)
						IF FOUND()
							m.serial_no=ALLTRIM(dodean.ean)
						ELSE
							GO TOP 
							m.serial_no=ALLTRIM(dodean.ean)
						ENDIF 
					ELSE
						m.serial_no=ALLTRIM(dokladxx.serial_no)
					ENDIF 
				ENDIF 
			ELSE
				IF EMPTY(dokladxx.serial_no)
					GO TOP 
					LOCATE FOR !("::"$dodean.ean)
					IF FOUND()
						m.serial_no=ALLTRIM(dodean.ean)
					ELSE
						GO TOP 
						m.serial_no=ALLTRIM(dodean.ean)
					ENDIF 
				ELSE
					m.serial_no=ALLTRIM(dokladxx.serial_no)
				ENDIF 
			ENDIF 
		ELSE
			IF EMPTY(dokladxx.serial_no)
				m.serial_no=""
			ELSE
				m.serial_no=ALLTRIM(dokladxx.serial_no)
			ENDIF 
		ENDIF 
	ELSE
		IF EMPTY(dokladxx.serial_no)
			m.serial_no=""
		ELSE
			m.serial_no=ALLTRIM(dokladxx.serial_no)
		ENDIF 
	ENDIF 
	m.menoriadok='			<item>'+CHR(13)+CHR(10)
	=STRTOFILE(m.menoriadok,m.menosuboru,1)
	m.menoriadok='				<item_number>'+ALLTRIM(STR(m.poradie,4,0))+'</item_number>'+CHR(13)+CHR(10)
	=STRTOFILE(m.menoriadok,m.menosuboru,1)
	m.menoriadok='				<article_gtin>'+m.serial_no+'</article_gtin>'+CHR(13)+CHR(10)
	=STRTOFILE(m.menoriadok,m.menosuboru,1)
	m.menoriadok='				<article_id_supplier>'+ALLTRIM(nx(dokladxx.c_karty))+'</article_id_supplier>'+CHR(13)+CHR(10)
	=STRTOFILE(m.menoriadok,m.menosuboru,1)
	DO CASE 
		CASE m.mutacia="1"
			m.menoriadok='					<article_name>'+dokladxx.nazev1+'</article_name>'+CHR(13)+CHR(10) && 17 C45   specifikace
		CASE m.mutacia="2"
			m.menoriadok='					<article_name>'+dokladxx.nazev2+'</article_name>'+CHR(13)+CHR(10) && 17 C45   specifikace
		CASE m.mutacia="3"
			m.menoriadok='					<article_name>'+dokladxx.nazev3+'</article_name>'+CHR(13)+CHR(10) && 17 C45   specifikace
		CASE m.mutacia="4"
			m.menoriadok='					<article_name>'+dokladxx.nazev4+'</article_name>'+CHR(13)+CHR(10) && 17 C45   specifikace
		CASE m.mutacia="5"
			m.menoriadok='					<article_name>'+dokladxx.nazev5+'</article_name>'+CHR(13)+CHR(10) && 17 C45   specifikace
		OTHERWISE 
			m.menoriadok='					<article_name>'+dokladxx.nazev+'</article_name>'+CHR(13)+CHR(10) && 17 C45   specifikace
	ENDCASE 
	=STRTOFILE(m.menoriadok,m.menosuboru,1)
	m.menoriadok='				<item_type>Z</item_type>'+CHR(13)+CHR(10)
	=STRTOFILE(m.menoriadok,m.menosuboru,1)
	m.menoriadok='				<quantity>'+ALLTRIM(nx2(-dokladxx.mnozstvi   , 3, 12))+'</quantity>'+CHR(13)+CHR(10)
	=STRTOFILE(m.menoriadok,m.menosuboru,1)
	m.menoriadok='				<gross_price>'+ALLTRIM(nx2(dokladxx.cena_part   , 2, 12))+'</gross_price>'+CHR(13)+CHR(10)
	=STRTOFILE(m.menoriadok,m.menosuboru,1)
	m.menoriadok='				<allowance_rate></allowance_rate>'+CHR(13)+CHR(10) && zlava na poloyku
	=STRTOFILE(m.menoriadok,m.menosuboru,1)
	m.menoriadok='				<allowance_total></allowance_total>'+CHR(13)+CHR(10) && zlava na poloyku absolutna
	=STRTOFILE(m.menoriadok,m.menosuboru,1)
	m.menoriadok='				<net_price>'+ALLTRIM(nx2(dokladxx.cena_part   , 2, 12))+'</net_price>'+CHR(13)+CHR(10)
	=STRTOFILE(m.menoriadok,m.menosuboru,1)
	m.menoriadok='				<total_price>'+ALLTRIM(nx2(-dokladxx.cena_part*dokladxx.mnozstvi, 2, 12))+'</total_price>'+CHR(13)+CHR(10)
	=STRTOFILE(m.menoriadok,m.menosuboru,1)
	m.menoriadok='				<vat_rate>'+ALLTRIM(nx2(dokladxx.dan*100-100 , 2,  5))+'</vat_rate>'+CHR(13)+CHR(10)
	=STRTOFILE(m.menoriadok,m.menosuboru,1)
	m.menoriadok='				<vat_total>'+ALLTRIM(nx2(ROUND(-dokladxx.cena_part*dokladxx.mnozstvi*(dokladxx.dan-1),2), 2, 12))+'</vat_total>'+CHR(13)+CHR(10)
	=STRTOFILE(m.menoriadok,m.menosuboru,1)
	m.menoriadok='				<total_price_vat>'+ALLTRIM(nx2(ROUND(-dokladxx.cena_part*dokladxx.mnozstvi*dokladxx.dan,2), 2, 12))+'</total_price_vat>'+CHR(13)+CHR(10)
	=STRTOFILE(m.menoriadok,m.menosuboru,1)
	DO CASE 
		CASE m.mutacia="1"
			m.menoriadok='						<unit>'+RIGHT(dokladxx.nazev,3)+'</unit>'+CHR(13)+CHR(10)
		OTHERWISE 
			DO CASE 
				CASE LOWER(RIGHT(dokladxx.nazev,3))="kg"
					m.menoriadok='				<unit>KGM</unit>'+CHR(13)+CHR(10)
				CASE LOWER(RIGHT(dokladxx.nazev,3))="por"
					m.menoriadok='				<unit>PCE</unit>'+CHR(13)+CHR(10)
				CASE INLIST(LOWER(RIGHT(dokladxx.nazev,3)),"lt","l")
					m.menoriadok='				<unit>LTR</unit>'+CHR(13)+CHR(10)
				OTHERWISE  
					m.menoriadok='				<unit>'+RIGHT(dokladxx.nazev,3)+'</unit>'+CHR(13)+CHR(10)
			ENDCASE 
	ENDCASE 
	=STRTOFILE(m.menoriadok,m.menosuboru,1)
	m.menoriadok='				<number_of_units>'+ALLTRIM(nx2(-dokladxx.mnozstvi   , 3, 12))+'</number_of_units>'+CHR(13)+CHR(10)
	=STRTOFILE(m.menoriadok,m.menosuboru,1)
	m.menoriadok='			</item>'+CHR(13)+CHR(10)
	=STRTOFILE(m.menoriadok,m.menosuboru,1)
ENDIF 

PROCEDURE  zapis_radek_sum_orion
LOCAL suma0, sumalo, sumahi, danlo, danhi, zakllo, zaklhi
STORE 0 TO suma0, sumalo, sumahi, danlo, danhi, zakllo, zaklhi
SELECT dan, SUM(-mnozstvi*cena_part) AS dan_zakl GROUP BY dan FROM dokladxx INTO CURSOR dane
SCAN
	DO CASE 
		CASE dan=m.uctdphhi
			zaklhi = ROUND(dane.dan_zakl, 2)
			danhi = ROUND(zaklhi * (m.uctdphhi - 1), 2)
			sumahi = zaklhi+danhi
		CASE dan=1
			suma0 = ROUND(dane.dan_zakl, 2)
		OTHERWISE 
			zakllo = ROUND(dane.dan_zakl, 2)
			danlo = ROUND(zakllo * (m.uctdphlo - 1), 2)
			sumalo = zakllo+danlo
	ENDCASE 
ENDSCAN
USE IN dane
m.menoriadok='		<summary>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='			<number_of_items>'+ALLTRIM(STR(m.poradie,4,0))+'</number_of_items>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='			<price_invoiced>'+ALLTRIM(nx2(m.suma0+m.sumalo+m.sumahi,2, 12))+'</price_invoiced>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='			<items_price>'+ALLTRIM(nx2(m.suma0+m.zakllo+m.zaklhi,2,12))+'</items_price>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='			<taxable_amount>'+ALLTRIM(nx2(m.suma0+m.zakllo+m.zaklhi,2,12))+'</taxable_amount>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='			<remains_unsettled>'+ALLTRIM(nx2(m.suma0+m.sumalo+m.sumahi,2, 12))+'</remains_unsettled>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='			<tax_details>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='				<vat>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='					<vat_group>0</vat_group>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='					<vat_basis>'+ALLTRIM(nx2(m.suma0, 2,  12))+'</vat_basis>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='					<vat_rate>0.00</vat_rate>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='					<vat_total>'+ALLTRIM(nx2(0, 2,  12))+'</vat_total>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='				</vat>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='				<vat>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='					<vat_group>1</vat_group>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='					<vat_basis>'+ALLTRIM(nx2(m.zakllo, 2,  12))+'</vat_basis>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='					<vat_rate>'+ALLTRIM(nx2(m.uctdphlo*100-100, 2,  5))+'</vat_rate>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='					<vat_total>'+ALLTRIM(nx2(m.danlo, 2,  12))+'</vat_total>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='				</vat>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='				<vat>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='					<vat_group>2</vat_group>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='					<vat_basis>'+ALLTRIM(nx2(m.zaklhi, 2,  12))+'</vat_basis>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='					<vat_rate>'+ALLTRIM(nx2(m.uctdphhi*100-100, 2,  5))+'</vat_rate>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='					<vat_total>'+ALLTRIM(nx2(m.danhi, 2,  12))+'</vat_total>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='				</vat>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='				<vat_total>'+ALLTRIM(nx2(m.danhi+m.danlo, 2,  12))+'</vat_total>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='			</tax_details>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)
m.menoriadok='		</summary>'+CHR(13)+CHR(10)
=STRTOFILE(m.menoriadok,m.menosuboru,1)




