+8
Boleto bancário ( Fácil e Simples ) - Parte 1
Bem não vou mostrar como montar o layout do boleto porque já foi explicado aqui no site algo parecido (http://phpbrasil.com/articles/article.php/id/508).
Vou usar os termos usados lá para vocês identificarem. Se alguém ainda tiver dúvidas será um prazer colocar um artigo sobre o layout.
Vamos ver então o mais difícil, a Linha Digitável, os Números do Código de Barras e gerar o Código de Barras.
Mas o Código de Barras não é uma representação gráfica da Linha Digitável?
Não, o Código de Barras é um outro número com variáveis que também estão na Linha Digitável e vamos ver mais no tutorial como descobri-lo e gerar o código de barras sem dor de cabeça.
Você deve pensar são muitas páginas, mais tenha certeza vai valer apena.
Vamos declarar as variáveis:
O $SeuNum é um numero de controle para você utilizar, pode ser uma referência da compra ou uma identificação do usuário o importante é que ele nunca pode se repetir uma vez que ele serve de controle e identificação do boleto.
Bom um termo que também vamos utilizar como variável é o Nosso Número. O Nosso Número utilizado no BB é o convênio de cobrança mais nosso número de controle.
O $NossoNum é composto pelas variáveis $Convenio e $SeuNum.
Para continuarmos precisamos saber que a Linha Digitável é composta por 4 Campos e 1 Digito Controlador.
Vou usar os termos usados lá para vocês identificarem. Se alguém ainda tiver dúvidas será um prazer colocar um artigo sobre o layout.
Vamos ver então o mais difícil, a Linha Digitável, os Números do Código de Barras e gerar o Código de Barras.
Mas o Código de Barras não é uma representação gráfica da Linha Digitável?
Não, o Código de Barras é um outro número com variáveis que também estão na Linha Digitável e vamos ver mais no tutorial como descobri-lo e gerar o código de barras sem dor de cabeça.
Você deve pensar são muitas páginas, mais tenha certeza vai valer apena.
Vamos declarar as variáveis:
$CodBanco = ‘001’; // Código do Banco ( 001 = Brasil do Brasil ) $CodMoeda = ‘9’; // 9 = Real $Carteira = ‘18’; // O BB fornece este numero pois ele pode variar mais o normal é 18 $Agencia = ‘6666’; // Sem o digito ( Aqui uso uma agência imaginaria ) $NumConta = ‘77777’; // Sem o digito ( Conta também imaginaria ) $Convenio = ‘888888’; // O BB fornece este número de convênio $DataVenc = ‘09/06/2005’; $ValorDoc = ’53.26’; // Você pode aqui usar . ou , pois vamos tratar depois $SeuNum = ‘22222’; // Até 5 dígitos
O $SeuNum é um numero de controle para você utilizar, pode ser uma referência da compra ou uma identificação do usuário o importante é que ele nunca pode se repetir uma vez que ele serve de controle e identificação do boleto.
Bom um termo que também vamos utilizar como variável é o Nosso Número. O Nosso Número utilizado no BB é o convênio de cobrança mais nosso número de controle.
O $NossoNum é composto pelas variáveis $Convenio e $SeuNum.
$NossoNum = $Convenio.$SeuNum;
Para continuarmos precisamos saber que a Linha Digitável é composta por 4 Campos e 1 Digito Controlador.
00000.00000 00000.000000 00000.000000 0 00000000000000 Campo1 Campo2 Campo3 DC Campo4
Para os que estão com problema no DV de cada campo.
Esta parte está incorreta.
if($X > 9){ $X = $X-9; } <-- esta parte aqui está incorreta
Não se deve diminuir 9 caso o numero for maior que 9, e sim, somar os digitos.
por exemplo, se for 14, soma-se 1+4 =5
Espero ter ajudado.
Um abraço.
Esta parte está incorreta.
if($X > 9){ $X = $X-9; } <-- esta parte aqui está incorreta
Não se deve diminuir 9 caso o numero for maior que 9, e sim, somar os digitos.
por exemplo, se for 14, soma-se 1+4 =5
Espero ter ajudado.
Um abraço.
16/10/2006 10:36am
(~17 anos atrás)
Consegui adaptar para a CEF mudando apenas a geração do campo <nosso número> no resto ficou ótimo.
27/05/2006 6:45pm
(~18 anos atrás)
Olá pessoal preciso urgente, alguém já conseguiu fazer funcionar ...
Grato ...
Grato ...
18/05/2006 6:00am
(~18 anos atrás)
Olá Maykson e o resto do pessoal,
Estou a procura do script para convênios de 7 dígitos. Procurei em diversos lugares, em vão. Se alguém tiver, gostaria que por favor me fornecesse.
Agradeço
Estou a procura do script para convênios de 7 dígitos. Procurei em diversos lugares, em vão. Se alguém tiver, gostaria que por favor me fornecesse.
Agradeço
02/05/2006 5:03am
(~18 anos atrás)
Gostaria de usar o phpBoleto, mas não consigo fazer funcionar com a Caixa Economica, a linha digitável e o código de barras são recusados, alguém poderia me enviar já o script pronto para a CEF.
pacheco@apeknet.com.br
(e-mail com espaço ilimitado para receber arquivos e é também o MSN)
pacheco@apeknet.com.br
(e-mail com espaço ilimitado para receber arquivos e é também o MSN)
18/04/2006 7:41pm
(~18 anos atrás)
Alguem tem esse script:
Convenio de 7 Digitos com Nosso Numero 10 DIGITOS
que nem o:
http://www.geraboleto.com/geraboleto/demo/bb-teste.php
Sera que alguem pode me ajudar com pelo menos o manual de como o boleto com 7 digitos deve ser?
São so algumas mudanças no script!!!
Abraços
Cesar
msn: cdw@brturbo.com
Convenio de 7 Digitos com Nosso Numero 10 DIGITOS
que nem o:
http://www.geraboleto.com/geraboleto/demo/bb-teste.php
Sera que alguem pode me ajudar com pelo menos o manual de como o boleto com 7 digitos deve ser?
São so algumas mudanças no script!!!
Abraços
Cesar
msn: cdw@brturbo.com
20/03/2006 11:07am
(~18 anos atrás)
ainda nao consegui o principal!... fazer funcionar! ele gera tudo ok! mas quando vou fazer o pagamento do boleto, ele diz no sistema que o codigo do numero não é valido!
comparei o boleto deste sistema com o do proprio sistema do banco do brasil e verifiquei q ele ta gerando no campo 2 (4 e 7 digitos) quanto no boleto so tem q ter 4 e 6 no campo 2! alguem pode me ajudar?
contato@paulochinelate.com.br
comparei o boleto deste sistema com o do proprio sistema do banco do brasil e verifiquei q ele ta gerando no campo 2 (4 e 7 digitos) quanto no boleto so tem q ter 4 e 6 no campo 2! alguem pode me ajudar?
contato@paulochinelate.com.br
10/02/2006 10:04am
(~18 anos atrás)
Olá pessoal.
Achei excelente este artigo e com certeza me será muito útil.
Gostaria de dar uma pequena colaboração mostrando a função que fiz para obter o fator de vencimento usando os cálculos já presentes no script:
function FatorVenc($DataVenc)
{
$DataVenc = explode('/',$DataVenc);
$DiaVenc = $DataVenc[0];
$MesVenc = $DataVenc[1];
$AnoVenc = $DataVenc[2];
$DataInic = explode('/','07/10/1997');
$DiaInic = $DataInic[0];
$MesInic = $DataInic[1];
$AnoInic = $DataInic[2];
$DataInic = mktime(0,0,0,$MesInic,$DiaInic,$AnoInic);
$DataVenc = mktime(0,0,0,$MesVenc,$DiaVenc,$AnoVenc);
$FatorVenc = $DataVenc - $DataInic; //Fator de vencto. em seg.
$FatorVenc = ceil($FatorVenc/86400); //Fator de vencto. em dias
return $FatorVenc;
}
Para chamar a função:
$FatorVenc = FatorVenc($DataVenc);
Abraços.
Achei excelente este artigo e com certeza me será muito útil.
Gostaria de dar uma pequena colaboração mostrando a função que fiz para obter o fator de vencimento usando os cálculos já presentes no script:
function FatorVenc($DataVenc)
{
$DataVenc = explode('/',$DataVenc);
$DiaVenc = $DataVenc[0];
$MesVenc = $DataVenc[1];
$AnoVenc = $DataVenc[2];
$DataInic = explode('/','07/10/1997');
$DiaInic = $DataInic[0];
$MesInic = $DataInic[1];
$AnoInic = $DataInic[2];
$DataInic = mktime(0,0,0,$MesInic,$DiaInic,$AnoInic);
$DataVenc = mktime(0,0,0,$MesVenc,$DiaVenc,$AnoVenc);
$FatorVenc = $DataVenc - $DataInic; //Fator de vencto. em seg.
$FatorVenc = ceil($FatorVenc/86400); //Fator de vencto. em dias
return $FatorVenc;
}
Para chamar a função:
$FatorVenc = FatorVenc($DataVenc);
Abraços.
31/10/2005 7:38am
(~18 anos atrás)
Ela pega o $Partes do começo pro fim...
tva com o emsmo problema da raquel borto...
tva com o emsmo problema da raquel borto...
21/07/2005 4:21pm
(~19 anos atrás)
'=================================
Function CalculaDigitoVerifCodBarras(ByVal linhaCalculavel As String)
Dim multiplicador As New Multiplicador ' decartavel
Dim I As Integer = 1
Dim total As Integer = 0
Dim atual As Integer
While I <= 43
atual = CInt(linhaCalculavel.Substring(I - 1, 1))
atual = atual * multiplicador()
total = total + atual
I = I + 1
End While
Dim sobra, digito As Integer
sobra = Math.Ceiling(total Mod 11)
digito = 11 - sobra
Select Case digito
Case Is = 0
digito = 1
Case Is = 10
digito = 1
Case Is = 11
digito = 1
End Select
Return digito
End Function
'====================================
Function multiplicador() As Integer
If multi = 2 Then
multi = 9
Return 9
Else
multi = multi - 1
Return multi
End If
End Function
'====================================
Depois eu tento traduzir para PHP. Abraço