Boleto Banco Do Brasil

Olá arley...

um exemplo de um boleto do banco do brasil...

apenas modifique o codigo para suas necessidades...

em breve a VirtuaStore 1.2 terá este codigo comentado passo a passo.

[code=auto:0]
<%@ Language=VBScript %>
<%response.buffer = true
session.lcid = 1046
on error resume next%>





<HTML>
<HEAD>
<TITLE>a CLT - Consultoria em Desenvolvimento Empresarial Ltda.</TITLE>
<meta NAME="title" CONTENT="a CLT CONSULTORIA EM TERCEIRIZAÇÃO">
<meta name="keywords"
content="Consultoria,Terceirização,Quarteirização,Contratos,Jurisprudência,Direito Civil,Direito Trabalho,Auditoria de Contratos,Redação de Contratos,Gestão de Contratos,Pareceres,Treinamento,Cursos,Saneamento de Conflito Trabalhista,Prevenção em Direito Trabalho,Avaliação de Contratos,Noções de Direito para Administradores,Direito Administrativo,Compras pela Administração Pública,Empresa Privada,Empresa Pública,Leiria,Direito Empresarial,Consultas">
<meta name="description"
content="Consultoria em defesa da terceirização, gestão, redação e auditoria de contratos, para administração pública e privada. Administrado por Jerônimo Leiria pioneiro da técnica no Brasil.">
<meta name="distribution" content="Global">
<meta name="rating" content="General">
<meta name="resource-type" content="document">
<meta name="revisit-after" content="7 days">
<meta name="robots" content="All">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<STYLE TYPE="TEXT/CSS">

</STYLE>
<script>window.status="CLT - CONSULTORIA EM DESENVOLVIMENTO EMPRESARIAL - Terceirização , Quarteirização, Treinamento, Redação de contratos, gestão de contratos, contratos, consultoria jurídica, Consultoria e treinamento em Terceirização, gestão, auditoria, redação de contratos, além da defesa judicial da tese. RT: Jerônimo Leiria, advogado pioneiro na defesa da prática no país."
</script>
<script language="JavaScript">

</script>
</HEAD>
<BODY BGCOLOR="#ffffff">




<%
curso1 = request.querystring("curso1")
curso2 = request.querystring("curso2")
curso3 = request.querystring("curso3")
curso4 = request.querystring("curso4")
local = request.querystring("local")

nome = request.querystring("nome")
socio = request.querystring("socio")
certificado = request.querystring("certificado")
cic_cnpj = request.querystring("cic_cnpj")
fone = request.querystring("fone")
fax = request.querystring("fax")
mail = request.querystring("mail")
procedencia = request.querystring("procedencia")
empresa = request.querystring("empresa")
area_treinamento = request.querystring("area_treinamento")
encarregado = request.querystring("encarregado")
mail_encarregado = request.querystring("mail_encarregado")

nome_nota = request.querystring("nome_nota")
endereco_nota = request.querystring("endereco_nota")
estado_nota = request.querystring("estado_nota")
cidade_nota = request.querystring("cidade_nota")
estado_nota = request.querystring("estado_nota")
cep_nota = request.querystring("cep_nota")
empresa_nota = request.querystring("empresa_nota")
cnpj_nota = request.querystring("cnpj_nota")
ie_nota = request.querystring("ie_nota")
cidade_nota = request.querystring("cidade_nota")

como = request.querystring("como")
indicaria = request.querystring("indicaria")
indicaria_quem = request.querystring("indicaria_quem")
sugestao = request.querystring("sugestao")
outros_treinamentos = request.querystring("outros_treinamentos")
quais_treinamentos = request.querystring("quais_treinamentos")
informacoes1 = request.querystring("informacoes1")
informacoes2 = request.querystring("informacoes2")
informacoes3 = request.querystring("informacoes3")
informacoes4 = request.querystring("informacoes4")
numerodoc = request.querystring("boleto")
%>


<%

if curso1<>"" then
valorcurso1="750"&" "
else
valorcurso1="0"
end if

if curso2<>"" then
valorcurso2="750"&" "
else
valorcurso2="0"
end if

if curso3<>"" then
valorcurso3="750"&" "
else
valorcurso3="0"
end if

if curso4<>"" then
valorcurso4="750"&" "
else
valorcurso4="0"
end if

valorcursototal = valorcurso1 - 1 + valorcurso2 + valorcurso3 + valorcurso4 + 1

valorcursototal = replace (valorcursototal,".","")

select case valorcursototal
case "750"
valor = "750.00"&" "
case "1500"
valor = "1350.00"&" "
case "2250"
valor = "2025.00"&" "
case "3000"
valor = "2700.00"&" "
end select

descontoir = valor*1.50
descontoir = descontoir / 100
descontoir = formatnumber(descontoir,2)

valorfinal = valor - descontoir
valorcobrado= valorfinal
valorfinal = formatnumber(valorfinal,2)
valorcobrado = formatnumber(valorcobrado,2)

fonte = "tahoma,arial,helvetica"

'##############################################
'Linha Digitavel
'BBBMX.XXXXX/DVC1/ XXXXX.XXXXX/DVC2/ XXXXX.XXXXX/DVC3/ /DV/ FFFF0000009998
'ULTIMO CAMPO TEM 14 NUMEROS SEMPRE
'##############################################

