<%@language="VBScript"%>
<% Response.Expires = -1 %>
<!--#include file="inc/kontrola-prihlaseni.asp" -->
<!--#include file="inc/conn.asp" -->
<% 
function entity(obsah)
	if isnull(obsah) = false then
		obsah = replace(obsah,"&","&amp;")
		obsah = replace(obsah,"""","&quot;")
		obsah = replace(obsah,"<","&lt;")
		obsah = replace(obsah,">","&gt;")
		entity = obsah
	end if
end function

'funkce - vyseparování údajů z objednávky
function value(nazev)
	seznam = zakaznik
	if instr(seznam,nazev) > 0 then
		pozice1 = instrrev(seznam, nazev) + len(nazev)
		pozice2 = instr(pozice1,seznam,"&")
		hodnota = mid(seznam, pozice1, pozice2 - pozice1)
		if not hodnota = "" then
			value = hodnota
		end if
	end if
end function




Server.ScriptTimeout = 300
set f = server.createobject("scripting.filesystemobject")
if request("xml") = "xml_stormware" then
	set soubor = f.CreateTextFile(Server.MapPath("xml/xml_stormware_prijemky.xml"),true)
end if


soubor.WriteLine("<?xml version=""1.0"" encoding=""windows-1250""?>")
soubor.WriteLine("<dat:dataPack id=""pri001"" ico=""61875368"" application=""StwTest"" version=""2.0"" note=""Import prijemky"" xmlns:dat=""http://www.stormware.cz/schema/version_2/data.xsd"" xmlns:pri=""http://www.stormware.cz/schema/version_2/prijemka.xsd"" xmlns:typ=""http://www.stormware.cz/schema/version_2/type.xsd"">")


start = 0
Set rs = CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM s_prijemka, s_dodavatel WHERE id_s_prijemka IN (" & left(session("prijemky_vyber"),len(session("prijemky_vyber"))-1) & ") AND s_prijemka.id_s_dodavatel = s_dodavatel.id_s_dodavatel"
'response.write strSQL
'response.end

rs.Open strSQL, conn, 1, 1
do while not rs.eof
	start = start + 1
	
	soubor.WriteLine("	<dat:dataPackItem id=""" & rs("kod") & """ version=""2.0"">")
	soubor.WriteLine("		<pri:prijemka version=""2.0"">")
	soubor.WriteLine("			<pri:prijemkaHeader>")
	soubor.WriteLine("				<pri:date>" & rs("datum_vystaveni") & "</pri:date>")
	soubor.WriteLine("				<pri:text>prijemka " & rs("kod") & "</pri:text>")
	soubor.WriteLine("				<pri:partnerIdentity>")
	soubor.WriteLine("					<typ:address>")
	soubor.WriteLine("						<typ:company><![CDATA[" & rs("firma") & "]]></typ:company>")
	soubor.WriteLine("						<typ:division><![CDATA[" & "" & "]]></typ:division>")
	soubor.WriteLine("						<typ:name><![CDATA[" & rs("jmeno") & "]]></typ:name>")
	soubor.WriteLine("						<typ:city><![CDATA[" & rs("mesto") & "]]></typ:city>")
	soubor.WriteLine("						<typ:street><![CDATA[" & rs("ulice") & "]]></typ:street>")
	soubor.WriteLine("						<typ:zip><![CDATA[" & rs("psc") & "]]></typ:zip>")
	soubor.WriteLine("						<typ:ico><![CDATA[" & "" & "]]></typ:ico>")
	soubor.WriteLine("						<typ:dic><![CDATA[" & "" & "]]></typ:dic>")
	soubor.WriteLine("					</typ:address>")
	soubor.WriteLine("				</pri:partnerIdentity>")
	soubor.WriteLine("				<typ:note>Načteno z XML</typ:note>")
	soubor.WriteLine("			</pri:prijemkaHeader>")
	soubor.WriteLine("			<pri:prijemkaDetail>")
	
	'zbozi prijemky
	'Set rs2 = CreateObject("ADODB.RecordSet")
	'strSQL = "SELECT * FROM s_prijemka2 WHERE id_s_prijemka = " & rs("id_s_prijemka")
	'rs2.Open strSQL, conn, 1, 1
	'do while not rs2.eof
		'soubor.WriteLine("				<pri:prijemkaItem>")
		'soubor.WriteLine("					<pri:quantity>" & rs2("ks") & "</pri:quantity>")
		'soubor.WriteLine("					<pri:unit>ks</pri:unit>")
		'soubor.WriteLine("					<pri:coefficient>1</pri:coefficient>")
		'soubor.WriteLine("					<pri:rateVAT>high</pri:rateVAT>")
		'soubor.WriteLine("					<pri:discountPercentage>" & rs2("sleva") & "</pri:discountPercentage>")
		'soubor.WriteLine("					<pri:stockItem>")
		'soubor.WriteLine("						<typ:stockItem>")
		'soubor.WriteLine("							<pri:ids>" & rs2("id_s_prijemka2") & "</pri:ids>")
		'soubor.WriteLine("						</typ:stockItem>")
		'soubor.WriteLine("					</pri:stockItem>")
		'soubor.WriteLine("				</pri:prijemkaItem>")
		'rs2.movenext
	'loop
	'rs2.close
	
	soubor.WriteLine("			</pri:prijemkaDetail>")
	soubor.WriteLine("			<pri:prijemkaSummary>")
	soubor.WriteLine("				<pri:roundingDocument>" & "math2one" & "</pri:roundingDocument>") 'cenu zaokrouhlit na koruny
	soubor.WriteLine("				<pri:roundingVAT>" & "noneEveryRate" & "</pri:roundingVAT>") 'DPH nezaokrouhlovat
	soubor.WriteLine("				<pri:homeCurrency>")
	soubor.WriteLine("					<typ:priceNone>" & rs("cena_doklad_dph0") & "</typ:priceNone>") 'částka s nulovym DPH
	soubor.WriteLine("					<typ:priceHigh>" & rs("cena_doklad_dph1") & "</typ:priceHigh>") 'částka s vysokým DPH - bez DPH
	soubor.WriteLine("					<typ:priceHighVAT>" & rs("dph1") & "</typ:priceHighVAT>") 'vysoké DPH
	'soubor.WriteLine("					<typ:priceHighSum>" & cena_doklad_dph1 & "</typ:priceHighSum>") 'částka s vysokým DPH - s DPH
	soubor.WriteLine("					<typ:priceLow>" & rs("cena_doklad_dph2") & "</typ:priceLow>") 'částka s nízkym DPH - bez DPH
	soubor.WriteLine("					<typ:priceLowVAT>" & rs("dph2") & "</typ:priceLowVAT>") 'nízké DPH
	'soubor.WriteLine("					<typ:priceLowSum>" & cena_doklad_dph2 & "</typ:priceLowSum>") 'částka s nízkym DPH - s DPH
	soubor.WriteLine("					<typ:round>")
	soubor.WriteLine("						<typ:rateVATround>0</typ:rateVATround>") 'částka s nízkym DPH
	soubor.WriteLine("						<typ:priceRoundSum>0</typ:priceRoundSum>") 'částka s vysokym DPH
	soubor.WriteLine("						<typ:priceRoundSumVAT>0</typ:priceRoundSumVAT>") 'částka s vysokym DPH
	soubor.WriteLine("					</typ:round>")
	soubor.WriteLine("				</pri:homeCurrency>")
	soubor.WriteLine("			</pri:prijemkaSummary>")
	soubor.WriteLine("		</pri:prijemka>")
	soubor.WriteLine("	</dat:dataPackItem>")
	rs.movenext
loop
rs.close
conn.close


soubor.WriteLine("</dat:dataPack>")


response.clear
response.redirect "xml/xml_stormware_prijemky.xml"
 %>