<% set atucompra = conexao.execute("UPDATE compras SET pagamentovia='1', status='0' WHERE idcompra='"&session("OrderID")&"'") 'controle de estoque set pedidos = conexao.execute("SELECT * FROM pedidos WHERE idcompra='"&session("OrderID")&"'") while not pedidos.eof if pedidos("especificacoes")="0" then set est = conexao.execute("SELECT * FROM estoque WHERE idproduto='"&pedidos("idprod")&"'") menos = 1 + est("estoque") - pedidos("quantidade") - 1 set diminuir = conexao.execute("UPDATE estoque SET estoque='"&menos&"' WHERE idproduto='"&pedidos("idprod")&"'") est.close set est = nothing else 'set est = conexao.execute("SELECT * FROM produtos_especificacoes WHERE id_produto='"&pedidos("idprod")&"'") 'menos = 1 + est("estoque") - pedidos("quantidade") - 1 'set diminuir = conexao.execute("UPDATE produtos_especificacoes SET estoque='"&menos&"' WHERE id='"&pedidos("especificacoes")&"'") 'est.close 'set est = nothing end if pedidos.movenext wend pedidos.close set pedidos = nothing 'controle de estoque set compra = conexao.execute("SELECT * FROM compras WHERE idcompra='"&session("OrderID")&"'") if compra("cupom")<>"" then set cpc = conexao.execute("UPDATE cupom SET utilizado='s' WHERE codigo='"& hash(compra("cupom")) &"'") end if tfrete = hash(compra("tipofrete")) if tfrete = "encomenda" then tfrete = "Encomenda Normal" elseif tfrete = "sedex" then tfrete = "Sedex Convencional" elseif tfrete = "sedex_10" then tfrete = "Sedex 10" elseif tfrete = "sedex_cobrar" then tfrete ="Sedex à Cobrar" elseif tfrete = "carta_registrada" then tfrete = "Carta Registrada" elseif tfrete = "fretegratis" then tfrete = "Frete Grátis" end if valor_frete = hash(compra("frete")) valor_produtos = hash(compra("totalcompra")) tatlis = 1 + valor_frete + valor_produtos - 1 if compra("cupom") <> "" then sql = "SELECT * FROM cupom WHERE codigo='"& hash(compra("cupom")) &"'" set cpc = conexao.execute(sql) if cpc("tipo")= "porcentagem" then valor_total = tatlis - (tatlis * cpc("valor") / 100) elseif cpc("tipo") = "dinheiro" then valor_total = tatlis - cpc("valor") end if else valor_total = 1 + valor_frete + valor_produtos - 1 end if set cpc= nothing forma_entrega = hash(tipo_frete) valor_no_boleto = formatnumber(valor_total - (valor_total * boleto("desconto") / 100),2) valor_no_deposito = formatnumber(valor_total - (valor_total * deposito("desconto") / 100),2) set cliente = conexao.execute("SELECT * FROM clientes WHERE email='"& hash(session("usuario")) &"'") strEmail = session("usuario") strAssunto = "Nova compra efetuada na "&loja("nome_loja") 'função exclusiva de emails VIRTUAPLUS Set objFSO = CreateObject("Scripting.FileSystemObject") Set objHTML = objFSO.OpenTextFile( server.MapPath("emails") & "\compra_boleto.html", 1, True, 0) mensagem = objHTML.ReadAll Set objHTML = Nothing Set objFSO = Nothing response.clear mensagem = Replace(mensagem, "##nome_cliente##", hash(cliente("nome")) ) mensagem = Replace(mensagem, "##nome_loja##", loja("nome_loja")) mensagem = Replace(mensagem, "##slogan_loja##", loja("slogan_loja")) mensagem = Replace(mensagem, "##forma_entrega##", tfrete) mensagem = Replace(mensagem, "##email_loja##", loja("email")) mensagem = Replace(mensagem, "##endereco_loja##", loja("endereco")) mensagem = Replace(mensagem, "##cep_loja##", loja("cep")) mensagem = Replace(mensagem, "##bairro_loja##", loja("bairro")) mensagem = Replace(mensagem, "##cidade_loja##", loja("cidade")) mensagem = Replace(mensagem, "##estado_loja##", loja("estado")) mensagem = Replace(mensagem, "##url_loja##", "http://" & loja("url_loja")) mensagem = Replace(mensagem, "##compra_end##", hash(compra("endentrega")) ) mensagem = Replace(mensagem, "##compra_cep##", hash(compra("cepentrega")) ) mensagem = Replace(mensagem, "##compra_bairro##", hash(compra("bairroentrega")) ) mensagem = Replace(mensagem, "##compra_cidade##", hash(compra("cidadeentrega")) ) mensagem = Replace(mensagem, "##compra_estado##", hash(compra("estadoentrega")) ) mensagem = Replace(mensagem, "##compra_telefone##", hash(compra("telentrega")) ) 'faz a função dos produtos set pd = conexao.execute("SELECT * FROM pedidos WHERE idcompra='"&session("OrderId")&"'") while not pd.eof if pd("especificacoes") <> "0" then spl = Split(pd("especificacoes"), "#", -1, 1) for i = 0 to Ubound(spl) set esp = conexao.execute("SELECT * FROM p_esp_estoque INNER JOIN p_esp ON p_esp_estoque.id_esp=p_esp.id WHERE p_esp_estoque.id='"&spl(i)&"'") especifi = especifi &""&esp("titulo")&": "&esp("valor")&"
" 'da baixa na especificacao SQL = "UPDATE p_esp_estoque SET estoque = estoque - "&pd("quantidade")&" WHERE id='"&spl(i)&"'" conexao.execute(SQL) next end if set esp = nothing set pdto = conexao.execute("SELECT * FROM produtos WHERE idprod='"&pd("idprod")&"'") if pdto.eof or pdto.bof then response.write "nao achou" else 'Conecta ao estoque e dá baixa conexao.execute("UPDATE estoque SET estoque= estoque - "&pd("quantidade")&" WHERE idproduto='"&pd("idprod")&"'") 'Verifica se está negativo ou 0, se estiver coloca produto como estoque n set ve = conexao.execute("SELECT * from estoque where idproduto='"&pd("idprod")&"'") if not ve.eof then if ve("estoque")*1 <= 0 then conexao.execute("UPDATE produtos SET estoque='n' WHERE idprod='"&pd("idprod")&"'") end if end if ve.close set ve = nothing funcao_prod = funcao_prod & ""&pdto("nome")&" - R$ "&formatnumber(pdto("preco"),2)&"
"&especifi&"
" end if pdto.close set pdto = nothing pd.movenext wend pd.close set pd = nothing mensagem = Replace(mensagem, "##funcao_produtos##", funcao_prod) mensagem = Replace(mensagem, "##compra_totalprodutos##", formatnumber(valor_produtos,2)) mensagem = Replace(mensagem, "##compra_valorfrete##", formatnumber(valor_frete,2)) mensagem = Replace(mensagem, "##compra_total##", formatnumber(valor_total,2)) if 1 + boleto("desconto") - 1 <> 0 then mensagem = Replace(mensagem, "##desconto_boleto##", "Pagamento com direito à "&boleto("desconto")&"% de desconto.

