<%@language="VBScript"%> <% Response.Expires = -1 %> <% smazat_infobox = false stranka = "prodejky-dobropis" %> <% 'ř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_dobropis.datum 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("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 & "%'" else session("vyhledavani" & stranka) = "" end if filtr = filtr_kat & vyhl Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT *, s_dobropis.datum AS datum_dobropis, s_prodejka.kod AS kod_prodejka FROM s_prodejka, zakaznik, s_dobropis WHERE s_prodejka.id_s_prodejka = s_dobropis.id_s_prodejka AND s_prodejka.id_zakaznik = zakaznik.id_zakaznik " & 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),"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 %>">Prodejka<% 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 %>">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 %>> 0 then %>n<% else %>d<% end if %>">Zákazník<% if instr(session("seradit" & stranka),"jmeno DESC") > 0 then %><% elseif instr(session("seradit" & stranka),"jmeno 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 For i = 1 to rs.PageSize start = start + 1 %> " ONCLICK="if(odkaz == true){document.location.href = 'prodejky-dobropis-edit.asp?id_dobropis=<%= rs("id_s_dobropis") %>'}" 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
<%= rs("id_s_dobropis") %>  "><%= rs("kod_prodejka") %>  <%= rs("id_obj") %>  <%= rs("datum_dobropis") %> ','dobropis'); 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 cena, ks, id_s_zbozi FROM s_dobropis2 WHERE id_s_dobropis = " & rs("id_s_dobropis") 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 %> <% end if %> 		<%= rs("cena_celkem") %>
<%= rs("postovne") %>		 <%= rs("jmeno") %><%= " " & rs("prijmeni") %> 
<% rs.close conn.close %>