'##############################################
'Boleto Jeronimo
'##############################################
cedente = "CLT Consultoria em Desenvolvimento Empresarial Ltda."
carteira = "18"
variacao = "019"
nossonumero = "202782"
agencia = "2822"
codced = "7892"&" "

'##############################################
'Dados variaveis
'##############################################

especie = "DM"
valoraceite = "N"
if local="Curitiba" then
vencimento="14/06/02"
end if
if local="Brasilia" then
vencimento="10/06/02"
end if
if local="BeloHorizonte" then
vencimento="29/06/02"
end if
if local="RiodeJaneiro" then
vencimento="24/06/02"
end if
if local="Salvador" then
vencimento="24/06/02"
end if

valor1 = "R$ "&valor&""
ndoc = numerodoc
data = date
prefixo = "001"
moeda = "9"
database = "07/10/1997"
intprefixo = prefixo
intmoeda = moeda
intnnum = nossonumero
intag = agencia

'##############################################
'Calculo do Codigo Cedente
'##############################################
intced = codced
cedentecx = codced
varxs = instr(1,cedentecx," ") - 1

if varxs = "3" then
numeroz = InStr(1, cedentecx, " ") - 1
cedentec = "00000" & Left(cedentecx, numeroz)
end if

if varxs = "4" then
numeroz = InStr(1, cedentecx, " ") - 1
cedentec = "0000" & Left(cedentecx, numeroz)
end if

if varxs = "5" then
numeroz = InStr(1, cedentecx, " ") - 1
cedentec = "000" & Left(cedentecx, numeroz)
end if

if varxs = "6" then
numeroz = InStr(1, cedentecx, " ") - 1
cedentec = "00" & Left(cedentecx, numeroz)
end if

if varxs = "7" then
numeroz = InStr(1, cedentecx, " ") - 1
cedentec = "0" & Left(cedentecx, numeroz)
end if

if varxs = "8" then
numeroz = InStr(1, cedentecx, " ") - 1
cedentec = "" & Left(cedentecx, numeroz)
end if

'##############################################
'Calculo Fator Vencimento
'##############################################

fatorvencimento = cdate(vencimento) - cdate(database)
fatorvencimento = replace (fatorvencimento,".","")

fatorw = fatorvencimento&" "
varf = instr(1,fatorw," ") -1

valor1v = "000000000"
valor2v = "00000000"
valor3v = "0000000"
valor4v = "000000"
valor5v = "00000"
valor6v = "0000"
valor7v = "000"
valor8v = "00"
valor9v = "0"
valor10v = ""

'##############################################
'Calculo numero do boleto
'##############################################

numdoc = request.querystring("boleto")&" "
numdoc = replace(numdoc,",","")
numxz = instr(1,numdoc," ") - 1
numxz = replace(numxz,",","")

if numxz = "1" then
numeroz = InStr(1, numdoc, " ") - 1
valornumerodoc = "0000" & Left(numdoc, numeroz)
end if

if numxz = "2" then
numeroz = InStr(1, numdoc, " ") - 1
valornumerodoc = "000" & Left(numdoc, numeroz)
end if

if numxz = "3" then
numeroz = InStr(1, numdoc, " ") - 1
valornumerodoc = "000" & Left(numdoc, numeroz)
end if

if numxz = "4" then
numeroz = InStr(1, numdoc, " ") - 1
valornumerodoc = "0" & Left(numdoc, numeroz)
end if

if numxz = "5" then
numeroz = InStr(1, numdoc, " ") - 1
valornumerodoc = Left(numdoc, numeroz)
end if

'##############################################
'Definicao do Campo livre
'##############################################

intcart = carteira

intnnn = valornumerodoc

intcampolivre = intnnum&intnnn&intag&cedentec&intcart
intcampolivre = replace(intcampolivre,".","")

'1 - 5
digitosdvc1 = mid(intcampolivre,1,5)
'6 - 15
digitosdvc2 = mid(intcampolivre,6,10)
'16 - 25
digitosdvc3 = mid(intcampolivre,16,10)

'##############################################
'Calculo do 1 campo
'##############################################

intcampo1 = intprefixo&intmoeda&digitosdvc1

n9 = mid(intcampo1,9,1) * 2
n9 = replace(n9,".","")
if n9 > 9 then
n9 = 1 + left(n9,1) + right(n9,1) - 1
n9 = replace(n9,".","")
end if
n8 = mid(intcampo1,8,1) * 1
n8 = replace(n8,".","")
if n8 > 9 then
n8 = 1 + left(n8,1) + right(n8,1) - 1
n8 = replace(n8,".","")
end if
n7 = mid(intcampo1,7,1) * 2
n7 = replace(n7,".","")
if n7 > 9 then
n7 = 1 + left(n7,1) + right(n7,1) - 1
n7 = replace(n7,".","")
end if
n6 = mid(intcampo1,6,1) * 1
n6 = replace(n6,".","")
if n6 > 9 then
n6 = 1 + left(n6,1) + right(n6,1) - 1
n6 = replace(n6,".","")
end if
n5 = mid(intcampo1,5,1) * 2
n5 = replace(n5,".","")
if n5 > 9 then
n5 = 1 + left(n5,1) + right(n5,1) - 1
n5 = replace(n5,".","")
end if
n4 = mid(intcampo1,4,1) * 1
n4 = replace(n4,".","")
if n4 > 9 then
n4 = 1 + left(n4,1) + right(n4,1) - 1
n4 = replace(n4,".","")
end if
n3 = mid(intcampo1,3,1) * 2
n3 = replace(n3,".","")
if n3 > 9 then
n3 = 1 + left(n3,1) + right(n3,1) - 1
n3 = replace(n3,".","")
end if
n2 = mid(intcampo1,2,1) * 1
n2 = replace(n2,".","")
if n2 > 9 then
n2 = 1 + left(n2,1) + right(n2,1) - 1
n2 = replace(n2,".","")
end if
n1 = mid(intcampo1,1,1) * 2
n1 = replace(n1,".","")
if n1 > 9 then
n1 = 1 + left(n1,1) + right(n1,1) - 1
n1 = replace(n1,".","")
end if