Valor a ser pago: R$ "&valor_no_boleto&"") else mensagem = Replace(mensagem, "##desconto_boleto##", "") end if mensagem = Replace(mensagem, "##pedido##", session("orderid")) mensagem = Replace(mensagem, "##compra_total##", formatnumber(valor_total,2)) mensagem = Replace(mensagem, "##link_boleto##", "http://"&loja("url_loja")&"/boletos/preparaboleto.asp?compra="&session("orderid")&"") if compra("cupom") <>""then sql = "SELECT * FROM cupom WHERE codigo='"& hash(compra("cupom")) &"'" set cpc = conexao.execute(sql) if cpc("tipo")= "porcentagem" then valor_desconto_cupom = cpc("valor") &"% " elseif cpc("tipo") = "dinheiro" then valor_desconto_cupom = "R$ " & formatnumber(cpc("valor"),2) end if mensagem = Replace(mensagem, "##cupom_desconto##", "UTILIZANDO CUPOM DESCONTO. DESCONTO DE "&valor_desconto_cupom&" JÁ CALCULADO NO PREÇO ACIMA") else mensagem = Replace(mensagem, "##cupom_desconto##", "") end if enviar loja("email"), hash(cliente("email")) , loja("nome_loja") &" - Compra efetuada com sucesso!", mensagem enviar loja("email"), loja("email"), loja("nome_loja") &" - Compra efetuada com sucesso!", mensagem %> <%=loja("nome_loja") &" - "& loja("slogan_loja")%> " /> " />
<% session.abandon %>



Detalhes e informações sobre a sua compra já foram enviadas para o e-mail

<%=session("usuario")%>

O número do seu pedido é <%=compra("idcompra")%>, anote-o em um local seguro.

/boletos/preparaboleto.asp?compra=<%=session("OrderID")%>" target="_blank">

<%if 1 + boleto("desconto") - 1 <> 0 then%> <%end if%> <%if compra("cupom") <>""then %> <%end if%>
Comprovante de compra e descrição e pedidos
Compra de <%= hash(cliente("nome")) %>
Data: <%=compra("datacompra")%>
Dados pra entrega do pedido através de <%=tfrete%>
Endereço: <%= hash(compra("endentrega")) %> Cep:<%= hash(compra("cepentrega")) %>
Bairro:<%= hash(compra("bairroentrega")) %> Cidade:<%= hash(compra("cidadeentrega")) %>
Estado: <%= hash(compra("estadoentrega")) %> Telefone:<%= hash(compra("telentrega")) %>
 
Informações sobre sua compra:
Total da Compra: R$ <%=formatnumber(valor_produtos,2)%>
Frete: R$ <%=formatnumber(valor_frete,2)%>
Valor Total: R$ <%= FormatNumber((valor_total),2)%>
VALOR A SER PAGO: R$ <%= FormatNumber((valor_no_boleto),2)%> | Desconto de <%=boleto("desconto")%>% sobre o valor total.
UTILIZANDO CUPOM DESCONTO. DESCONTO DE <%=valor_desconto_cupom%> JÁ CALCULADO NO PREÇO ACIMA.
 
Informações sobre o pagamento:
Pagamento: Pagamento à vista por Boleto Bancário com direito à desconto.
Prazo para pagamento: Cinco dias úteis
Pagável: Em qualquer agência bancária até o vencimento.
Se o pagamento não for efetuado no prazo estipulado sua compra será cancelada, para que a unidade comprada por você volte aos estoques da loja.
 
<%if loja("ebit_utilizar")="s" then%>

<%end if%>

Agradecemos sua compra em nossa loja. Volte sempre!

Equipe <%=loja("nome_loja")%>



<%response.write google_analytics%> <%fecha_banco%>