<%@language="VBScript"%>
<% Response.Expires = -1 %>
<!--#include file="inc/kontrola-prihlaseni.asp" -->
<!--#include file="inc/conn.asp" -->
<% 
'úprava uvozovek - palců "
nazev1 = replace(request("nazev1"),"""","''")
nazev2 = replace(request("nazev2"),"""","''")
nazev3 = replace(request("nazev3"),"""","''")
var_nazev = replace(request("var_nazev"),"""","''")



'získání DPH
Set rs = CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM s_zbozi_dph_nakup WHERE id_s_zbozi_dph_nakup = " & request("dph_nakup")
rs.Open strSQL, conn, 1, 1
dph_nakup = rs("dph")
dph_nakup2 = rs("id_s_zbozi_dph_nakup")
rs.close
Set rs = CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM s_zbozi_dph_prodej WHERE id_s_zbozi_dph_prodej = " & request("dph_prodej")
rs.Open strSQL, conn, 1, 1
dph_prodej = rs("dph")
dph_prodej2 = rs("id_s_zbozi_dph_prodej")
rs.close



'uložení zboží do skladu
Set rs = CreateObject("ADODB.RecordSet")
rs.Open "s_zbozi", conn, 1, 3, 2
rs.addnew
if not request("znacka2") = "" and request("znacka_nova") = "1" then
	'uložení nové značky
	Set rs2 = CreateObject("ADODB.RecordSet")
	rs2.Open "s_znacka", conn, 1, 3
	rs2.addnew
	rs2("nazev") = request("znacka2")
	rs2.Update
	rs2.close
	Set rsID = conn.execute("SELECT @@IDENTITY FROM s_znacka")
	id_znacka = rsID(0)
	Set rsID = nothing
	
	znacka = request("znacka2")
	rs("id_s_znacka") = id_znacka
else
	Set rs2 = CreateObject("ADODB.RecordSet")
	strSQL = "SELECT nazev FROM s_znacka WHERE id_s_znacka = " & request("znacka")
	rs2.Open strSQL, conn, 1, 1
	znacka = rs2("nazev")
	rs2.close
	rs("id_s_znacka") = request("znacka") : id_znacka = request("znacka")
end if
rs("datum") = cdate(FormatDateTime(now,0))
rs("nazev1") = nazev1
rs("nazev2") = nazev2
rs("nazev3") = nazev3
	nazev_zbozi = znacka
	if nazev1 <> "" then nazev_zbozi = nazev_zbozi & " " & nazev1 end if
	if nazev2 <> "" then nazev_zbozi = nazev_zbozi & " " & nazev2 end if
	nazev_zbozi2 = nazev_zbozi
	if var_nazev <> "" then nazev_zbozi = nazev_zbozi & " " & var_nazev end if
	if request("rocnik") <> "" then
		nazev_zbozi = nazev_zbozi & " " & request("rocnik")
		nazev_zbozi2 = nazev_zbozi2 & " " & request("rocnik")
	end if
	if nazev3 <> "" then
		nazev_zbozi = nazev_zbozi & " " & nazev3
		nazev_zbozi2 = nazev_zbozi2 & " " & nazev3
	end if
rs("nazev_zbozi") = nazev_zbozi
rs("nazev_zbozi2") = nazev_zbozi2
rs("dph_nakup") = dph_nakup
rs("dph_prodej") = dph_prodej
rs("rocnik") = request("rocnik")
rs("cena") = 0
rs("cena_puvodni") = 0
rs("cena_vazena") = 0
rs("limit") = request("limit")
rs("kr") = request("kr")
rs("ks_sklad" & request("sklad")) = 0
rs("smazano") = false
rs("var_nazev") = var_nazev
rs("kod") = request("kod")
rs("dph_nakup2") = dph_nakup2
rs("dph_prodej2") = dph_prodej2
rs.Update
rs.close
Set rsID = conn.execute("SELECT @@IDENTITY FROM s_zbozi")
id_s_zbozi = rsID(0)
Set rsID = nothing



conn.close
Response.clear
if request("do_obchodu") = "" then
	response.redirect "zbozi.asp"
else
	response.redirect "obch-zbozi-pridat.asp?id_s_zbozi=" & id_s_zbozi
end if
 %>