<%@language="VBScript"%> <% Response.Expires = -1 %> <% smazat_infobox = false stranka = "prijemky" %> <% if request("filtr") <> "" then session("filtr" & stranka) = request("filtr") end if %>

<% 'řazení záznamů if request("seradit" & stranka) <> "" then if right(request("seradit" & stranka),2) = "_n" then session("seradit" & stranka) = left(request("seradit" & stranka),len(request("seradit" & stranka))-2) & " ASC" else session("seradit" & stranka) = left(request("seradit" & stranka),len(request("seradit" & stranka))-2) & " DESC" end if elseif session("seradit" & stranka) = "" then session("seradit" & stranka) = "s_prijemka.id_s_prijemka DESC" end if 'filtrování kategorie if session("filtr" & stranka) <> "" then filtr_kat = "" else filtr_kat = "" end if 'vyhledávání if request("q") <> "" then if request("kde") = "1" or request("kde") = "" then if request("form") = "1" then session("vyhledavani_sloupec" & stranka) = session("seradit" & stranka) end if session("vyhledavani" & stranka) = "q=" & request("q") q = request("q") query = "q=" & q & "&" q = replace(q,"''","''''") q = replace(q,"'","") q = replace(q,"''''","''") sloupec = session("vyhledavani_sloupec" & stranka) sloupec = replace(sloupec," ASC","") sloupec = replace(sloupec," DESC","") vyhl = " AND " & sloupec & " LIKE '%" & q & "%'" elseif request("kde") = "2" then session("vyhledavani" & stranka) = "q=" & request("q") & "&kde=2" q = request("q") query = session("vyhledavani" & stranka) & "&" q = replace(q,"''","''''") q = replace(q,"'","") q = replace(q,"''''","''") vyhl = " AND id_s_prijemka = ANY (SELECT id_s_prijemka FROM s_prijemka2 WHERE id_s_zbozi = ANY (SELECT id_s_zbozi FROM s_zbozi WHERE nazev_zbozi LIKE '%" & q & "%'))" elseif request("kde") = "4" then session("vyhledavani" & stranka) = "q=" & request("q") & "&kde=4" q = request("q") query = session("vyhledavani" & stranka) & "&" datum = split(q,"-") if ubound(datum) = 1 then datum_od = trim(datum(0)) datum_do = trim(datum(1)) end if if isdate(datum_od) = true and isdate(datum_do) = true then if request.servervariables("SERVER_NAME") = "localhost" then vyhl = " AND (datum >= CDATE('" & datum_od & "') AND datum <= CDATE('" & dateadd("d",1,datum_do) & "'))" else vyhl = " AND (datum >= '" & datum_od & "' AND datum <= '" & dateadd("d",1,datum_do) & "')" end if end if end if else session("vyhledavani" & stranka) = "" end if filtr = filtr_kat & vyhl Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT *, s_prijemka.datum_vystaveni AS datum_prijemka FROM s_prijemka, s_dodavatel WHERE s_prijemka.id_s_dodavatel = s_dodavatel.id_s_dodavatel " & filtr & " ORDER BY " & session("seradit" & stranka) rs.Open strSQL, conn, 1, 1 pocet_zaznamu = rs.recordcount %>

<% if request("q") <> "" then %>

Hledaný výraz <%= request("q") %> | zrušit vyhledávání

<% end if %> 0 then %> CLASS="razeni"<% end if %>> 0 then %>n<% else %>d<% end if %>">ID<% if instr(session("seradit" & stranka),"id_s_prijemka DESC") > 0 then %>

<% elseif instr(session("seradit" & stranka),"id_s_prijemka ASC") > 0 then %>

<% end if %> 0 then %> CLASS="razeni"<% end if %>> 0 then %>n<% else %>d<% end if %>">Kód<% if instr(session("seradit" & stranka),"kod DESC") > 0 then %>

<% elseif instr(session("seradit" & stranka),"kod ASC") > 0 then %>

<% end if %> 0 then %> CLASS="razeni"<% end if %>> 0 then %>n<% else %>d<% end if %>">Datum<% if instr(session("seradit" & stranka),"datum_vystaveni DESC") > 0 then %>

<% elseif instr(session("seradit" & stranka),"datum_vystaveni ASC") > 0 then %>

<% end if %> 0 then %> CLASS="razeni"<% end if %>>Cena bez / s DPH 0 then %> CLASS="razeni"<% end if %>> 0 then %>n<% else %>d<% end if %>">Poštovné<% if instr(session("seradit" & stranka),"postovne DESC") > 0 then %>