somadigitos = 1 + n1 + n2 + n3 + n4 + n5 + n6 + n7 + n8 + n9 - 1
somadigitos = replace(somadigitos,".","")
somadigitos = right(CStr(somadigitos),1)
somadigitos = replace(somadigitos,".","")

select case somadigitos
case 0
intdvc1 = 0
case 1
intdvc1 = 9
case 2
intdvc1 = 8
case 3
intdvc1 = 7
case 4
intdvc1 = 6
case 5
intdvc1 = 5
case 6
intdvc1 = 4
case 7
intdvc1 = 3
case 8
intdvc1 = 2
case 9
intdvc1 = 1
end select

intcampodvc1 = intcampo1&intdvc1
intcampodvc11 = left(intcampodvc1,5)&"."&right(intcampodvc1,5)
intcampodvc11 = replace(intcampodvc11,".","")
intcampodvc1 = intcampodvc11

'##############################################
'Calculo do 2 campo
'##############################################

intcampo2 = digitosdvc2
intcampo2 = replace(intcampo2,".","")

n10 = mid(intcampo2,10,1) * 2
n10 = replace(n10,".","")
if n10 > 9 then
n10 = 1 + left(n10,1) + right(n10,1) - 1
n10 = replace(n10,".","")
end if
n9 = mid(intcampo2,9,1) * 1
n9 = replace(n9,".","")
if n9 > 9 then
n9 = 1 + left(n9,1) + right(n9,1) - 1
n9 = replace(n9,".","")
end if
n8 = mid(intcampo2,8,1) * 2
n8 = replace(n8,".","")
if n8 > 9 then
n8 = 1 + left(n8,1) + right(n8,1) - 1
n8 = replace(n8,".","")
end if
n7 = mid(intcampo2,7,1) * 1
n7 = replace(n7,".","")
if n7 > 9 then
n7 = 1 + left(n7,1) + right(n7,1) - 1
n7 = replace(n7,".","")
end if
n6 = mid(intcampo2,6,1) * 2
n6 = replace(n6,".","")
if n6 > 9 then
n6 = 1 + left(n6,1) + right(n6,1) - 1
n6 = replace(n6,".","")
end if
n5 = mid(intcampo2,5,1) * 1
n5 = replace(n5,".","")
if n5 > 9 then
n5 = 1 + left(n5,1) + right(n5,1) - 1
n5 = replace(n5,".","")
end if
n4 = mid(intcampo2,4,1) * 2
n4 = replace(n4,".","")
if n4 > 9 then
n4 = 1 + left(n4,1) + right(n4,1) - 1
n4 = replace(n4,".","")
end if
n3 = mid(intcampo2,3,1) * 1
n3 = replace(n3,".","")
if n3 > 9 then
n3 = 1 + 1 + left(n3,1) - 1 + right(n3,1)
n3 = replace(n3,".","")
end if
n2 = mid(intcampo2,2,1) * 2
n2 = replace(n2,".","")
if n2 > 9 then
n2 = 1 + left(n2,1) + right(n2,1) - 1
n2 = replace(n2,".","")
end if
n1 = mid(intcampo2,1,1) * 1
n1 = replace(n1,".","")
if n1 > 9 then
n1 = 1 + left(n1,1) + right(n1,1) - 1
n1 = replace(n1,".","")
end if

somadigitos2 = 1 + n1 + n2 + n3 + n4 + n5 + n6 + n7 + n8 + n9 + n10 - 1
somadigitos2 = replace(somadigitos2,".","")
somadigitos2 = right(CStr(somadigitos2),1)
somadigitos2 = replace(somadigitos2,".","")

select case somadigitos2
case 0
intdvc2 = 0
case 1
intdvc2 = 9
case 2
intdvc2 = 8
case 3
intdvc2 = 7
case 4
intdvc2 = 6
case 5
intdvc2 = 5
case 6
intdvc2 = 4
case 7
intdvc2 = 3
case 8
intdvc2 = 2
case 9
intdvc2 = 1
end select

intcampodvc2 = intcampo2&intdvc2
intcampodvc22 = left(intcampodvc2,5)&"."&right(intcampodvc2,6)
intcampodvc22 = replace(intcampodvc22,".","")
intcampodvc2 = intcampodvc22

