<%@language="VBScript"%> <% Response.Expires = -1 %> <% 'kontrola, zda je dostatek zboží na skladě a správného zadání počtu ks seznam = split(request("zbozi_vyber"),",") for start = 0 to ubound(seznam) - 1 id_zbozi = seznam(start) if request("ks" & id_zbozi) > 0 then ks = clng(abs(request("ks" & id_zbozi))) else ks = 1 end if Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT ks_sklad" & request("sklad_zdroj") & ", nazev_zbozi FROM s_zbozi WHERE id_s_zbozi = " & seznam(start) rs2.Open strSQL, conn, 1, 1 ks_sklad = rs2("ks_sklad" & request("sklad_zdroj")) nazev_zbozi = rs2("nazev_zbozi") rs2.close if ks_sklad < ks then %> <% response.end end if next 'uložení nového převodu Set rs = CreateObject("ADODB.RecordSet") rs.Open "s_sklad_prevod", conn, 1, 3, 2 rs.addnew rs("datum") = cdate(FormatDateTime(now,0)) if request("sklad_zdroj") = "" then rs("sklad_zdroj") = 0 else rs("sklad_zdroj") = request("sklad_zdroj") end if if request("sklad_cil") = "" then rs("sklad_cil") = 0 else rs("sklad_cil") = request("sklad_cil") end if rs("poznamka") = request("poznamka") rs.Update rs.close Set rsID = conn.execute("SELECT @@IDENTITY FROM s_sklad_prevod") id_prevod = rsID(0) Set rsID = nothing seznam = split(request("zbozi_vyber"),",") for start = 0 to ubound(seznam) - 1 id_s_zbozi = seznam(start) if request("ks" & id_s_zbozi) > 0 then ks = clng(abs(request("ks" & id_s_zbozi))) else ks = 1 end if 'uložení nového převodu2 Set rs = CreateObject("ADODB.RecordSet") rs.Open "s_sklad_prevod2", conn, 1, 3, 2 rs.addnew rs("id_s_sklad_prevod") = id_prevod rs("id_s_zbozi") = id_s_zbozi rs("ks") = ks rs.Update rs.close if request("sklad_zdroj") = "" then 'úprava poču ks ve skladu sklad = "" id_s_zbozi = id_s_zbozi ks = ks %> <% 'úprava poču ks ve skladu sklad = request("sklad_cil") id_s_zbozi = id_s_zbozi ks = ks %> <% else 'úprava poču ks ve skladu sklad = "" id_s_zbozi = id_s_zbozi ks = ks %> <% 'úprava poču ks ve skladu sklad = request("sklad_zdroj") id_s_zbozi = id_s_zbozi ks = ks %> <% end if 'úprava počtu blokovaného zboží skladem a stav dostupnosti id_s_zbozi = id_s_zbozi %> <% next session("zbozi_vyber" & application("sklad")) = "" conn.close if application("sklad") = "" then Response.clear response.redirect "prevody.asp" else Response.clear response.redirect "zbozi.asp" end if %>