<% elseif instr(session("seradit" & stranka),"postovne ASC") > 0 then %>

<% end if %> 0 then %> CLASS="razeni"<% end if %>> 0 then %>n<% else %>d<% end if %>">Balné<% if instr(session("seradit" & stranka),"balne DESC") > 0 then %>

<% elseif instr(session("seradit" & stranka),"balne ASC") > 0 then %>

<% end if %> 0 then %> CLASS="razeni"<% end if %>> 0 then %>n<% else %>d<% end if %>">Dodavatel<% if instr(session("seradit" & stranka),"firma DESC") > 0 then %>

<% elseif instr(session("seradit" & stranka),"firma ASC") > 0 then %>

<% end if %> <% pocet_zaznamu = 0 start = 0 if not rs.eof then if request("vse") = "1" then rs.PageSize = rs.recordcount else rs.PageSize = 100 end if If request("str") = "" then rs.AbsolutePage = 1 strana = 1 else if rs.pagecount < clng(request("str")) then rs.AbsolutePage = rs.pagecount strana = rs.pagecount else rs.AbsolutePage = request("str") strana = clng(request("str")) end if End if 'dph poštovného dph_postovne = rs("dph_postovne") For i = 1 to rs.PageSize start = start + 1 'poštovné if rs("postovne_s_dph") = true then postovne = rs("postovne") else postovne = round(rs("postovne") * (1 + (dph_postovne / 100)),2) end if 'balné if rs("balne_s_dph") = true then balne = rs("balne") else balne = round(rs("balne") * (1 + (dph_postovne / 100)),2) end if %> " ONCLICK="if(odkaz == true){document.location.href = 'prijemky-edit.asp?id_prijemka=<%= rs("id_s_prijemka") %>'}" ONMOUSEOVER="barva_pozadi(this,true,'')" ONMOUSEOUT="barva_pozadi(this,false,'')" ONCONTEXTMENU="menu(event, this,'zbozi.asp')"> <% pocet_zaznamu = pocet_zaznamu + 1 rs.movenext if rs.eof then exit for end if next end if %>

	Zboží - Ukaž vše
&hodnota=' + this.checked,'seznam'" TYPE="checkbox" NAME="chck" VALUE="<%= rs("id_s_prijemka") %>"<% if instr("," & session("prijemky_vyber"),"," & rs("id_s_prijemka") & ",") > 0 then %> CHECKED<% end if %> id="vyber">	<%= rs("id_s_prijemka") %>	<%= rs("kod") %>	<%= rs("datum_prijemka") %>	','prijemka'); return false" style="color: black">Ukaž zboží <% if request("ukaz_vse") = "1" then %> <% cena_celkem = 0 id_prijemka = rs("id_s_prijemka") Set rs3 = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM s_prijemka2 WHERE id_s_prijemka = " & rs("id_s_prijemka") rs3.Open strSQL, conn, 1, 1 if rs3.eof then response.write " " end if do while not rs3.eof id_s_zbozi = rs3("id_s_zbozi") Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT nazev_zbozi FROM s_zbozi WHERE id_s_zbozi = " & rs3("id_s_zbozi") rs2.Open strSQL, conn, 1, 1 if not rs2.eof then Set rs4 = CreateObject("ADODB.RecordSet") strSQL = "SELECT id_zbozi FROM zbozi WHERE id_s_zbozi = " & rs3("id_s_zbozi") rs4.Open strSQL, conn, 1, 1 if not rs4.eof then id_zbozi = rs4(0) else id_zbozi = 0 end if rs4.close nazev_zbozi = rs2(0) zbozi = true else nazev_zbozi = "" nazev2 = "" zbozi = false id_zbozi = 0 end if cena = rs3("cena_po_sleve") cena_celkem = cena_celkem + (rs3("cena_po_sleve") * rs3("ks")) if id_zbozi > 0 then www = " \| web" else www = "" end if %> <%= nazev_zbozi %> <%= rs3("ks") & " ks \| " & cena & " Kč s náklady" & www %> <% rs3.movenext loop %> <% else %> <%= rs("id_s_prijemka") %> <% end if %>	<%= rs("cena_po_sleve_celkem") %> <%= rs("cena_po_sleve_celkem_dph") %>	<%= postovne %>	<%= balne %>	<%= rs("firma") & ", " & rs("jmeno") %>

<% if pocet_zaznamu > 0 then %>

vybrat vše

<% end if %>

<% rs.close conn.close %>