'##############################################
'Calculo do 3 campo
'##############################################

intcampo3 = digitosdvc3

n10 = mid(intcampo3,10,1) * 2
n10 = replace(n10,".","")
if n10 > 9 then
n10 = 1 + left(n10,1) + right(n10,1) - 1
n10 = replace(n10,".","")
end if
n9 = mid(intcampo3,9,1) * 1
n9 = replace(n9,".","")
if n9 > 9 then
n9 = 1 + left(n9,1) + right(n9,1) - 1
n9 = replace(n9,".","")
end if
n8 = mid(intcampo3,8,1) * 2
n8 = replace(n8,".","")
if n8 > 9 then
n8 = 1 + left(n8,1) + right(n8,1) - 1
n8 = replace(n8,".","")
end if
n7 = mid(intcampo3,7,1) * 1
n7 = replace(n7,".","")
if n7 > 9 then
n7 = 1 + left(n7,1) + right(n7,1) - 1
n7 = replace(n7,".","")
end if
n6 = mid(intcampo3,6,1) * 2
n6 = replace(n6,".","")
if n6 > 9 then
n6 = 1 + left(n6,1) + right(n6,1) - 1
n6 = replace(n6,".","")
end if
n5 = mid(intcampo3,5,1) * 1
n5 = replace(n5,".","")
if n5 > 9 then
n5 = 1 + left(n5,1) + right(n5,1) - 1
n5 = replace(n5,".","")
end if
n4 = mid(intcampo3,4,1) * 2
n4 = replace(n4,".","")
if n4 > 9 then
n4 = 1 + left(n4,1) + right(n4,1) - 1
n4 = replace(n4,".","")
end if
n3 = mid(intcampo3,3,1) * 1
n3 = replace(n3,".","")
if n3 > 9 then
n3 = 1 + 1 + left(n3,1) - 1 + right(n3,1)
n3 = replace(n3,".","")
end if
n2 = mid(intcampo3,2,1) * 2
n2 = replace(n2,".","")
if n2 > 9 then
n2 = 1 + left(n2,1) + right(n2,1) - 1
n2 = replace(n2,".","")
end if
n1 = mid(intcampo3,1,1) * 1
n1 = replace(n1,".","")
if n1 > 9 then
n1 = 1 + left(n1,1) + right(n1,1) - 1
n1 = replace(n1,".","")
end if

somadigitos3 = 1 + n1 + n2 + n3 + n4 + n5 + n6 + n7 + n8 + n9 + n10 - 1
somadigitos3 = replace(somadigitos3,".","")
somadigitos3 = right(CStr(somadigitos3),1)
somadigitos3 = replace(somadigitos3,".","")

select case somadigitos3
case 0
intdvc3 = 0
case 1
intdvc3 = 9
case 2
intdvc3 = 8
case 3
intdvc3 = 7
case 4
intdvc3 = 6
case 5
intdvc3 = 5
case 6
intdvc3 = 4
case 7
intdvc3 = 3
case 8
intdvc3 = 2
case 9
intdvc3 = 1
end select

intcampodvc3 = intcampo3&intdvc3
intcampodvc33 = left(intcampodvc3,5)&"."&right(intcampodvc3,6)
intcampodvc33 = replace(intcampodvc33,".","")
intcampodvc3 = intcampodvc33

'##############################################
'Calculo Valor - 10 Digitos
'##############################################

valorfinal = replace(valorfinal,",","")
valorfinal = replace(valorfinal,".","")

valorcx = valorfinal&" "
varxsz = inStr(1,valorcx, " ") -1

if varxsz = "1" then
numeroz = InStr(1, valorcx, " ") - 1
valorc = valor1v & Left(valorcx, numeroz)
end if

if varxsz = "2" then
numeroz = InStr(1, valorcx, " ") - 1
valorc = valor2v & Left(valorcx, numeroz)
end if

if varxsz = "3" then
numeroz = InStr(1, valorcx, " ") - 1
valorc = valor3v & Left(valorcx, numeroz)
end if

if varxsz = "4" then
numeroz = InStr(1, valorcx, " ") - 1
valorc = valor4v & Left(valorcx, numeroz)
end if

if varxsz = "5" then
numeroz = InStr(1, valorcx, " ") - 1
valorc = valor5v & Left(valorcx, numeroz)
end if

if varxsz = "6" then
numeroz = InStr(1, valorcx, " ") - 1
valorc = valor6v & Left(valorcx, numeroz)
end if

if varxsz = "7" then
numeroz = InStr(1, valorcx, " ") - 1
valorc = valor7v & Left(valorcx, numeroz)
end if

if varxsz = "8" then
numeroz = InStr(1, valorcx, " ") - 1
valorc = valor8v & Left(valorcx, numeroz)
end if

if varxsz = "9" then
numeroz = InStr(1, valorcx, " ") - 1
valorc = valor9v & Left(valorcx, numeroz)
end if

if varxsz = "10" then
numeroz = InStr(1, valorcx, " ") - 1
valorc = valor10v & Left(valorcx, numeroz)
end if

intcampodvc5 = fatorvencimento&valorc

'##############################################
'Dígito Verificador Geral do Codigo de Barras
'##############################################

