<%@language="VBScript"%> <% Response.Expires = -1 %> <% smazat_infobox = false stranka = "prodejky" %> <% 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_prodejka.kod DESC" end if 'filtrování kategorie if session("filtr" & stranka) <> "" then filtr_kat = "" else filtr_kat = "" end if 'filtrování id zákazníků if request("id_zakaznik") <> "" then filtr_zakaznik = " AND id_zakaznik = " & request("id_zakaznik") 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_prodejka = ANY (SELECT id_s_prodejka FROM s_prodejka2 WHERE id_s_zbozi = ANY (SELECT id_s_zbozi FROM s_zbozi WHERE nazev_zbozi LIKE '%" & q & "%'))" elseif request("kde") = "3" then session("vyhledavani" & stranka) = "q=" & request("q") & "&kde=3" q = request("q") query = session("vyhledavani" & stranka) & "&" q = replace(q,"''","''''") q = replace(q,"'","") q = replace(q,"''''","''") jmeno_prijmeni = split(q," ") jmeno = jmeno_prijmeni(0) if ubound(jmeno_prijmeni) > 0 then prijmeni = " AND zakaznik LIKE '%" & jmeno_prijmeni(1) & "%'" end if vyhl = " AND (zakaznik LIKE '%" & jmeno & "%'" & prijmeni & ")" 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 & filtr_zakaznik & vyhl if request("filtr_top") <> "" then filtr_top = request("filtr_top") else filtr_top = 5000 end if Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT TOP " & filtr_top & " * FROM s_prodejka WHERE id_s_prodejka > 0 " & filtr & " ORDER BY " & session("seradit" & stranka) rs.Open strSQL, conn, 1, 1 pocet_zaznamu = rs.recordcount if not rs.eof then id_obj = rs("id_obj") end if %>

<% 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 %>">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 %>">Dobropis<% if instr(session("seradit" & stranka),"id_s_dobropis DESC") > 0 then %>

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

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

<% elseif instr(session("seradit" & stranka),"id_obj 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 DESC") > 0 then %>

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

<% end if %> 0 then %> CLASS="razeni"<% end if %>>Cena s DPH 0 then %> CLASS="razeni"<% end if %>>Jméno 0 then %> CLASS="razeni"<% end if %>>Email 0 then %> CLASS="razeni"<% end if %>> 0 then %>n<% else %>d<% end if %>">Vystavil<% if instr(session("seradit" & stranka),"admin DESC") > 0 then %>

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

<% end if %> <% 'funkce - vyseparování údajů z objednávky function value(nazev) seznam = rs("zakaznik") if instr(seznam,nazev) > 0 then pozice1 = instrrev(seznam, nazev) + len(nazev) pozice2 = instr(pozice1,seznam,"&") hodnota = mid(seznam, pozice1, pozice2 - pozice1) if not hodnota = "" then value = server.htmlencode(hodnota) end if end if end function 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 For i = 1 to rs.PageSize start = start + 1 'zkratka dodání Set rs3 = CreateObject("ADODB.RecordSet") strSQL = "SELECT zkratka FROM dodani WHERE id_dodani = (SELECT id_dodani FROM obj WHERE id_obj = " & rs("id_obj") & ")" rs3.Open strSQL, conn, 1, 1 if not rs3.eof then dodani_zkratka = rs3("zkratka") end if rs3.close 'variabilní symbol if id_obj > 0 then Set rs3 = CreateObject("ADODB.RecordSet") strSQL = "SELECT kod FROM obj WHERE id_obj = " & rs("id_obj") rs3.Open strSQL, conn, 1, 1 if not rs3.eof then vs = "vs " & rs3("kod") end if rs3.close end if %> " ONCLICK="if(odkaz == true){document.location.href = 'prodejky-edit.asp?id_prodejka=<%= rs("id_s_prodejka") %>&str=<%= request("str") %>'}" 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	Dodání	Pozn
&hodnota=' + this.checked,'seznam'" TYPE="checkbox" NAME="chck" VALUE="<%= rs("id_s_prodejka") %>"<% if instr("," & session("prodejky_vyber"),"," & rs("id_s_prodejka") & ",") > 0 then %> CHECKED<% end if %> id="vyber">	<%= rs("kod") %>	"><%= rs("id_s_dobropis") %>	<%= rs("id_obj") %> <%= vs %>	<%= formatdatetime(rs("datum"),2) %>	','prodejka'); return false" style="color: black">Ukaž zboží <% if request("ukaz_vse") = "1" then %> <% cena_celkem = 0 id_prodejka = rs("id_s_prodejka") Set rs3 = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM s_prodejka2 WHERE id_s_prodejka = " & rs("id_s_prodejka") 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 nazev_zbozi = rs2(0) zbozi = true else nazev_zbozi = "" zbozi = false end if cena_celkem = cena_celkem + (rs3("cena") * rs3("ks")) %> <%= nazev_zbozi %> <%= rs3("ks") & " ks \| " & rs3("cena") & " Kč" %> <% rs3.movenext loop %> <% else %> <%= rs("id_s_prodejka") %> <% end if %>	<%= rs("cena_celkem") %> <%= round(cena_celkem,1) + rs("postovne") + rs("balne") %>	<% hodnota = "jmeno=" %><%= value(hodnota) %><% hodnota = "prijmeni=" %><%= " " & value(hodnota) %>	<% hodnota = "email=" %><%= value(hodnota) %>	<%= dodani_zkratka %>	<%= rs("poznamka") %>	<%= rs("admin") %>

<% if pocet_zaznamu > 0 then %>

vybrat vše

<% end if %>

<% rs.close conn.close %>