<%@language="VBScript"%>
<% Response.Expires = -1 %>
<!--#include file="inc/kontrola-prihlaseni.asp" -->
<!--#include file="inc/conn.asp" -->
<% 
'kontrola dostatečného počtu ks pro odebrání
Set rs = CreateObject("ADODB.RecordSet")
strSQL = "SELECT ks, id_s_zbozi FROM s_prijemka2 WHERE id_s_prijemka = " & request("id_prijemka")
rs.Open strSQL, conn, 1, 1
do while not rs.eof
	'kontrola dostatečného počtu ks pro odebrání
	ks = rs("ks")
	id_s_zbozi = rs("id_s_zbozi")
 %>	<!--#include file="inc/sklad-ks-odebrat-kontrola.asp" -->
<% 
	rs.movenext
loop
rs.close



'smazání příjemky
Set rs = CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM s_prijemka WHERE id_s_prijemka = " & request("id_prijemka")
rs.Open strSQL, conn, 2, 3
datum = rs("datum")
rs.delete
rs.update
rs.close



'smazání příjemky2
Set rs = CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM s_prijemka2 WHERE id_s_prijemka = " & request("id_prijemka")
rs.Open strSQL, conn, 2, 3
do while not rs.eof
	id_s_zbozi = rs("id_s_zbozi")
	ks = rs("ks")
	
	'úprava poču ks ve skladu
	sklad = ""
	ks = ks
	id_s_zbozi = id_s_zbozi
 %>	<!--#include file="inc/sklad-ks-odebrat.asp" -->
<% 
	'úprava počtu blokovaného zboží skladem a stav dostupnosti
	id_s_zbozi = id_s_zbozi
 %>	<!--#include file="inc/obch-zbozi-skladem.asp" -->
<% 
	'výpočet vážené ceny
	id_s_zbozi = id_s_zbozi
	id_s_prijemka = ""
	id_s_prodejka = ""
	datum = datum
 %>	<!--#include file="inc/vazena-cena.asp" -->
<% 
	rs.delete
	rs.Update
	rs.movenext
loop
rs.close



conn.close
response.clear
response.redirect "prijemky.asp"
 %>