| <%= eshop_nazev %>.cz |
Daňový doklad č.: <%= rs("kod") %> |
Dodavatel:
<%= eshop_nazev %>.cz
Daniel Tureček
Boleslavova 30/16
14000, Praha 4
IČ: 61875368
DIČ: CZ7607290614
Tel.: +420257311113
Mobil: +420608343434
E-mail: <%= lcase(eshop_email) %>
www: www.<%= lcase(eshop_nazev) %>.cz
|
Provozovna:
<%= eshop_nazev %>.cz
Podolská 245/116
147 00 Praha 4
Účet: 118707001/5500 Raiffeisen Bank
|
|
Odběratel:
<%
zakaznik = rs("zakaznik")
fakturacni_adr = rs("fakturacni_adr")
'funkce - vyseparování údajů z objednávky
function value(nazev)
seznam = 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
%>
<% if fakturacni_adr = false then %>
<% hodnota = "jmeno=" %><%= replace(value(hodnota),"
","") %><% hodnota = "prijmeni=" %><%= " " & replace(value(hodnota),"
","") %>
<% hodnota = "firma2=" %><%= value(hodnota) %>
<% hodnota = "ulice2=" %><%= value(hodnota) %>
<% hodnota = "psc2=" %><%= replace(value(hodnota),"
","") %>, <% hodnota = "mesto2=" %><%= value(hodnota) %>
<% if value("ico2=") <> "" then %><% hodnota = "ico2=" %>IČ: <%= replace(value(hodnota),"
","") %>
<% end if %>
<% if value("dic2=") <> "" then %><% hodnota = "dic2=" %>DIČ: <%= replace(value(hodnota),"
","") %>
<% end if %>
<% else %>
<% hodnota = "jmeno3=" %><%= value(hodnota) %>
<% hodnota = "firma3=" %><%= value(hodnota) %>
<% hodnota = "ulice3=" %><%= value(hodnota) %>
<% hodnota = "mesto3=" %><%= value(hodnota) %>
<% hodnota = "psc3=" %><%= value(hodnota) %>
<% if value("ico3=") <> "" then %><% hodnota = "ico3=" %>IČ: <%= value(hodnota) %><% end if %>
<% if value("dic3=") <> "" then %><% hodnota = "dic3=" %>DIČ: <%= value(hodnota) %><% end if %>
<% end if %>
Tel.: <% hodnota = "tel=" %><%= value(hodnota) %>
E-mail: <% hodnota = "email=" %><%= value(hodnota) %>
Adresa doručení:
<% hodnota = "jmeno2=" %>
<% if value(hodnota) <> "" then %>
<% hodnota = "jmeno2=" %><%= value(hodnota) %>
<% else %>
<% hodnota = "jmeno=" %><%= replace(value(hodnota),"
","") %><% hodnota = "prijmeni=" %><%= " " & replace(value(hodnota),"
","") %>
<% end if %>
<% hodnota = "firma2=" %><%= value(hodnota) %>
<% hodnota = "ulice2=" %><%= replace(value(hodnota),"
","") %>, <% hodnota = "mesto2=" %><%= replace(value(hodnota),"
","") %><% hodnota = "psc2=" %>, <%= replace(value(hodnota),"
","") %>
|
|
<%
'získání údajů o platbě apod.
Set rs2 = CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM platba WHERE id_platba = " & rs("id_platba")
rs2.Open strSQL, conn, 1, 1
platba = rs2("nazev")
rs2.close
Set rs2 = CreateObject("ADODB.RecordSet")
strSQL = "SELECT zkratka, kod FROM dodani, obj WHERE dodani.id_dodani = obj.id_dodani AND id_obj = " & rs("id_obj")
rs2.Open strSQL, conn, 1, 1
if not rs2.eof then
dodani = rs2("zkratka")
kod_obj = rs2("kod")
else
kod_obj = ""
end if
rs2.close
%>
Způsob platby: <%= platba %><% if dodani <> "" then %> (<%= dodani %>)<% end if %>
Variabilní symbol: <%= rs("kod") %>
Datum uskutečnění zdanitelného plnění: <% if session("admin_bikestore_hlavni") = "1" then %>"><% else %><%= formatdatetime(rs("datum_dph"),2) %><% end if %>
Číslo objednávky: <%= kod_obj %>
|
| Položka |
Množství |
Cena / ks |
DPH |
Celkem |
<%
cena_celkem = 0
ks_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
ks_celkem = ks_celkem + rs3("ks")
id_s_zbozi = rs3("id_s_zbozi")
dph_prodej = rs3("dph")
if rs3("zbozi") <> "" or isnull(rs3("zbozi")) = false then
nazev_zbozi = rs3("zbozi")
else
Set rs4 = CreateObject("ADODB.RecordSet")
strSQL = "SELECT nazev_zbozi, dph_prodej FROM s_zbozi WHERE id_s_zbozi = " & rs3("id_s_zbozi")
rs4.Open strSQL, conn, 1, 1
if not rs4.eof then
nazev_zbozi = rs4(0)
else
nazev_zbozi = ""
end if
end if
cena_po_sleve = round(rs3("cena") - ((rs3("cena")/100) * rs3("sleva")),1)
cena_celkem = round(cena_celkem + (cena_po_sleve * rs3("ks")),0)
'kontrola více DPH
if instr("," & dph, "," & dph_prodej & ",") = 0 then
dph = dph & dph_prodej & ","
end if
%>
| <%= nazev_zbozi %> |
<%= rs3("ks") %>ks |
<%= rs3("cena") %> |
<%= dph_prodej %> |
<%= round(cena_po_sleve * rs3("ks"),0) %> |
<%
rs3.movenext
loop
rs3.close
'DPH pro poštovné a balné
if instr("," & dph, "," & rs("dph_postovne") & ",") = 0 then
dph = dph & rs("dph_postovne") & ","
end if
%>
| Poštovné |
1ks |
<%= rs("postovne") %> |
<%= rs("dph_postovne") %> |
<%= rs("postovne") %> |
<% if rs("balne") > 0 then %>
| Balné |
1ks |
<%= rs("balne") %> |
<%= rs("dph_postovne") %> |
<%= rs("balne") %> |
<% end if %>
| CELKEM |
<%= cena_celkem + rs("postovne") + rs("balne") %> |
|
| Rekapitulace DPH |
Základ |
Sazba DPH |
DPH |
Celkem s DPH |
<%
seznam = split(dph,",")
for start = 0 to ubound(seznam) - 1
cena_celkem = 0
Set rs3 = CreateObject("ADODB.RecordSet")
strSQL = "SELECT cena, sleva, ks FROM s_prodejka2 WHERE id_s_prodejka = " & rs("id_s_prodejka") & " AND dph = " & clng(seznam(start))
rs3.Open strSQL, conn, 1, 1
do while not rs3.eof
cena_po_sleve = round(rs3("cena") - ((rs3("cena")/100) * rs3("sleva")),1)
cena_celkem = round(cena_celkem + (cena_po_sleve * rs3("ks")),0)
rs3.movenext
loop
rs3.close
'přidání poštovného a balného do výpočtu dph
if seznam(start) = cstr(rs("dph_postovne")) then
cena_celkem = cena_celkem + rs("postovne") + rs("balne")
end if
if cena_celkem > 0 then
%>
| <%= round((cena_celkem / (clng(seznam(start)) + 100)) * 100,2) %> |
<%= clng(seznam(start)) %>% |
<%= round(cena_celkem - ((cena_celkem / (clng(seznam(start)) + 100)) * 100),2) %> |
<%= cena_celkem %> |
<%
end if
next
%>
|
Vystaveno dne <% if session("admin_bikestore_hlavni") = "1" then %>"><% else %><%= formatdatetime(rs("datum"),1) %><% end if %>
..................................................
|