Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

hostrl

Boletos bancários

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

da uma olhada neste artigo que tenho aqui.

 

Partes que compõem um boleto bancário, e seu significado

 

Os principais campos de um boleto e seu significado. São os descritos abaixo:

 

 

1.Código do Banco

É composto do código do banco, mais o digito.

 

2.Linha digitável

É a representação numérica do código de barras. A linha digitável é baseada no valor do código de barras, mas não é o mesmo numero. Ela serve para o pagamento do boleto via internet e também é utilizada quando o código de barras está danificado.

 

3.Vencimento

Data de vencimento do boleto.

 

4.Agência código cedente

Este campo varia conforme o banco, mas em geral é composto pelo número da carteira, agência, conta e dígito, que dependendo do banco pode ser: agencia+conta ou mesmo carteira+agencia+conta, cada banco tem um padrão.

 

5.Nosso Numero

Este campo também varia conforme o banco, mas você deve dar uma atenção especial à ele, porque quando o boleto é pago em geral é esse numero que aparece no seu extrato, assim você tem como identificar o boleto pago.

Portanto esse número deve ser diferente para cada boleto emitido, e não podendo haver duplicidades.

Alguns bancos fornecem uma faixa de números que o cliente pode trabalhar, outros já deixam a critério do cliente.

 

6.Valor do Documento

Este campo contem o valor do documento, com duas casas decimais e vírgula como separador decimal.

 

7.Código de Barras

São código de barras, que através de sua espessura representam "0" ou "1" em binário. No total o código de barras é composto por 44 dígitos numéricos, que representam o valor, data de vencimento, entre outras informações do boleto. A composição e disposição desses números variam de banco pra banco, podendo conter o numero da agência, conta corrente, código do cliente, etc.

 

8.Carteira

Contem o código da carteira que está sendo utilizada. Isto também muda de banco para banco, mais adiante darei detalhes de qual é a mais indicada para pagamentos via internet e o porque.

 

9.Sacado

Sacado é quem paga o boleto. Este campo contém os dados da pessoa que irá pagar o boleto, nome endereço etc.

 

10.Data do Documento

Data em que o boleto foi gerado ou emitido, no caso de segunda via por internet.

 

11.Cedente

Cedente é quem emitiu o boleto. Este campo contem o nome de quem emitiu o boleto, em geral o titular da conta, podendo ser pessoa física ou jurídica, mas isso depende do banco.

 

Noções de cobrança bancária

 

Bom agora que você já conhece os principais campos de um boleto, iremos ter uma pequena noção de cobrança bancária.

 

O boleto bancário é um dos sistemas mais práticos de cobrança, funcionando da seguinte maneira: o Cedente emite o boleto e o envia ao Sacado.

 

O Sacado pode pagar o boleto utilizando a linha digitável, ou código de barras via home-bank, ou mesmo em qualquer agência bancária, casas lotéricas ou via internet. Bom a essa altura você deve estar pensando isso eu já sei...

 

Você é o Sacado certo? E irá emitir o boleto para seu cliente pagar certo?

 

Mas antes é preciso que você entre em contato com seu banco e peça para que sua conta esteja habilita a emitir cobrança via boletos.

 

O banco tem varias modalidades de cobrança, e emissão de boletos. Vou descrever as duas principais e mais utilizadas e com as quais já trabalhei.

 

Cobrança Registrada

 

Quando emitir seus boletos com cobrança registrada, você deve enviar um arquivo de remessa para o banco, este arquivo de remessa segue um padrão, que não vem ao caso agora, senão o artigo vai ficar enorme.

 

Este arquivo de remessa que é enviado ao banco e serve para registrar os boletos emitidos. Assim, se algum sacado não pagar, o banco pode automaticamente ou por instrução do cedente, pode mandar o nome do sacado para protesto, ou mesmo o para o cadastro do spc.

 

Ou seja, este tipo em geral é utilizado quando as empresas querem ter uma segurança maior, de modo que se o cliente não pagar eles tem um meio legal de protestar o sacado e cobrar a dívida.

 

Cobrança sem Registro

 