codbarra = intprefixo&intmoeda&fatorvencimento&valorc&intcampolivre
codbarra = replace(codbarra,".","")

n43 = mid(codbarra,43,1) * 2
n42 = mid(codbarra,42,1) * 3
n41 = mid(codbarra,41,1) * 4
n40 = mid(codbarra,40,1) * 5
n39 = mid(codbarra,39,1) * 6
n38 = mid(codbarra,38,1) * 7
n37 = mid(codbarra,37,1) * 8
n36 = mid(codbarra,36,1) * 9
n35 = mid(codbarra,35,1) * 2
n34 = mid(codbarra,34,1) * 3
n33 = mid(codbarra,33,1) * 4
n32 = mid(codbarra,32,1) * 5
n31 = mid(codbarra,31,1) * 6
n30 = mid(codbarra,30,1) * 7
n29 = mid(codbarra,29,1) * 8
n28 = mid(codbarra,28,1) * 9
n27 = mid(codbarra,27,1) * 2
n26 = mid(codbarra,26,1) * 3
n25 = mid(codbarra,25,1) * 4
n24 = mid(codbarra,24,1) * 5
n23 = mid(codbarra,23,1) * 6
n22 = mid(codbarra,22,1) * 7
n21 = mid(codbarra,21,1) * 8
n20 = mid(codbarra,20,1) * 9
n19 = mid(codbarra,19,1) * 2
n18 = mid(codbarra,18,1) * 3
n17 = mid(codbarra,17,1) * 4
n16 = mid(codbarra,16,1) * 5
n15 = mid(codbarra,15,1) * 6
n14 = mid(codbarra,14,1) * 7
n13 = mid(codbarra,13,1) * 8
n12 = mid(codbarra,12,1) * 9
n11 = mid(codbarra,11,1) * 2
n10 = mid(codbarra,10,1) * 3
n9 = mid(codbarra,9,1) * 4
n8 = mid(codbarra,8,1) * 5
n7 = mid(codbarra,7,1) * 6
n6 = mid(codbarra,6,1) * 7
n5 = mid(codbarra,5,1) * 8
n4 = mid(codbarra,4,1) * 9
n3 = mid(codbarra,3,1) * 2
n2 = mid(codbarra,2,1) * 3
n1 = mid(codbarra,1,1) * 4

somacod = n1 + n2 + n3 + n4 + n5 + n6 + n7 + n8 + n9 + n10 + n11 + n12 + n13 + n14 + n15 + n16 + n17 + n18 + n19 + n20 + n21 + n22 + n23 + n24 + n25 + n26 + n27 + n28 + n29 + n30 + n31 + n32 + n33 + n34 + n35 + n36 + n37 + n38 + n39 + n40 + n41 + n42 + n43
somacod = replace(somacod,".","")

dvg = somacod Mod 11

dvg = 11 - dvg

if dvg=10 then
dvg=1
end if
if dvg=11 then
dvg=1
end if

'##############################################
'Definição do Número do Código de Barras
'##############################################

codigodebarras = left(codbarra,4)&dvg&mid(codbarra,5,39)

'##############################################
'Calculo Valor - Linha Digitavel
'##############################################

linhadigitavel = intcampodvc1&" "&intcampodvc2&" "&intcampodvc3&" "&dvg&" "&intcampodvc5

'##############################################
'Codigo de Barras
'##############################################

Sub codigo( Valor )
Dim f, f1, f2, i
Dim texto
Const fino = 1
Const largo = 3
Const altura = 50
Dim BarCodes(99)

if isempty(BarCodes(0)) then
BarCodes(0) = "00110"
BarCodes(1) = "10001"
BarCodes(2) = "01001"
BarCodes(3) = "11000"
BarCodes(4) = "00101"
BarCodes(5) = "10100"
BarCodes(6) = "01100"
BarCodes(7) = "00011"
BarCodes(8) = "10010"
BarCodes(9) = "01010"
for f1 = 9 to 0 step -1
for f2 = 9 to 0 Step -1
f = f1 * 10 + f2
texto = ""
for i = 1 To 5
texto = texto & mid(BarCodes(f1), i, 1) + mid(BarCodes(f2), i, 1)
next
BarCodes(f) = texto
next
next
end if

'Desenho da barra

' Guarda inicial
%>
<img src=p.gif width=<%=fino%> height=<%=altura%> border=0><img
src=b.gif width=<%=fino%> height=<%=altura%> border=0><img
src=p.gif width=<%=fino%> height=<%=altura%> border=0><img
src=b.gif width=<%=fino%> height=<%=altura%> border=0><img

<%
texto = valor
if len( texto ) mod 2 <> 0 then
texto = "0" & texto
end if

' Draw dos dados
do while len(texto) > 0
i = cint( left( texto, 2) )
texto = right( texto, len( texto ) - 2)
f = BarCodes(i)
for i = 1 to 10 step 2
if mid(f, i, 1) = "0" then
f1 = fino
else
f1 = largo
end if
%>
src=p.gif width=<%=f1%> height=<%=altura%> border=0><img
<%
if mid(f, i + 1, 1) = "0" Then
f2 = fino
else
f2 = largo
end if
%>
src=b.gif width=<%=f2%> height=<%=altura%> border=0><img
<%
next
loop

