Migrando gbBoleto para ACBRBoleto

[diego.camposrosa]

Pessoal,

Nessa migração estou com a seguinte duvida!

No gbBoleto por exemplo o Nosso Numero (NN) precisava ter 8 digitos informo da seguinte maneira 00000001 , mas no AcbrBoleto em certo momento ele tenta converter de StrToFloat e acaba gerando uma exceção.

O componente vai gerar a linha digitavel correta se informar apenas o 1??

Dicas também são aceitas!

Agradeço as atenções.

[Daniel Simoes]

Por favor seja mais específico... se possível escreva passos para reproduzirmos o erro usando o demo do ACBrBoleto

[diego.camposrosa]

Por favor seja mais específico... se possível escreva passos para reproduzirmos o erro usando o demo do ACBrBoleto

Daniel,

É o seguinte, estou no momento migrando os boletos da Caixa do gbBoleto para o ACBRBoleto. No gbBoleto uso sem problema o NN = 8760001377 (informação que tenho é que tem que iniciar em 8), mas no ACBRBoleto ocorre o seguinte erro:

---------------------------

WinCondominios - Administração de Condomínios

---------------------------

LayoutBoleto: Erro durante a preparação do relatório

'8760001377' is not a valid integer value

---------------------------

OK   

---------------------------

Notei que a forma de montar o NN e a linha digitavel no gbBoleto e ACBRBoleto são bem diferentes. Como está a situação dos boletos do ACBRBoleto? Todos ja foram Homologados?

Espero que tenho ficado mais claro agora.

[Daniel Simoes]

Em qual linha do código, e de qual Unit ocorre o erro ? Qual banco / carteira, etc ??

Não há uma homologação do componente... cada conta de cliente em que vc solicitar a impressão do Boleto precisará solicitar a homologação novamente diretamente com o banco...

[diego.camposrosa]

Em qual linha do código ? e de e qual banco ??

Não há uma homologação do componente... cada conta de cliente em que vc solicitar a impressão do Boleto precisará solicitar a homologação novamente diretamente com o banco...

Segue onde ocorre o erro. O banco é Caixa Economica

function TACBrCaixaEconomica.FormataNossoNumero(const ACBrTitulo :TACBrTitulo): String;

var

  ANossoNumero, AConvenio : string;

begin

   with ACBrTitulo do

   begin

      AConvenio := ACBrBoleto.Cedente.Convenio;

      ANossoNumero := trim(inttostr(strtoint(NossoNumero)));


      if (ACBrTitulo.Carteira = 'RG') then         {carterira registrada}

          ANossoNumero := '14' + padR(ANossoNumero, 15, '0')

      else if (ACBrTitulo.Carteira = 'SR')then     {carteira 2 sem registro}

          ANossoNumero := '24'+padR(ANossoNumero, 15, '0')

      else

         raise Exception.Create( ACBrStr('Carteira Inválida.'+sLineBreak+'Utilize "RG" ou "SR"') ) ;

   end;


    Result := ANossoNumero;

end;

[diego.camposrosa]

Complementando o erro ocorre na linha

ANossoNumero := trim(inttostr(strtoint(NossoNumero)));

[Daniel Simoes]

Por favor tente mudar para:

ANossoNumero := OnlyNumber(NossoNumero);

[diego.camposrosa]

Por favor tente mudar para:

ANossoNumero := OnlyNumber(NossoNumero);

Daniel,

A sua dica funcionou muito bem. Obrigado!!

[aacircordeiro]

alguem sabe se vão disponibilizaro boleto da caixa economica pro acbrmonitor? baixei hoje a versão 0.9.3b-windows e ainda não tem.

[Juliana Tamizou]

Bom dia.

Será disponibilizado sim..existem alguma alterações que precisam ser disponibizadas ao svn, para que seja atualizado.

att.