<% codigo = request("id") set rs = conexao.execute("SELECT * FROM compras WHERE idcompra="&codigo&"") Select case hash(rs("tipofrete")) Case "encomenda" entrega = "Encomenda Normal" Case "sedex" entrega = "Frete - Correios" Case "sedex_10" entrega = "Sedex 10" Case "sedex_cobrar" entrega = "Sedex à Cobrar" Case "motoboy" entrega = loja("descricao_motoboy") Case "Transportadora" entrega = "Transportadora" Case "carta_registrada" entrega = "Carta Registrada" end select Select Case rs("status") Case "0" status = "Aguardando confirmação de Pagamento do Pedido." Case "1" status = "Pagamento confirmado. Encaminhado para envio." Case "2" status = "Produto enviado. Aguardando confirmação de recebimento." Case "3" status = "Produto entregue ao cliente. Venda Concluída!" Case "4" status = "Produto Extraviado. Aguardando retorno do produto ao lojista." Case "5" status = "Produto enviado para substituição ou garantia." Case "6" status = "Compra cancelada por fim do prazo para pagamento." Case "7" status = "Favor entrar em contato com o Lojista." Case "8" status = "Compra cancelada. Favor entrar em contato." end select Select case rs("pagamentovia") case "1" pg = "Boleto Bancário" case "2" pg = "Depósito ou Transferência Bancária" case "3" pg = "Sedex à Cobrar" case "4" pg = "Cartão de Crédito Visa" case "5" pg = "Cartão de Crédito Mastercard" end select %> Versão para Impressão de Pedido
<%=loja("nome_loja")%> - Relatório de Pedido

<% if rs("msgpresente") <> "" then%> <%end if%>
<% set cliente = conexao.execute("SELECT * FROM clientes WHERE email='"&rs("clienteid")&"'") estimativa = CDate(rs("datacompra")) + 10 If Mid(estimativa, 2, 1) = "/" Then estimativa = "0" & estimativa Else estimativa = estimativa End If If Mid(estimativa, 5, 1) = "/" Then estimativa = Mid(estimativa, 1, 3) & "0" & Mid(estimativa, 4, 99) Else estimativa = estimativa End If Select Case rs("estadoentrega") Case "AC" estadoz = "Acre" Case "AL" estadoz = "Alagoas" Case "AP" estadoz = "Amapá" Case "AM" estadoz = "Amazonas" Case "BA" estadoz = "Bahia" Case "CE" estadoz = "Ceará" Case "DF" estadoz = "Distrito Federal" Case "ES" estadoz = "Espirito Santo" Case "GO" estadoz = "Goiás" Case "MA" estadoz = "Maranhão" Case "MT" estadoz = "Mato Grosso" Case "MS" estadoz = "Mato Grosso do Sul" Case "MG" estadoz = "Minas Gerais" Case "PA" estadoz = "Pará" Case "PB" estadoz = "Paraiba" Case "PR" estadoz = "Parana" Case "PE" estadoz = "Pernambuco" Case "PI" estadoz = "Piauí" Case "RJ" estadoz = "Rio de Janeiro" Case "RN" estadoz = "Rio Grande do Norte" Case "RS" estadoz = "Rio Grande do Sul" Case "RO" estadoz = "Rondônia" Case "RR" estadoz = "Roraima" Case "SC" estadoz = "Santa Catarina" Case "SP" estadoz = "São Paulo" Case "SE" estadoz = "Sergipe" Case "TO" estadoz = "Tocantins" End Select %> <%= hash(cliente("nome")) %>
(<%= hash(cliente("email")) %>) | Pedido Nº <%=rs("idcompra")%>
 
 
> <%=status%>
 
Dados para entrega dos produtos:
Entrega via:
<%=entrega%>
Data da compra:
<%=rs("datacompra")%>
Endereço:
 <%= hash(rs("endentrega")) %>
Bairro:
 <%= hash(rs("bairroentrega")) %>
Cidade:
 <%= hash(rs("cidadeentrega")) %>
Estado:
<%= hash(rs("estadoentrega")) %>
País:
Brasil
CEP:
<%= hash(rs("cepentrega")) %>
Telefone:
<%= hash(rs("telentrega")) %>
 
   
Mensagem a ser inserida no cartão de presente
<%= hash(rs("msgpresente")) %>
   
