<%@language="VBScript"%> <% Response.Expires = -1 %> <% 'uložení dodavatele id_s_dodavatel = request("dodavatel") if request("dodavatel_novy") = "1" then Set rs = CreateObject("ADODB.RecordSet") rs.Open "s_dodavatel", conn, 1, 3, 2 rs.addnew rs("jmeno") = request("jmeno") rs("firma") = request("firma") rs("ulice") = request("ulice") rs("mesto") = request("mesto") rs("psc") = request("psc") rs("email") = request("email") rs("mobil") = request("mobil") rs("tel1") = request("tel1") rs("tel2") = request("tel2") rs("fax") = request("fax") rs("icq") = request("icq") rs("skype") = request("skype") rs.Update rs.close Set rsID = conn.execute("SELECT @@IDENTITY FROM s_dodavatel") id_s_dodavatel = rsID(0) Set rsID = nothing end if 'získání dph poštovného a balného Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT dph FROM s_zbozi_dph_postovne" rs.Open strSQL, conn, 1, 1 dph_postovne = rs("dph") rs.close 'získání dph Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM s_zbozi_dph_nakup" rs.Open strSQL, conn, 1, 1 do while not rs.eof if rs("id_s_zbozi_dph_nakup") = 1 then dph1 = rs("dph") 'vysoké dph elseif rs("id_s_zbozi_dph_nakup") = 2 then dph2 = rs("dph") 'nízké dph elseif rs("id_s_zbozi_dph_nakup") = 4 then dph3 = rs("dph") 'třetí dph end if rs.movenext loop rs.close 'uložení příjemky Set rs = CreateObject("ADODB.RecordSet") rs.Open "s_prijemka", conn, 1, 3, 2 rs.addnew rs("id_s_dodavatel") = id_s_dodavatel rs("datum") = cdate(FormatDateTime(now,0)) rs("kod") = request("kod") rs("postovne") = request("postovne") if request("postovne_s_dph") = "1" then rs("postovne_s_dph") = true else rs("postovne_s_dph") = false end if rs("balne") = request("balne") if request("balne_s_dph") = "1" then rs("balne_s_dph") = true else rs("balne_s_dph") = false end if rs("poznamka") = request("poznamka") rs("cena_po_sleve_celkem") = 0 if isdate(request("datum_vystaveni")) = true then rs("datum_vystaveni") = request("datum_vystaveni") else rs("datum_vystaveni") = now end if if isdate(request("datum_splatnost")) = true then rs("datum_splatnost") = request("datum_splatnost") else rs("datum_splatnost") = now + 14 end if rs("dph_postovne") = dph_postovne rs("cena_doklad_dph0") = 0 rs("cena_doklad_dph1") = 0 rs("cena_doklad_dph2") = 0 rs("cena_doklad_dph3") = 0 rs("dph1") = dph1 rs("dph2") = dph2 rs("dph3") = dph3 rs.Update rs.close Set rsID = conn.execute("SELECT @@IDENTITY FROM s_prijemka") id_s_prijemka = rsID(0) Set rsID = nothing 'uložení příjemky2 cena_po_sleve_celkem = 0 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 'získání ceny, ks Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT cena, ks_sklad, dph_nakup, dph_nakup2 FROM s_zbozi WHERE id_s_zbozi = " & id_zbozi rs.Open strSQL, conn, 1, 1 cena = rs("cena") ks_sklad = rs("ks_sklad") dph_nakup = rs("dph_nakup") dph_nakup2 = rs("dph_nakup2") rs.close 'uložení příjemky2 Set rs = CreateObject("ADODB.RecordSet") rs.Open "s_prijemka2", conn, 1, 3, 2 rs.addnew rs("id_s_prijemka") = id_s_prijemka rs("id_s_zbozi") = id_zbozi rs("kod2") = "" rs("ks") = ks rs("cena") = cena rs("sleva") = 0 rs("marze") = 0 rs("cena_po_sleve") = cena rs("dph") = dph_nakup rs.update rs.close 'celková cena cena_po_sleve_celkem = cena_po_sleve_celkem + (cena * ks) 'úprava poču ks ve skladu sklad = "" id_s_zbozi = id_zbozi ks = ks %> <% 'úprava počtu blokovaného zboží skladem a stav dostupnosti id_s_zbozi = id_zbozi %> <% 'výpočet vážené ceny id_s_zbozi = id_zbozi id_s_prijemka = id_s_prijemka id_s_prodejka = "" datum = "" %> <% next 'uložení celkové ceny strSQL = "UPDATE s_prijemka SET cena_po_sleve_celkem = REPLACE('" & cena_po_sleve_celkem & "',',','.') WHERE id_s_prijemka = " & id_s_prijemka conn.execute strSQL session("zbozi_vyber") = "" conn.close Response.clear response.redirect "prijemky-edit.asp?id_prijemka=" & id_s_prijemka %>