<%@language="VBScript"%>
<% Response.Expires = -1 %>
<!--#include file="inc/kontrola-prihlaseni.asp" -->
<!--#include file="inc/conn.asp" -->
<% 
'získání id_s_zbozi
if request("id_zbozi") <> "" then
	Set rs = CreateObject("ADODB.RecordSet")
	strSQL = "SELECT id_s_zbozi FROM zbozi WHERE id_zbozi = " & request("id_zbozi")
	rs.Open strSQL, conn, 1, 1
	id_s_zbozi = rs("id_s_zbozi")
	rs.close
else
	id_s_zbozi = request("id_s_zbozi")
end if




smazat = true

if smazat = true then
	'kontrola převodů
	Set rs = CreateObject("ADODB.RecordSet")
	strSQL = "SELECT COUNT(*) FROM s_sklad_prevod2 WHERE id_s_zbozi = " & id_s_zbozi
	rs.Open strSQL, conn, 1, 1
	if rs(0) > 0 then smazat = false end if
	rs.close
end if

if smazat = true then
	'kontrola prodejek
	Set rs = CreateObject("ADODB.RecordSet")
	strSQL = "SELECT COUNT(*) FROM s_prodejka2 WHERE id_s_zbozi = " & id_s_zbozi
	rs.Open strSQL, conn, 1, 1
	if rs(0) > 0 then smazat = false end if
	rs.close
end if

if smazat = true then
	'kontrola příjemek
	Set rs = CreateObject("ADODB.RecordSet")
	strSQL = "SELECT COUNT(*) FROM s_prijemka2 WHERE id_s_zbozi = " & id_s_zbozi
	rs.Open strSQL, conn, 1, 1
	if rs(0) > 0 then smazat = false end if
	rs.close
end if

'kontrola skladových zásob
skladem = false
'hlavní sklad
Set rs = CreateObject("ADODB.RecordSet")
strSQL = "SELECT ks_sklad FROM s_zbozi WHERE id_s_zbozi = " & id_s_zbozi
rs.Open strSQL, conn, 1, 1
if rs("ks_sklad") > 0 then
	skladem = true
end if
rs.close
'ostatní sklady
Set rs = CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM s_sklad"
rs.Open strSQL, conn, 1, 1
do while not rs.eof
	Set rs2 = CreateObject("ADODB.RecordSet")
	strSQL = "SELECT ks_sklad" & rs("id_s_sklad") & ", id_s_zbozi FROM s_zbozi WHERE id_s_zbozi = " & id_s_zbozi
	rs2.Open strSQL, conn, 2, 3
	if rs2("ks_sklad" & rs("id_s_sklad")) > 0 then
		skladem = true
	end if
	rs2.close
	rs.movenext
loop
rs.close




'smazání nebo označení zboží ze skladu
if skladem = false then
	Set rs = CreateObject("ADODB.RecordSet")
	strSQL = "SELECT * FROM s_zbozi WHERE id_s_zbozi = " & id_s_zbozi
	rs.Open strSQL, conn, 2, 3
	if smazat = false then
		'označení zboží ze skladu
		rs("smazano") = true
		rs.update
		rs.close
		
		'označení zboží z obchodu
		Set rs = CreateObject("ADODB.RecordSet")
		strSQL = "SELECT * FROM zbozi WHERE id_s_zbozi = " & id_s_zbozi
		rs.Open strSQL, conn, 2, 3
		if not rs.eof then
			id_zbozi = rs("id_zbozi")
			id_kat = rs("id_zbozi_kat")
			odkaz = rs("odkaz")
			foto_pocet = rs("foto_pocet")
			rs("smazano") = true
			rs.Update
		end if
		rs.close
	else
		'smazání zboží ze skladu
		rs.delete
		rs.update
		rs.close
		'smazání zboží z obchodu
		Set rs = CreateObject("ADODB.RecordSet")
		strSQL = "SELECT * FROM zbozi WHERE id_s_zbozi = " & id_s_zbozi
		rs.Open strSQL, conn, 2, 3
		if not rs.eof then
			id_zbozi = rs("id_zbozi")
			id_kat = rs("id_zbozi_kat")
			odkaz = rs("odkaz")
			foto_pocet = rs("foto_pocet")
			poradi = rs("razeni")
			rs.delete
			rs.Update
		end if
		rs.close
		
		'smazání fotografií
		set f = server.createobject("scripting.filesystemobject")
		cesta = Server.MapPath("../obr_zbozi/" & session("server") & "/") & "\"
		if foto_pocet > 0 then
			for start = 1 to foto_pocet
				foto = start
				odkaz = odkaz
 %>
				<!--#include file="inc/foto-smazat.asp" -->
<% 
			next
		end if
		set f = nothing
	end if
	
	
	
	if not id_zbozi = "" then
		'smazání dotazů ke zboží
		Set rs = CreateObject("ADODB.RecordSet")
		strSQL = "SELECT * FROM zbozi_dotazy WHERE id_zbozi = " & id_zbozi
		rs.Open strSQL, conn, 2, 3
		do while not rs.eof
			rs.delete
			rs.Update
			rs.movenext
		loop
		rs.close
		
		'smazání parametrů zboží
		Set rs = CreateObject("ADODB.RecordSet")
		strSQL = "SELECT id_zbozi_param_typ FROM zbozi_param_typ WHERE id_zbozi_kat = " & id_kat
		rs.Open strSQL, conn, 1, 1
		if not rs.eof then
			Set rs2 = CreateObject("ADODB.RecordSet")
			strSQL = "SELECT * FROM zbozi_param" & id_kat & " WHERE id_zbozi = " & id_zbozi
			rs2.Open strSQL, conn, 2, 3
			do while not rs2.eof
				rs2.delete
				rs2.Update
				rs2.movenext
			loop
			rs2.close
		end if
		rs.close
		
		'úprava řazení
		'úprava řazení u původní kategorie
		strSQL = "UPDATE zbozi SET razeni = razeni - 1 WHERE id_zbozi_kat = " & id_kat & " AND smazano = 0 AND razeni > " & poradi
		conn.execute strsql
	end if
else
 %>		<SCRIPT LANGUAGE="JavaScript">
		<!--
		alert("Zboží nelze smazat, protože je na skladě");
		history.back()
		// -->
		</SCRIPT>
<% 
	response.end
end if



conn.close
Response.clear
if request("id_zbozi") <> "" then
	response.redirect "obch-zbozi.asp?reload=1&" & session("vyhledavaniobch-zbozi")
else
	response.redirect "zbozi.asp?" & session("vyhledavanizbozi")
end if
 %>