Extração incorreta de agência e conta no retorno CNAB 400 do banco 274 MoneyPlus gera erro na validação

[Daniel Sonda]

A leitura de um arquivo de retorno CNAB 400 do banco 274 MoneyPlus, atualmente está sendo feita pela classe base TACBrBancoClass, onde a agência e conta são extraídos pelas linhas abaixo:

  // A leitura deverá ser feita a partir da posição 26 devido ao fato de não existirem agências bancárias com mais de 4 (quatro) algarismos.
  rAgencia := trim(Copy(ARetorno[1], 26, ACBrBanco.TamanhoAgencia));
  rConta   := trim(Copy(ARetorno[1], 30, DefineTamanhoContaRemessa));

Entretanto, no manual do banco (página 11), relativo ao layout da remessa, a composição do campo que identifica a empresa beneficiária, que também se aplica ao campo correspondente no retorno, segue o seguinte formato:

Sendo assim, eu implementei o método LerRetorno400 na classe TACBrBancoBradescoMoneyPlus, copiando o código fonte da classe base e alterando apenas as linhas abaixo, para extrair a agência e a conta corretamente, segundo o layout descrito no manual.

  // A leitura deverá ser feita a partir da posição 24 devido ao fato de não existirem agências bancárias com mais de 4 (quatro) algarismos.
  rAgencia := trim(Copy(ARetorno[1], 24, ACBrBanco.TamanhoAgencia));
  rConta   := trim(Copy(ARetorno[1], 28, DefineTamanhoContaRemessa));

Em anexo estão o manual do banco e a unit alterada.

Manual CNAB 400 - Banco 274.pdf ACBrBancoBradescoMoneyPlus.pas

[Alexandre de Paula]

Bom dia,

Criada a TK-7463 para avaliação.

Obrigado pela contribuição

[Daniel InfoCotidiano]

bom dia @Daniel Sonda
Estou implementando para deixar documentado e testes, pode por favor nos enviar um arquivo de retorno
[email protected]
NO corpo da mensagem, por favor cole o link deste tópico

[Daniel InfoCotidiano]

Pode testar com estas 2 units por favor:

ACBrBoleto.pas

ACBrBancoBradescoMoneyPlus.pas

Salve nesta pasta por favor ..\ACBr\Fontes\ACBrBoleto e rode o instalador.

Aguardo uma resposta.

[Daniel InfoCotidiano]

Em 05/08/2025 at 11:21, Daniel Sonda disse:

Sendo assim, eu implementei o método LerRetorno400 na classe TACBrBancoBradescoMoneyPlus, copiando o código fonte da classe base e alterando apenas as linhas abaixo, para extrair a agência e a conta corretamente, segundo o layout descrito no manual.

Boa tarde 
Para nao ter que copiar o fonte da classe para implementar nesta unit, criei metodos para definir as posições dos campos, e na unit do moneyplus, apenas usarmos a sobrescrita
 

[Daniel InfoCotidiano]

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo

[Daniel InfoCotidiano]

Tópico fechado por falta de retorno do usuário