Nessa cobrança você simplesmente emite o boleto e o envia para o sacado pagar e não há registro no banco sobre este boleto emitido, o banco só saberá da existência do boleto quando ele for pago.

 

Esta é a cobrança mais indicada para uso na internet, porque se o cliente não pagar, simplesmente o pedido não é enviado.

 

Agora que você já conhece os dois principais tipos de cobrança, vamos falar sobre o campo "carteira" do boleto. É justamente este campo que indica o tipo de cobrança escolhida pelo cedente.

 

Por exemplo, no Unibanco a carteira sem registro é conhecida como "ESPECIAL" e a registrada como "REGISTRADA". Já no Itaú, a sem registro é conhecida como "174" ou "175" e a registrada como "109" e assim vai.

 

Existem umas grandes variedades de modalidade de cobrança, para boletos cada uma tem uma finalidade, vantagens e desvantagens. Descrevi apenas as principais diferenças entre os dois tipos mais comuns, que atende a maioria dos usuários, temos mais detalhes sobre elas que não deu pra abordar neste artigo, mas o principal você já sabe.

 

Se tiver maiores dúvidas, consulte seu banco, este sim poderá fornecer maiores detalhes sobre os tipos de cobrança.

 

Taxas cobradas pelos bancos

 

O banco cobra uma taxa sobre cada boleto pago pelo sacado que varia entre R$1 a R$5, dependendo do banco.

 

Se a carteira for registrada ele também cobra por cada boleto emitido, independente dele ter sido pago ou não.

 

Por isso a cobrança sem registro é a mais indicada para o uso na internet.

 

O Banco também leva em consideração o porte do cliente, assim um cliente com maior volume de movimentação bancaria, tempo de conta etc... Conseguirá taxas menores ou mesmo a isenção de algumas taxas. Portanto consulte seu banco sobre as taxas cobradas.

 

A programação de implementação do mesmo

 

Você ira precisar de um script que gere o boleto para você no padrão do seu banco. Esse script para geração de boleto tem as funções necessárias para gerar o boleto, quando ele recebe os dados, ele processa essas informações e gera o boleto contendo o código de barras, linha digitável e nosso número, tudo isso formatado de acordo com o as regras estabelecidas pelo seu banco e carteira escolhida.

 

Esse script gera o boleto para você com base em variáveis que são enviadas a ele via POST, GET ou mesmo de uma base de dados, isso depende do que você já tem no seu site, e do que pretende implementar.

 

Os principais dados que devem ser enviados ao script são:

 

Valor do Boleto

Número do Pedido

Vencimento

Dados do Sacado

 

Os outros dados, como por exemplo o número da sua conta, agência, nome do cedente, etc.. você pode deixar já pré-configurados, já que estes dados se manterão fixos para todos os boletos gerados no site.

 

O padrão para a geração do código de barras utilizados em boletos bancários são 2 of 5.

 

É claro que as informações contidas neste artigo se aplica a maioria dos bancos, mas é como eu já disse, podem haver pequenas variações de banco para banco.

 

entra esse link , você pode optar pelo serviço

http://www.boleto-online.com

 

Abaixo um código

 

<html>

<%

SDIG=""

CDIG=""

LDIG=""

NOSSONUMERO=""

Dim atab(99)





'********************************

' CONSTANTES

'********************************



cons_banco="341"

cons_dvbanco="7"

cons_agencia="0057"

cons_conta="12345"

cons_carteira="175"

cons_moeda="9"

cons_especie="R$"

cons_cedente="Teste."

cons_dadoscedente="Teste.<br>

Rua Tiradentes nº 938<br>Centro<br>

13420080 - Piracicaba - SPRJ<br>

Telefone / Fax: +55 (19) 3422-6831<br>

E-mail: xanburzum@terra.com.br"





'********************************

' VARIÁVEIS 

'********************************



var_sacado="NONO MomooNO mONON"

var_endereco="Avenida Data Tech Tecnologia e Informática, 2008"

var_bairro="Serpa"

var_cidade="Caieiras"

var_estado="São Paulo"

var_cep="07700-000"

var_cpfcnpj="00.000.000/0000-00"



var_nossonumero="00000137"