' Draw guarda final
%>
src=p.gif width=<%=largo%> height=<%=altura%> border=0><img
src=b.gif width=<%=fino%> height=<%=altura%> border=0><img
src=p.gif width=<%=1%> height=<%=altura%> border=0>

<%
end sub

'##############################################
'Calculo dv do nosso numero
'##############################################

valornossonumero = nossonumero&valornumerodoc

n11 = mid(valornossonumero,11,1) * 9
n10 = mid(valornossonumero,10,1) * 8
n9 = mid(valornossonumero,9,1) * 7
n8 = mid(valornossonumero,8,1) * 6
n7 = mid(valornossonumero,7,1) * 5
n6 = mid(valornossonumero,6,1) * 4
n5 = mid(valornossonumero,5,1) * 3
n4 = mid(valornossonumero,4,1) * 2
n3 = mid(valornossonumero,3,1) * 9
n2 = mid(valornossonumero,2,1) * 8
n1 = mid(valornossonumero,1,1) * 7

intsomans = n1 + n2 + n3 + n4 + n5 + n6 + n7 + n8 + n9 + n10 + n11
divns = intsomans mod 11

if divns = "10" then
divns = "X"
end if
if divns = "0" then
divns = "0"
end if

nossonumerofinal = valornossonumero&"-"&divns
nossonumerofinal = left(nossonumerofinal,2)&"."&mid(nossonumerofinal,3,3)&"."&mid(nossonumerofinal,6,3)&"."&mid(nossonumerofinal,9,3)&right(nossonumerofinal,2)

'##############################################
'Dados para formatação do boleto
'##############################################

valordatavencimento=vencimento
valoragencia= agencia&"-3 "
valorcedente1=" "& codced&"-1"
valorcedente=valoragencia&valorcedente1
valorced=""&cedente&""
valornossonumero= nossonumerofinal
valorvencimento=vencimento
valornumerodoc= intnnn
valorcarteira= carteira&"-"&variacao
valorespecie="R$"
valorcpfcnpj= ""
banco = "Banco do Brasil"
prefixo = "001-9"

valorsacado=request.querystring("nome_nota")
valorempsacado = request.querystring("empresa_nota")
valorendereco=request.querystring("endereco_nota")
valorbairro=request.querystring("bairro_nota")
valorcidade=request.querystring("cidade_nota")
valorestado=request.querystring("estado_nota")
valorcep=request.querystring("cep_nota")
valorcep=replace(valorcep,"-","")
%>



<DIV ID="inscricoes" STYLE="position:absolute; width:387px; height:335px; z-index:1; left: 15px; top: 15px">

<TABLE WIDTH="640" CELLSPACING="0" CELLPADDING="0" BORDER="0">
<TR><TD>

INSCRIÇÃO FINALIZADA - BOLETO BANCÁRIO 
</TD></TR>