<% Set ped = conexao.execute("SELECT * FROM pedidos WHERE idcompra = '" & rs("idcompra") & "';") If ped.EOF Then Else While Not ped.EOF if ped("especificacoes") <> "0" then set esp = conexao.execute("SELECT titulo, valor FROM produtos_especificacoes_detalhes WHERE id_especificacao = "&ped("especificacoes")&";") especifi = "

"&esp("titulo")&": "&esp("valor")&"" else especifi = "" end if set esp = nothing Set prod = conexao.Execute("select * from produtos where idprod = " & ped("idprod") & ";") If prod.bof Or prod.EOF Then response.write "" else preco = formatnumber(prod("preco"),2) quantidade = ped("quantidade") total = FormatNumber((quantidade * preco), 2) If prod("foto1") = "grande.gif" then impeq="pequena.gif" else impeq=prod("foto1") end if%> <% end if ped.movenext wend end if tprodutos = hash(rs("totalcompra")) tfrete = hash(rs("frete")) totalcompra = formatnumber( 1 + tprodutos + tfrete - 1,2) %>
Código
Foto
Produto
Quantidade
Preço
Sub-Total
O produto comprado já não está mais presente na loja
<%=prod("idprod")%>
<%=quantidade%>
<%=preco%>
<%=total%>
   
   
Valores e forma de pagamento
<%IF rs("cupom") <> "" then sql = "SELECT * FROM cupom WHERE codigo='"& hash(rs("cupom")) &"'" set cpc = conexao.execute(sql) %> <%end if%>
Total em Produtos:
R$ <%=tprodutos%>
Valor do Frete:
R$ <%=formatnumber(tfrete,2)%>
Total da Compra:
R$ <%=totalcompra%>
 
Cupom Desconto:
<%=cpc("codigo")%>
Valor do Desconto:
<% if cpc("tipo") = "porcentagem" then response.write cpc("valor") &"%" elseif cpc("tipo")="dinheiro" then response.write "R$ "& cpc("valor") end if%> do valor total da compra
 
Pagamento:
<%=pg%>
<%=status%>
<% if rs("pagamentovia") = "1" or rs("pagamentovia") = "2" then %> <%end if%> <%if rs("pagamentovia") = "4" then%> <%end if%> <%if rs("pagamentovia") = "5" then%> <%end if%>
<% if rs("pagamentovia") = "1" then porcentagem = boleto("desconto") elseif rs("pagamentovia") = "2" then porcentagem = deposito("desconto") end if %> Desconto: <%=porcentagem%>% no valor total da compra.
<% valor_total = 1 + hash(rs("totalcompra")) + hash(rs("frete")) - 1 if rs("pagamentovia") = "1" then tatlis = valor_total - (valor_total * boleto("desconto") / 100) porcentagem = boleto("desconto") elseif rs("pagamentovia") = "2" then tatlis = valor_total - (valor_total * deposito("desconto") / 100) porcentagem = deposito("desconto") end if if rs("cupom") <> "" then sql = "SELECT * FROM cupom WHERE codigo='"& hash(rs("cupom")) &"'" set cpc = conexao.execute(sql) if cpc("tipo")= "porcentagem" then subt = tatlis - (tatlis * cpc("valor") / 100) elseif cpc("tipo") = "dinheiro" then subt = tatlis - cpc("valor") end if else subt = tatlis end if set cpc= nothing valor = formatnumber(subt ,2) %> Valor a ser pago: R$ <%=valor%>
Forma de Pagamento:
TID da Transação: <%= hash(rs("tid")) %>
Número de Autorização: <%= hash(rs("nr_autorizacao")) %>
Forma de Pagamento:
Número do Cartão Mascarado:<%= hash(rs("nr_mascarado")) %>
Número de Autorização:<%= hash(rs("nr_aut")) %>
Número Sequencial Único:<%= hash(rs("nr_sqn")) %>
Número de Comprovante de Venda:<%= hash(rs("nr_cv")) %>
Número de Autenticação:<%= hash(rs("nr_autenticacao")) %>
Origem da Autorização:<%= hash(rs("nr_bin")) %>