var_datadocumento="03/12/2008"

var_datavencimento="05/12/2008"

var_valordocumento="70,00"

var_numerodoc="008171001A"

var_instrucoes="<B> Após o Vencimento, 

corrigir pelo IGPM/FGV <BR> Cobrar JUROS 

de 1% ao mês e MULTA de 10% <BR> 

Pagável em qualquer agência bancária 

até o vencimento <BR></b>" 

var_observacoes="<B> Linha 1<BR> 

Linha 2<BR> Linha 3<BR> Linha 4<BR> 

Linha 5<BR> Linha 6<BR></b>" 





'********************************

' INICIO DO CÁLCULO

'********************************



dvnossonumero=calcdig10(cons_agencia&

cons_conta&cons_carteira&

var_nossonumero)

dvagconta=calcdig10

(cons_agencia&cons_conta)





valordia=date()

var_data=Day(valordia) & "/" & Month(valordia) & "/" & YEAR(valordia)



valorvalor1=var_valordocumento

valorvalor2=replace(valorvalor1,",","")

valorvalor2=replace(valorvalor2,".","")

valorvalor3=len(valorvalor2)

valorvalor4=10-valorvalor3

var_valor= String(""&valorvalor4&"","0") & (""&valorvalor2&"")

if valorvalor1=0 then

  var_valor=""

end if



var_fatorvencimento=fatorvencimento(""&var_datavencimento&"")

if var_fatorvencimento="0000" then

  var_datavencimento="Contra Apresentação"

end if





var_codigobarras=codbar(""&cons_banco&"",""&cons_moeda&"",

""&var_fatorvencimento&"",""&var_valor&"",

""&cons_carteira&"",""&var_nossonumero&"",

""&dvnossonumero&"",""&cons_agencia&"",

""&cons_conta&"",""&dvagconta&"")

var_linhadigitavel=

linhadigitavel(""&var_codigobarras&"")



'**************************

FUNCTION linhadigitavel(codigobarras)

'**************************

cmplivre=mid(codigobarras,20,25)

campo1=left(codigobarras,4)&mid(cmplivre,1,5)

campo1=campo1&calcdig10(campo1)

campo1=mid(campo1,1,5)&"."&mid(campo1,6,5)



campo2=mid(cmplivre,6,10)

campo2=campo2&calcdig10(campo2)

campo2=mid(campo2,1,5)&"."&mid(campo2,6,6)



campo3=mid(cmplivre,16,10)

campo3=campo3&calcdig10(campo3)

campo3=mid(campo3,1,5)&"."&mid(campo3,6,6)



campo4=mid(codigobarras,5,1)



campo5=int(mid(codigobarras,6,14))



if campo5=0 then

campo5="000"

end if



linhadigitavel=campo1&"  

"&campo2&"  "&campo3&"

  "&campo4&"  "&campo5

'*************************

END FUNCTION

'*************************





'valortal=CALCdig10("11513024791005193100033")

'response.write valortal



'**************************

FUNCTION CALCDIG10(cadeia)

'**************************

mult=(len(cadeia) mod 2) 

mult=mult+1

total=0

for pos=1 to len(cadeia)

 res= mid(cadeia, pos, 1) * mult

 if res>9 then

  res=int(res/10) + (res mod 10)

 end if

 total=total+res

 if mult=2 then

  mult=1

 else

  mult=2

 end if

next

total=((10-(total mod 10)) mod 10 )

CALCDIG10=total

'*************************

END FUNCTION

'*************************





'valortal1=CALCdig11("0339000000000103581481302647800076960003348",9,0)

'response.write valortal1



'**************************

FUNCTION CALCDIG11(cadeia,limitesup,lflag)

'**************************

mult=1 + (len(cadeia) mod (limitesup-1))

if mult=1 then

mult=limitesup

end if

total=0

for pos=1 to len(cadeia)

total=total+(mid(cadeia,pos,1) * mult)

mult=mult-1

if mult=1 then

 mult=limitesup

end if

Next

nresto=(total mod 11)

if lflag = 1 then

calcdig11=nresto

else