<TABLE WIDTH="640" CELLSPACING="0" CELLPADDING="0" BORDER="0">
<TR>
<TD width="185" valign="bottom" align=center>" style=font-size:15px><%=banco%></TD>
<TD width="60" align="left" valign="bottom" style="border-left: 3 solid #000000;border-right: 3 solid #000000;">" style=font-size:17px> 001-9</TD>
<TD ALIGN="right" valign="bottom" width="392">" style=font-size:13px>RECIBO DO SACADO</TD>
</TR></TABLE><TABLE WIDTH="640" CELLSPACING="0" CELLPADDING="2" style="border: 1 solid #000000">
<TR><TD COLSPAN="6" valign="top" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;">" style=font-size:10px>Local de Pagamento: " style=font-size:10px> PAGÁVEL EM QUALQUER BANCO ATÉ O VENCIMENTO </TD>
<TD width=150 valign="top" style="border-bottom: 1 solid #000000;">
" style=font-size:10px>Vencimento 
<center>" style=font-size:13px><%=vencimento%></center>
</TD></TR><TR><TD COLSPAN="6" width="490" valign="top" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;">
<table width="100%" border="0" cellpadding="0" cellspacing="0" valign="top">
<tr valign="top">
<td valign="top">" style=font-size:10px>Cedente:   <%=valorced%> </div>
</td><td valign="top">" style=font-size:10px>CNPJ:   <%=valorcpfcnpj%> </div>
</td></tr></table></td><TD width="150" style="border-bottom: 1 solid #000000;">
" style=font-size:10px>Agência/Código Cedente 
<center>" style=font-size:13px><%=valoragencia%>/<%=valorcedente1%></center>
</TD></TR><TR><TD WIDTH="105" valign="top" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;">
" style=font-size:10px>Data do documento: 
<center>" style=font-size:13px><%=day(now)&"/"&month(now)&"/"&year(now)%></center>
</TD><TD colspan="2" valign="top" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;">
" style=font-size:10px>No. do documento 
<center>" style=font-size:13px><%=replace(valornumerodoc,".","")%> </center>
</TD><TD WIDTH="70" valign="top" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;">" style=font-size:10px>Espécie doc. 
<center>" style=font-size:13px><%=especie%></center>
</TD><TD WIDTH="40" valign="top" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;">" style=font-size:10px>Aceite 
<center>" style=font-size:13px><%=valoraceite%></center>
</TD><TD WIDTH="100" valign="top" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;">
" style=font-size:10px>Data Processamento 
<center>" style=font-size:13px><%=day(now)&"/"&month(now)&"/"&year(now)%></center>
</TD><TD WIDTH="150" valign="top" style="border-bottom: 1 solid #000000;">" style=font-size:10px>Nosso Número 
<center>" style=font-size:13px><%=valornossonumero%></center>
</TD></TR><TR><TD WIDTH="105" valign="top" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;"> " style=font-size:10px>Uso do Banco 
<center>" style=font-size:13px><%=valoragenciaced%></center>
</TD><TD width="110" valign="top" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;">
" style=font-size:10px>Carteira 
<center>" style=font-size:13px><%=valorcarteira%></center>
</TD><TD WIDTH="50" valign="top" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;">" style=font-size:10px>Espécie 
<center>" style=font-size:13px> <%=valorespecie%> </center></TD>
<TD colspan="2" width="110" valign="top" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;">" style=font-size:10px>Quantidade 
<center>" style=font-size:13px><%=quantidade%></center>
</TD><TD WIDTH="105" valign="top" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;">
" style=font-size:10px>Valor 
<center>" style=font-size:13px><%=valorboleto%></center>
</TD><TD WIDTH="150" valign="top" style="border-bottom: 1 solid #000000;">" style=font-size:10px>(=) Valor do Documento 
<center>" style=font-size:15px><%=replace(valor1,".",",")%></center>
</TD></TR><TR><TD COLSPAN="6" ROWSPAN="6" VALIGN="TOP" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%" WIDTH="100%">
<TR VALIGN="TOP"><TD>" style=font-size:10px>Instruções (Texto de responsabilidade do cedente). </TD>
</TR><TR VALIGN="TOP"><TD>" style=font-size:10px>SR. CAIXA, NÃO RECEBER APÓS O VENCIMENTO Desconto de 1,5% sobre o valor do documento </TD>
</TR></TABLE></TD></TR><TR><TD height=30 valign=top>
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR><TD>" style=font-size:10px>(-) Descontos/Abatimento 
<center>" style=font-size:13px><%="R$ "&replace(descontoir,".",",")%></center></TD></TR></TABLE>
</TD></TR><TR><TD style="border-top: 1 solid #000000;" height=30 valign=top><TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR><TD>" style=font-size:10px>(-) Outras deduções</TD></TR></TABLE>
</TD></TR><TR><TD style="border-top: 1 solid #000000;" height=30 valign=top><TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR><TD>" style=font-size:10px>(+) Mora/Multa</TD></TR></TABLE>
</TD></TR><TR><TD style="border-top: 1 solid #000000;" height=30 valign=top><TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR><TD>" style=font-size:10px>(+) Outros Acréscimos</TD></TR></TABLE></TD></TR>
<TR><TD style="border-top: 1 solid #000000;border-bottom: 1 solid #000000;" height=30 valign=top>
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0"><TR><TD>" style=font-size:10px>(=) Valor Cobrado 
<center>" style=font-size:13px><%="R$ "&replace(valorcobrado,".",",")%></center></TD></TR>
</TABLE></TD></TR><TR><TD COLSPAN="7"><TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR><tr><td valign="top" width="100">" style=font-size:10px>Sacado:     </td>
<td WIDTH="100%" valign="top">" style=font-size:10px><%=valorsacado%> 
<%=valorendereco%> 
CEP:<%=valorcep%> 
</td></tr><TD valign="top">" style=font-size:10px></td>
</TR></TABLE></td></TR></TABLE><TABLE WIDTH="640" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR><TD width="100%" align="right" valign="top">" style=font-size:10px>Autenticação mecânica</TD>
</TR><TR><TD width="100%" align="center"> </td></TR></TABLE><TABLE WIDTH="640" CELLSPACING="0" CELLPADDING="0" BORDER="0">
<TR><TD colspan="2" align="center"><img src="sisors.gif" width="640" height="21" alt="" border="0"></TD>
</TR></TABLE> <TABLE WIDTH="640" CELLSPACING="0" CELLPADDING="0" BORDER="0"><TR>
<TD width="185" valign="bottom" align=center>" style=font-size:15px> <%=banco%></TD>
<TD width="65" align="left" valign="bottom" style="border-left: 3 solid #000000;border-right: 3 solid #000000;">" style=font-size:17px> 001-9</TD>
<TD ALIGN="right" valign="bottom" width="500">" style=font-size:12px><%=linhadigitavel%></TD>
</TR></TABLE><TABLE WIDTH="640" CELLSPACING="0" CELLPADDING="2" style="border: 1 solid #000000">
<TR><TD COLSPAN="6" valign="top" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;">" style=font-size:10px>Local de Pagamento: " style=font-size:10px> PAGÁVEL EM QUALQUER BANCO ATÉ O VENCIMENTO </TD>
<TD width=150 valign="top" style="border-bottom: 1 solid #000000;">
" style=font-size:10px>Vencimento 
<center>" style=font-size:13px><%=vencimento%></center>
</TD></TR><TR><TD COLSPAN="6" width="490" valign="top" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;">
<table width="100%" border="0" cellpadding="0" cellspacing="0" valign="top">
<tr valign="top">
<td valign="top">" style=font-size:10px>Cedente:   <%=valorced%> </div>
</td><td valign="top">" style=font-size:10px>CNPJ:   <%=valorcpfcnpj%> </div>
</td></tr></table></td><TD width="150" style="border-bottom: 1 solid #000000;">
" style=font-size:10px>Agência/Código Cedente 
<center>" style=font-size:13px><%=valoragencia%>/<%=valorcedente1%></center>
</TD></TR><TR><TD WIDTH="105" valign="top" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;">
" style=font-size:10px>Data do documento: 
<center>" style=font-size:13px><%=day(now)&"/"&month(now)&"/"&year(now)%></center>
</TD><TD colspan="2" valign="top" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;">
" style=font-size:10px>No. do documento 
<center>" style=font-size:13px><%=replace(valornumerodoc,".","")%> </center>
</TD><TD WIDTH="70" valign="top" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;">" style=font-size:10px>Espécie doc. 
<center>" style=font-size:13px><%=especie%></center>
</TD><TD WIDTH="40" valign="top" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;">" style=font-size:10px>Aceite 
<center>" style=font-size:13px><%=valoraceite%></center>
</TD><TD WIDTH="100" valign="top" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;">
" style=font-size:10px>Data Processamento 
<center>" style=font-size:13px><%=day(now)&"/"&month(now)&"/"&year(now)%></center>
</TD><TD WIDTH="150" valign="top" style="border-bottom: 1 solid #000000;">" style=font-size:10px>Nosso Número 
<center>" style=font-size:13px><%=valornossonumero%></center>
</TD></TR><TR><TD WIDTH="105" valign="top" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;"> " style=font-size:10px>Uso do Banco 
<center>" style=font-size:13px><%=valoragenciaced%></center>
</TD><TD width="110" valign="top" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;">
" style=font-size:10px>Carteira 
<center>" style=font-size:13px><%=valorcarteira%></center>
</TD><TD WIDTH="50" valign="top" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;">" style=font-size:10px>Espécie 
<center>" style=font-size:13px> <%=valorespecie%> </center></TD>
<TD colspan="2" width="110" valign="top" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;">" style=font-size:10px>Quantidade 
<center>" style=font-size:13px><%=quantidade%></center>
</TD><TD WIDTH="105" valign="top" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;">
" style=font-size:10px>Valor 
<center>" style=font-size:13px><%=valorboleto%></center>
</TD><TD WIDTH="150" valign="top" style="border-bottom: 1 solid #000000;">" style=font-size:10px>(=) Valor do Documento 
<center>" style=font-size:15px><%=replace(valor1,".",",")%></center>
</TD></TR><TR><TD COLSPAN="6" ROWSPAN="6" VALIGN="TOP" style="border-bottom: 1 solid #000000;border-right: 1 solid #000000;"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%" WIDTH="100%">
<TR VALIGN="TOP"><TD>" style=font-size:10px>Instruções (Texto de responsabilidade do cedente). </TD>
</TR><TR VALIGN="TOP">
<TD>" style=font-size:10px>SR. CAIXA, NÃO RECEBER APÓS O VENCIMENTO Desconto de 1,5% sobre o valor do documento </TD>
</TR></TABLE></TD></TR>
<TR><TD height=30 valign=top><TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR><TD>" style=font-size:10px>(-) Descontos/Abatimento 
<center>" style=font-size:13px><%="R$ "&replace(descontoir,".",",")%></center></TD></TR>
</TABLE></TD></TR><TR><TD style="border-top: 1 solid #000000;" height=30 valign=top><TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR><TD>" style=font-size:10px>(-) Outras deduções</TD></TR></TABLE>
</TD></TR><TR><TD style="border-top: 1 solid #000000;" height=30 valign=top><TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR><TD>" style=font-size:10px>(+) Mora/Multa</TD></TR></TABLE>
</TD></TR><TR><TD style="border-top: 1 solid #000000;" height=30 valign=top><TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR><TD>" style=font-size:10px>(+) Outros Acréscimos</TD></TR></TABLE>
</TD></TR><TR><TD style="border-top: 1 solid #000000;border-bottom: 1 solid #000000;" height=30 valign=top>
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0"><TR><TD>" style=font-size:10px>(=) Valor Cobrado 
<center>" style=font-size:13px><%="R$ "&replace(valorcobrado,".",",")%></center></TD></TR>
</TABLE></TD></TR><TR><TD COLSPAN="7"><TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR><tr><td valign="top" width="100">" style=font-size:10px>Sacado:     </td>
<td WIDTH="100%" valign="top">" style=font-size:10px><%=valorsacado%> 
<%=valorendereco%><%=valorendereco%> 
CEP:<%=valorcep%> 
</td></tr><TD valign="top">" style=font-size:10px></td></TR></TABLE></td></TR></TABLE><TABLE WIDTH="640" CELLSPACING="0" CELLPADDING="0" BORDER="0">
<TR><td align="left" width="480">
&#

#1 Arley

#2 otavio

#3 Arley

#4 otavio

#5 Arley

#6 otavio

#7 Arley

#8 porteiro

#9 KBR

#10 siola

0 user(s) are reading this topic

Boleto Banco Do Brasil

#8 porteiro

0 user(s) are reading this topic

Entrar