<!--#include file="../conf_funcoes.asp"-->
<%
compra = request("compra")/6550
nome_loja = dados("nome", "config_loja", "")
cpf_cnpj = dados("cnpj", "config_loja", "")
cedente = dados("razao_social", "config_loja", "")

boleto_desconto = dados("desconto", "config_boleto", "")
boleto_banco = dados("banco", "config_boleto", "")
boleto_taxa = dados("tarifa", "config_boleto", "")
boleto_prazo = dados("prazo", "config_boleto", "")
boleto_agencia = dados("agencia", "config_boleto", "")
boleto_ag_digito = dados("ag_digito", "config_boleto", "")
boleto_conta = dados("conta", "config_boleto", "")
boleto_ct_digito = dados("ct_digito", "config_boleto", "")
boleto_cod_cedente = dados("codigo_cedente", "config_boleto", "")
boleto_convenio = dados("convenio", "config_boleto", "")
boleto_carteira = dados("carteira", "config_boleto", "")

cotacao = dados("cotacao", "config_geral", "")
moeda = dados("moeda", "config_geral", "")

'CALCULA O VENCIMENTO DA COMPRA
adiciona = cdate(date) + boleto_prazo
if len(day(adiciona)) = 1 then
dia = "0"&day(adiciona)
else
dia = day(adiciona)
end if
if len(month(adiciona)) = 1 then
mes = "0"&month(adiciona)
else
mes = month(adiciona)
end if
vencimento = dia &"/"&mes&"/"&year(now)
data_venc = vencimento

Conectar
set rs = conexao.execute("SELECT * FROM compras INNER JOIN clientes ON compras.cliente=clientes.idcliente WHERE id='"&compra&"'")
if rs.eof then
response.write "A compra informada não foi encontrada!"
response.end
end if
cupom = rs("cupom")
if cupom <> "0" then
valor_produtos = formatnumber(rs("total_produtos") - (rs("total_produtos") * rs("desconto_cupom") / 100),2)
else
valor_produtos = rs("total_produtos")
end if
'verifica se há desconto pela forma de pagamento
desconto_pagto = rs("desconto_pagto")
if desconto_pagto <>"0" then
'calcula o valor dos produtos com o desconto para pagamento
produto2 = valor_produtos - (valor_produtos * desconto_pagto / 100)
else
produto2 = valor_produtos
end if

'calcula o valor final da compra
valor_total = formatnumber(1 + produto2 + rs("total_frete") + boleto_taxa -1,2)
valor_cobrado = replace(formatnumber(valor_total,2), ".","")
valor_boleto = valor_cobrado

nosso_numero = rs("nossonumero")
'nosso_numero = "2254655"
numero_documento = compra
data_vencimento = data_venc
data_documento = date
data_processamento = rs("data_compra")


sacado = rs("nome_razao")
sacado_cep =  hash(rs("cep"))
sacado_cidade = hash(rs("cidade"))
sacado_estado = hash(rs("estado"))

endereco1 = hash(rs("endereco")) &", " & hash(rs("numero")) &" " & hash(rs("complemento"))

endereco2 =hash(rs("cidade")) &" - "& hash(rs("estado")) &" - CEP:"&  hash(rs("cep"))

 set ct = conexao.execute("select * from config_boleto")
obs1 = "Pagamento de Compra Nº "&compra&" na Loja " &nome_loja
obs2 = ct("obs_linha1")
obs3 = ct("obs_linha2")
obs4 = ct("obs_linha3")
obs5 = ct("obs_linha4")
		   
ins1 = ct("instr_linha1")
ins2 = ct("instr_linha2")
ins3 = ct("instr_linha3")
ins4 = ct("instr_linha4")

ct.close
set ct = nothing

quantidade = ""
valor_unitario = ""
aceite = ""
so_banco = ""
especie = "R$"
especie_doc = ""

SELECT CASE boleto_banco
CASE "hsbc"%>
<!--#include file="hsbc.asp"-->
<%CASE "itau"%>
<!--#include file="itau.asp"-->
<%CASE "bb"%>
<!--#include file="bb.asp"-->
<%CASE "unibanco"%>
<!--#include file="unibanco.asp"-->
<%CASE "bradesco"%>
<!--#include file="bradesco.asp"-->

<%END SELECT%>