if nresto=0 or nresto=1 or nresto=10 then

 ndig=1

else

 ndig=11 - nresto 

end if

calcdig11=ndig

end if



'*************************

END FUNCTION

'*************************







'**************************

FUNCTION fatorvencimento(vencimento)

'**************************



if len(vencimento)<8 then

  fatorvencimento="0000"

else

  fatorvencimento=datevalue(""&vencimento&"")-datevalue("1997/10/07")

end if



'*************************

END FUNCTION

'*************************









'**************************

FUNCTION codbar(banco,moeda,vencimento,valor,carteira,

nossonumero,dvnossonumero,agencia,conta,dvagconta)

'**************************



strcodbar=banco&moeda&vencimento&valor&carteira&

nossonumero&dvnossonumero&agencia&

conta&dvagconta&"000"

dv3=calcdig11(strcodbar,9,0)

codbar=banco&moeda&dv3&vencimento&

valor&carteira&nossonumero&dvnossonumero

&agencia&conta&dvagconta&"000"

'*************************

END FUNCTION

'*************************





'**************************

Sub WBarCode( 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

%>



<head>



<STYLE type=text/css>

.ti { FONT: 9px Arial, Helvetica, sans-serif }

.ct { FONT: 9px Arial Narrow; COLOR: navy }

.cn { FONT: 9px Arial; COLOR: black }

.cp { FONT: bold 11px Arial; COLOR: black }

.ld { FONT: bold 15px Arial; COLOR: #000000 }

.bc { FONT: bold 18px Arial; COLOR: #000000 }

</STYLE>



</head>





<img src=2.gif width=<%=fino%> height=<%=altura%> border=0><img 

src=1.gif width=<%=fino%> height=<%=altura%> border=0><img 

src=2.gif width=<%=fino%> height=<%=altura%> border=0><img 

src=1.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=2.gif width=<%=f1%> height=<%=altura%> border=0><img 

   <%

   if mid(f, i + 1, 1) = "0" Then

	 f2 = fino

   else

	 f2 = largo

   end if

   %>

   src=1.gif width=<%=f2%> height=<%=altura%> border=0><img 

   <%

 next

loop



' Draw guarda final

%>

src=2.gif width=<%=largo%> height=<%=altura%> border=0><img 

src=1.gif width=<%=fino%> height=<%=altura%> border=0><img 

src=2.gif width=<%=1%> height=<%=altura%> border=0>



<%

'**************************

end sub

'**************************

%>





<script language=JavaScript>

var da = (document.all) ? 1 : 0;

var pr = (window.print) ? 1 : 0;

var mac = (navigator.userAgent.indexOf("Mac") != -1); 



function x86(){

if (pr) // NS4, IE5

window.print()

else if (da && !mac) // IE4 (Windows)

vbx86()

else // outros browsers

alert("Desculpe seu browser não suporta 

esta função. Por favor utilize a barra de 

trabalho para imprimir a página.");

return false;}

if (da && !pr && !mac) with (document) {

writeln('<OBJECT ID="WB" WIDTH="0" HEIGHT="0" CLASSID="clsid:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT>');

writeln('<' + 'SCRIPT LANGUAGE="VBScript">');

writeln('Sub window_onunload');

writeln('  On Error Resume Next');

writeln('  Set WB = nothing');

writeln('End Sub');

writeln('Sub vbx86');

writeln('  OLECMDID_PRINT = 6');

writeln('  OLECMDEXECOPT_DONTPROMPTUSER = 2');

writeln('  OLECMDEXECOPT_PROMPTUSER = 1');

writeln('  On Error Resume Next');

writeln('  WB.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER');

writeln('End Sub');

writeln('<' + '/SCRIPT' + '>');}

</SCRIPT>



<CENTER>

<p>

<br>

<TABLE WIDTH="660" CELLSPACING=0 CELLPADDING=0 BORDER=0>

  <TR>

 <TD class=cp VALIGN=BOTTOM WIDTH=225><IMG SRC="logobanco.gif" width="129" height="26"></TD>

 <TD ALIGN=RIGHT VALIGN=BOTTOM><FONT class=ld><B>RECIBO DO SACADO</B></FONT></TD>

</TR>

</TABLE>

<TABLE WIDTH="660" BORDER=1 CELLSPACING=0 CELLPADDING=1>

 <TR>

  <TD COLSPAN=2><FONT class=ct>Cedente</FONT><BR><FONT class=cp> <%=cons_cedente%></FONT></TD>

  <TD width=15%><FONT class=ct>Agência / Código Cedente</FONT><BR>

	<FONT align=center class=cn> <%=cons_agencia%> / <%=cons_conta%>-<%=dvagconta%></FONT></TD>

	 <TD width=15%><FONT class=ct>Nosso Número</FONT><BR><FONT class=cn> <%=cons_carteira%> / <%=var_nossonumero%>-<%=dvnossonumero%></FONT></TD>

  <TD width=20% bgcolor="#CCCCCC">

	 <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>

		<TR><TD align=left><FONT class=ct>Vencimento</FONT></TD></TR>

	  <TR><TD align=center><FONT class=cp><%=var_datavencimento%></FONT></TD></TR>

	</TABLE>

  </TD>

</TR>

<TR>

	<TD COLSPAN=2><FONT class=ct>Sacado</FONT><BR><FONT class=cp> <%=var_sacado%></FONT></TD>

 <TD width=15%><FONT class=ct>Data Processamento</FONT><BR><FONT align=center class=cn> <%=var_data%></FONT></TD>

	<TD width=15%><FONT class=ct>Número Documento</FONT><BR><FONT class=cn> <%=var_numerodoc%></FONT></TD>

  <TD width=20% bgcolor="#CCCCCC">

	 <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>

		<TR><TD align=left><FONT class=ct>Valor do Documento</FONT></TD></TR>

	  <TR><TD align=center><FONT class=cp><%=var_valordocumento%></FONT></TD></TR>

	</TABLE>

  </TD>

</TR>

<TR>

	<TD><FONT class=ct>CPF / CNPJ</FONT><BR><FONT class=cp> <%=var_cpfcnpj%></FONT></TD>

	<TD width=15%><FONT class=ct>(-) Desconto / Abatimento</FONT><BR><FONT class=cp><br></FONT></TD>

	<TD width=15%><FONT class=ct>(-) Outras Deduções</FONT><BR><FONT class=cn><br></FONT></TD>

	<TD width=15%><FONT class=ct>(+) Mora / Multa</FONT><BR><FONT class=cn><br></FONT></TD>

	<TD width=20% bgcolor="#CCCCCC"><FONT class=ct>(=) Valor Cobrado</FONT><BR><FONT class=cp><br></FONT></TD>

</TR>

<TR>

	<TD COLSPAN=5 valign=top align=left>

  <FONT class=ct>Observações:</FONT><br>

  <TABLE WIDTH="640" ALIGN=RIGHT CELLSPACING=0 CELLPADDING=0 BORDER=0>

   <TR>

	<TD valign=top align=left>

		   <FONT class=cn>

	  <%=var_observacoes%>

	   </FONT>

	 </TD>

   </TR>

  </TABLE>

  </TD>

</TR>

</TABLE>

<TABLE WIDTH="660" CELLSPACING=0 CELLPADDING=0 BORDER=0>

<TR>

  <TD align=right><FONT class=ct>Autenticação Mecânica</FONT><BR><BR><BR></TD>

 </TR>

</TABLE>



<img src="corte.gif" border=0 width="660"><br><br>



<TABLE WIDTH="660" BORDER=0 CELLSPACING=0 CELLPADDING=0>

 <tr>

 <td class=cp width=150><div align="left"><img src="logobanco.gif" width="129" height="26"></div></td>

   <td width=3 valign="bottom"><img height=22 src="barra.gif" width=2 border=0></td>

   <td class=cpt  width=58 valign="bottom"><div align="center"><font class="bc"><%=cons_banco%>-<%=cons_dvbanco%></font></div></td>

   <td width=3 valign="bottom"><img height=22 src="barra.gif" width=2 border=0></td>

   <td class=ld align=right width=453 valign="bottom"><span class='ld'><p align="right"> <%=var_linhadigitavel%></span></td>

 </tr>

</TABLE>

<TABLE WIDTH="660" BORDER=1 CELLSPACING=0 CELLPADDING=1>

 <TR>

  <TD COLSPAN=5 WIDTH=500>

	<FONT class=ct>Local de Pagamento</FONT><BR>

	<FONT class=cp> ATÉ O VENCIMENTO PAGÁVEL EM QUALQUER BANCO</FONT>

  </TD>

  <TD width=170 bgcolor="#CCCCCC">

	 <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>

		<TR><TD align=left><FONT class=ct>Vencimento</FONT></TD></TR>

	  <TR><TD align=center><FONT class=cp><%=var_datavencimento%></FONT></TD></TR>

	</TABLE>

  </TD>

</TR>

<TR>

  <TD COLSPAN=5 WIDTH=500><FONT class=ct>Cedente</FONT><BR><FONT class=cn> <%=cons_cedente%></FONT></TD>

  <TD width=170>

	 <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>

		<TR><TD align=left><FONT class=ct>Agência / Código Cedente</FONT></TD></TR>

	  <TR><TD align=center><FONT class=cn><%=cons_agencia%> / <%=cons_conta%>-<%=dvagconta%></FONT></TD></TR>

	</TABLE>

  </TD>

</TR>

<TR>

  <TD valign=top><FONT class=ct>Data Documento</FONT><BR><FONT class=cn> <%=var_datadocumento%></FONT></TD>

  <TD valign=top><FONT class=ct>Número Documento</FONT><BR><FONT class=cn> <%=var_numerodoc%></FONT></TD>

  <TD valign=top><FONT class=ct>Tipo Docu.</FONT><BR><FONT class=cn> DP</FONT></TD>

  <TD valign=top><FONT class=ct>Aceite</FONT><BR><FONT class=cn> N</FONT></TD>

  <TD valign=top><FONT class=ct>Data Processamento</FONT><BR><FONT class=cn> <%=var_data%></FONT></TD>

  <TD width=170>

	 <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>

		<TR><TD align=left><FONT class=ct>Nosso Número</FONT></TD></TR>

	  <TR><TD align=center><FONT class=cn><%=cons_carteira%> / <%=var_nossonumero%>-<%=dvnossonumero%></FONT></TD></TR>

	</TABLE>

  </TD>

</TR>

<TR>

  <TD valign=top><FONT class=ct>Uso Banco</FONT><BR><FONT class=cn> </FONT></TD>

  <TD valign=top><FONT class=ct>Carteira</FONT><BR><FONT class=cn> <%=cons_carteira%></FONT></TD>

  <TD valign=top><FONT class=ct>Espécie</FONT><BR><FONT class=cn> <%=cons_especie%></FONT></TD>

  <TD valign=top><FONT class=ct>Quantidade</FONT><BR><FONT class=cn> </FONT></TD>

  <TD valign=top><FONT class=ct>Valor</FONT><BR><FONT class=cn> </FONT></TD>

  <TD width=170 bgcolor="#CCCCCC">

	 <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>

		<TR><TD align=left><FONT class=ct>Valor do Documento</FONT></TD></TR>

	  <TR><TD align=center><FONT class=cp><%=var_valordocumento%></FONT></TD></TR>

	</TABLE>

  </TD>

</TR>

<TR>

  <TH COLSPAN=5 ROWSPAN=4 valign=top align=LEFT ><FONT class=ct>Instruções</FONT><BR>

	<TABLE WIDTH="475" ALIGN=RIGHT CELLSPACING=0 CELLPADDING=0 BORDER=0>

	<TR>

	 <TD valign=top align=left>

	  <FONT class=cn>

	   <%=var_instrucoes%>

	  </FONT>

	 </TD>

	</TR>

   </TABLE>

  </TH>

  <TD WIDTH=170><FONT class=ct>(-) Desconto / Abatimento</FONT><BR><FONT class=cn> </FONT></TD>

</TR>

<TR>

  <TD WIDTH=170><FONT class=ct>(-) Outras Deduções</FONT><BR><FONT class=cn> </FONT></TD>

</TR>

<TR>

  <TD WIDTH=170><FONT class=ct>(+) Mora / Multa</FONT><BR><FONT class=cn> </FONT></TD>

</TR>

<TR>

  <TD WIDTH=170 bgcolor="#CCCCCC"><FONT class=ct>(=) Valor Cobrado</FONT><BR><FONT class=cn> </FONT></TD>

</TR>

<TR>

  <TD COLSPAN=6 valign=top>

	<FONT class=ct>Sacado</FONT><BR>

	 <TABLE WIDTH="640" ALIGN=RIGHT CELLSPACING=0 CELLPADDING=0 BORDER=0>

	  <TR>

	   <TD valign=top align=left>

		<FONT class=cn>

		 <%=var_sacado%><BR>

		 <%=var_endereco%><BR>

		 <%=var_bairro%><BR>

		 <%=var_cep%> - <%=var_cidade%> - <%=var_estado%><BR>

		 <%=var_cpfcnpj%><BR>

		</FONT>

		</TD>

	  </TR>

	 </TABLE>

  </TD>

</TR>

</TABLE>

<TABLE WIDTH="660" CELLSPACING=0 CELLPADDING=0 BORDER=0>

<TR>

  <TD class=ct align=right>

	 <div align="right">Autenticação Mecânica - <b class="cp">Ficha de Compensação</b></div>

  </TD>

</TR>

<TR>

  <TD align=left>

	<%

	 call wbarcode(var_codigobarras)

	%>

  </TD>

</TR>

</TABLE>



<BR>

<img src="corte.gif" border=0 width="660">

<BR>



<table width='640' cellspacing=5 cellpadding=0 border=0>

<tr>

  <form name='forma'>

	 <td align="center"><input type=button value=' Imprimir Boleto' onClick='x86()' name='button'></td>

  </form>

</tr>

</table>

</CENTER>

</HTML>

 

e esse o arq.inc 2

CODE 

<%

' ********************************************************************************
****************



Sub WBarCode(Valor)



  Dim x

  Dim strC 

  Dim Aux



	Aux = "<IMG SRC=""../images/!asterisk.gif"" WIDTH=""30"" HEIGHT=""72"">"



	  For x = 1 to Len(Trim(Valor))

		strC = mid(Valor,x,1)

		Aux  = Aux & "<IMG SRC=""../images/" & strC & ".gif"" WIDTH=""30"" HEIGHT=""72"">"

	 Next



	Aux = Aux & "<IMG SRC=""../images/!asterisk.gif"" WIDTH=""30"" HEIGHT=""72"">"



	response.write(Aux)



End Sub



' ********************************************************************************
***************

%>

 

e o arq.inc 1

 

 

<%

' ********************************************************************************
****************

'*** Rotina para gerar códigos de barra padrão 2of5 ou 25. 

' ********************************************************************************
****************



Sub WBarCode(Valor)

Dim f, f1, f2, i

Dim texto,altura



Dim BarCodes(99)



if len(Valor) < 44 then

  altura = 34

else

  altura = 50

end if



Const fino = 2

Const largo = 5

altura = 75



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="../images/p.gif" width=<%=fino%> height=<%=altura%> border=0><img 

src="../images/b.gif" width=<%=fino%> height=<%=altura%> border=0><img 

src="../images/p.gif" width=<%=fino%> height=<%=altura%> border=0><img 

src="../images/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="../images/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="../images/b.gif" width=<%=f2%> height=<%=altura%> border=0><img 

   <%

 next

loop

' Draw guarda final

%>

src="../images/p.gif" width=<%=largo%> height=<%=altura%> border=0><img 

src="../images/b.gif" width=<%=fino%> height=<%=altura%> border=0><img 

src="../images/p.gif" width=<%=2%> height=<%=altura%> border=0>

<%

end sub

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Célido    0

Célido
Postado

Olá alguem poderia me indicar algum tutorial ou script em asp para boleto bradesco e/ou Caixa, vlw pessoal!

Se precisar tenho os scripts em asp (Bradescop / Caixa).

Passe o e-mail que te envio.

 

Valeu

 

Célido

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito