Atualização Da Unit Banestes

[francisco.itb]

Srs, a unit do banestes tem erro na rotina GerarRegistroTransacao400 e na GerarRegistroHeader400.

 

Na rotina GerarRegistroHeader400 tem que ser informado o numero da conta + digito_verificador_daconta

 

antes estava assim: 

               padR(OnlyNumber(Conta), 11, '0')+ // Codigo da Empresa no Banco

o correto e 

               padR(OnlyNumber(Copy(Trim(Conta),2,10)+trim(ContaDigito)), 11, '0')+ // Codigo da Empresa no Banco

 

em GerarRegistroTransacao400 e a mesma coisa

antes estava assim: 

               padR(OnlyNumber(Conta), 11, '0')+ // Codigo da Empresa no Banco

o correto e 

               padR(OnlyNumber(Copy(Trim(Conta),2,10)+trim(ContaDigito)), 11, '0')+ // Codigo da Empresa no Banco

 

 

Por favor atualizem no svn, porque todas as vezes que atualizo o acbr, da problema nessa unit.

 

Agradecido,

 

Francisco A Souza

ACBrBanestes.pas

[Juliomar Marchetti]

Bom dia

Correção disponibilizada!

favor se encontrar erros nesse banco reportar aqui neste tópico

 

 

obrigado pela contribuição

[francisco.itb]

Mais um erro na unit GerarRegistroHeader400 , onde informa o cpf/cnpj do avalista esta 2 vezes,

                  padR('0',14,'0')                                        +  // sacador avalista. não pode ser o proprio sacado

                  padR(OnlyNumber(Sacado.SacadoAvalista.CNPJCPF),14,'0')  +  // sacador avalista. não pode ser o proprio sacado

Alterado para

                  //padR('0',14,'0')                                        +  // sacador avalista. não pode ser o proprio sacado

                  padR(OnlyNumber(Sacado.SacadoAvalista.CNPJCPF),14,'0')  +  // sacador avalista. não pode ser o proprio sacado

 

[francisco.itb]

eu nao consegui anexar a unit aqui, por favor alterem e atualize o svn.

[Juliana Tamizou]

Bom dia.

 

Alteração disponível no svn

 

Att.

[Eduardo Silva Dos Santos]

Boa noite pessoal, tudo bem?

 

Recentemente atualizei todo o ACBr por conta da Nfe 3.0, depois dessa atualização é gerada uma exception na hora de visualizar o boleto do Banco Banestes,

o problema está na function TACBrBanestes.CalcularCampoASBACE ...

 

Antes era:

  { Banestes não usa digitos verificadores para agência e conta }   
  cLivreAsbace := copy(ACBrTitulo.NossoNumero,2,8)+
                  padR(trim(ACBrTitulo.ACBrBoleto.Cedente.Conta)+
                       trim(ACBrTitulo.ACBrBoleto.Cedente.ContaDigito),11,'0')+
                  '4'+
                  IntToStrZero(fpNumero,3);
  cIndice      := '21212121212121212121212';
  nResult      := 0;

Na versão nova ficou:

  { Banestes não usa digitos verificadores para agência e conta }
  cLivreAsbace := copy(ACBrTitulo.NossoNumero,2,8)+
                  copy(trim(ACBrTitulo.ACBrBoleto.Cedente.Conta), 2, 10)+
                            ACBrtitulo.ACBrBoleto.Cedente.ContaDigito+
                  '4'+
                  IntToStrZero(fpNumero,3);
  cIndice      := '21212121212121212121212';
  nResult      := 0;

O problema é que na versão nova, cLivreAsbace recebe uma string com 22 caracteres, e logo em seguida tem um for que começa da posição 23.

 

A remoção do padR gerou o problema.

 

Uma dúvida, no comentário diz que banestes não usa o dígito verificador, entretanto no código tem o dígito concatenado com a conta.

[Juliana Tamizou]

Boa noite.

 

Seria possível disponibilizar o manual do banco?

 

Att.

[Eduardo Silva Dos Santos]

Pessoal, a unit do Banestes está com problema, liberei um atualização do sistema com a unit nova e os boletos que foram pagos o valor não foi creditado no cliente.

 

Alguém tem o manual do banestes ?

 

A mudança na rotina CalcularCampoASBACE  alterou a forma como o código de barra é gerado.....

[Juliana Tamizou]

Boa tarde.

 

Você checou junto ao banco se realmente trata-se de um problema nos dados do boleto? 

 

Att.

[Eduardo Silva Dos Santos]

O cliente está verificando, mais provavelmente sim, pois em anos isso nunca aconteceu.

[Eduardo Silva Dos Santos]

Vou gerar um boleto aqui com a versão antiga da unit e com essa nova e ver a diferença no valor do código de barras.