[Phpboleto-devel] classe para Boleto Banco Real

[<ot...@in...>]

ola para todos, segue abaixo a classe que adaptei para o Banco Real, =
est=E1 funcionando corretamente para boletos de cobran=E7a simples, se =
alguem testar para cobran=E7as registradas e funcionar ok, de um alo.

[]s
Otavio.

<?php
/* vim: set expandtab tabstop=3D4 shiftwidth=3D4: */
// =
+----------------------------------------------------------------------+
// | phpBoleto v2.0                                                      =
 |
// =
+----------------------------------------------------------------------+
// | Copyright (c) 1999-2001 Pablo Martins F. Costa, Jo=E3o Prado Maia   =
   |
// =
+----------------------------------------------------------------------+
// | Este arquivo est=E1 sujeito a vers=E3o 2 da GNU General Public =
License,  |
// | que foi adicionada nesse pacote no arquivo COPYING e est=E1 =
dispon=EDvel |
// | pela Web em http://www.gnu.org/copyleft/gpl.txt                     =
 |
// | Voc=EA deve ter recebido uma c=F3pia da GNU Public License junto =
com     |
// | esse pacote; se n=E3o, escreva para:                                =
   |
// |                                                                     =
 |
// | Free Software Foundation, Inc.                                      =
 |
// | 59 Temple Place - Suite 330                                         =
 |
// | Boston, MA 02111-1307, USA.                                         =
 |
// =
+----------------------------------------------------------------------+
// | Autores: Jo=E3o Prado Maia <jp...@ph...>                      =
   |
// |          Pablo Martins F. Costa <pa...@us...>       =
 |
// |          Ot=E1vio Bonvino <ot...@bo...>                   =
   |
// =
+----------------------------------------------------------------------+
//
// @(#) $Id: class.banco.bancoreal.php,v 1.0 2003/02/05 20:50:00 jcpm =
Exp $
//

require_once(BOLETO_INC_PATH . "boletos" . BOLETO_SEPARADOR . "bancos" . =
BOLETO_SEPARADOR . "class.banco.comum.php");

class Boleto_Banco_Bancoreal extends Boleto_Banco_Comum
{

    function _modulo10real($num)
    {
        $soma =3D 0;
        $fator =3D 1;

        // Separacao dos numeros
        for ($i =3D strlen($num); $i > 0; $i--) {=20
            // pega cada numero isoladamente=20
            $numero =3D substr($num,$i-1,1);
            // Efetua multiplicacao do numero pelo (falor 10)
            $parcial =3D $numero * $fator;=20
            if($parcial > 9) {
                $parcial =3D =
intval(substr($parcial,0,1))+intval(substr($parcial,1,1));
            }      =20
            // monta sequencia para soma dos digitos no (modulo 10)
            $soma +=3D $parcial;
            if ($fator =3D=3D 2) {=20
                $fator =3D 1;
            } else {
                $fator =3D 2;     // intercala fator de multiplicacao
            }
        }

        $resto =3D $soma % 10;
        $digito =3D 10 - $resto;
        if ($digito =3D=3D 10) {
            $digito =3D 0;
        }

        return $digito;
    }

    function geraDadosBanco($info)
    {
        // formatacao agencia/conta cedente
        $agencia =3D substr($info["agencia"], 0, 4);
        $conta =3D substr($info["conta_cedente"], 0, 7);

        // formatacao do valor=20
        if($info["valor_documento"] =3D=3D 0) {
            $valor =3D "00000000000000";
        } else {
            $v =3D str_replace("R\$", "", $info["valor_documento"]);
            $v =3D str_replace(chr(44), "", $v);
            $valor =3D sprintf("%010d", $v);
        }

        // vencimento
        $vence =3D explode("/", $info["vencimento"]);
        $dvence =3D $vence[0];
        $mvence =3D $vence[1];
        $avence =3D $vence[2];
        $vcto =3D "$dvence/$mvence/$avence";
        $fatorvcto =3D $this->_fatorVencimento($avence, $mvence, =
$dvence);

        // formata o nosso numero para ter 13 campos com zeros a =
esquerda
        $nnum =3D intval($info["nosso_numero"]);
        $nn =3D sprintf("%013d", $nnum);

        // digito verificador do boleto
        $DAC =3D $this->_modulo10real("$agencia$conta$nn");

        $moeda =3D "9";
        $codigobanco =3D "356";

        // 43 numeros para o calculo do digito verificador
        $dvcampo =3D =
"$codigobanco$moeda$fatorvcto$valor$agencia$conta$DAC$nn";
        $dv =3D $this->_modulo11($dvcampo);

        // Numero para o codigo de barras com 44 digitos
        $num =3D =
"$codigobanco$moeda$dv$fatorvcto$valor$agencia$conta$DAC$nn";

        // Devolve a linha digitavel
        $linha_digitavel =3D $this->_montaLinha($num);
        $codigo_banco =3D $this->_geraCodigoBanco($codigobanco);

        return array(
            "linha_digitavel" =3D> $linha_digitavel,
            "agencia_codigo"  =3D> $agencia." / ".$conta." / ".$DAC,
            "codigo_barras"   =3D> $num,
            "codigo_banco"    =3D> $codigo_banco,
            "nosso_numero"    =3D> $nn
        );
    }
}
?>