<!--#include file="../funcoes.asp"-->
<%compra = request("compra")
nome_loja = loja("nome_loja")
cpf_cnpj = loja("cnpj")
cedente = loja("razao_social")

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

cotacao = 1
'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

'Procura a compra
set cp = conexao.execute("SELECT * FROM compras WHERE idcompra='"&compra&"'")
if cp.eof or cp.bof then
response.write " A compra "&compra&" não foi localizada!"
end if


set cl = conexao.execute("SELECT * FROM clientes WHERE email='"&cp("clienteid")&"'")
tatlis =  1 + hash(cp("frete")) + hash(cp("totalcompra")) - 1
if cp("cupom") <> "" then
sql = "SELECT * FROM cupom WHERE codigo='"& hash(cp("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 =  tatlis
end if
valor_total = formatnumber(valor_total - (valor_total * boleto("desconto") / 100),2)
set cpc= nothing
'Pega o último nosso número

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

nosso_numero = replace(cp("idcompra"),",","")
'nosso_numero = "2254655"
numero_documento = replace(cp("idcompra"),",","")
data_vencimento = data_venc
data_documento = date
data_processamento = cp("datacompra")


sacado = hash(cl("nome"))
sacado_cep =  hash(cl("cep"))
sacado_cidade = hash(cl("cidade"))
sacado_estado = hash(cl("estado"))

endereco1 = hash(cl("endereco"))&", "& hash(cl("complemento"))

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

 set ct = conexao.execute("select * from config_boleto")
obs1 = "Pagamento de Compra Nº "&cp("idcompra")&" 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
cp.close
set cp = nothing

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

SELECT CASE boleto_banco
CASE "bhsbc.asp"%>
<!--#include file="hsbc.asp"-->
<%CASE "bitau.asp"%>
<!--#include file="itau.asp"-->
<%CASE "bbb.asp"%>
<!--#include file="bb.asp"-->
<%CASE "bcaixa.asp"%>
<!--#include file="caixa.asp"-->
<%CASE "unibanco"%>
<!--#include file="unibanco.asp"-->
<%CASE "breal.asp"%>
<!--#include file="real.asp"-->
<%CASE "bbradesco.asp"%>
<!--#include file="bradesco.asp"-->
<%'CASE "bcaixa.asp"
'<!--#include file="caixa.asp"-->
%>


<%END SELECT%>