Boa tarde,
Ao que me parece tem algo errado na function TACBrBancoBrasil.GerarRegistroTransacao240(ACBrTitulo : TACBrTitulo): String;
A linha 374 dessa unit ACBrBancoBrasil.pas está assim: ANossoNumero := StringOfChar('0', 20);
Num exemplo que estou fazendo os testes carteira 11/19, o nosso número do boleto é 0000000001 e convênio 9999999 (sete dígitos). Depois de formatado o campo ANossoNumero fica assim: 99999990000000001, ou seja, está correto.
Porém, ao gerar o segmento P, ANossoNumero recebe novamente a formatação pela função acima mencionada (StringOfChar..).
E aí, ANossoNumero fica igual 00000000000000000, ou seja, tudo zerado.
Esse erro acaba gerando dados errados nas posições 38 a 57 do segmento P do arquivo remessa, o que está causando rejeição do arquivo pelo banco.
Por favor, verifiquem se há mesmo algo errado e como corrigir.
Obrigado!