Remessa Bradesco com quantidade de caracteres por linha menor que 240

[Cleonir]

Boa tarde.

Na Remessa do Bradesco CNAB 240 esta ficando com quantidade de caracteres por linha menor que 240,

conferindo percebi que tem um trim no result da    function TACBrBancoClass.GerarRegistroHeader240 ( NumeroRemessa: Integer ) : String;

esta assim:  Result:= Trim(ListHeader.Text);

É muito provável que seja esse o problema.

mas tem mais locais que esta assim.

 

Fiz um teste aqui retirando esse trim do result do RegistroHeader e gerou com os 240 caracteres, mas ele adicionou uma quebra de linha a mais,

não sei qual seria a melhor forma de resolver isso.

[BigWings]

16 horas atrás, Cleonir disse:

esta assim:  Result:= Trim(ListHeader.Text);

É muito provável que seja esse o problema.

Provavelmente sim.

O Trim foi usado para remover a quebra de linha no final da string, mas ela remove também os espaços em branco no final.

Estou vendo aqui uma forma.

[Cristiano Caritá]

Eu recomendaria a função StringReplace com a opção [rfReplaceAll] para retirar o #10 e o #13 em vez de usar o Trim.

Por exemplo:
string_a_limpar:= StringReplace(StringReplace(string_a_limpar,#10,'',[rfReplaceAll]),#13,'',[rfReplaceAll])

Editado 19 Abril, 2020 por Cristiano Caritá
complementação da resposta

[Daniel Simoes]

Isso tiraria todas as quebras de linhas, e invalidaria o arquivo...

Em 17/04/2020 at 18:18, Cleonir disse:

Fiz um teste aqui retirando esse trim do result do RegistroHeader e gerou com os 240 caracteres, mas ele adicionou uma quebra de linha a mais,

não sei qual seria a melhor forma de resolver isso.

Como reproduzir o problema, usando o Demo do ACBr ?

Já verificou os testes unitários, em:

\ACBr\Testes\FPCUnit\ACBrBoleto

[Cleonir]

Bom dia.

Para testar no demo, no componente ACBrBoleto que esta no dmForte configurar da seguinte forma,

nas configurações do Banco o TipoCobrança selecionar cobBradesco,  e no LayoutRemessa selecionar c240.

só isso já irá reproduzir o problema quando gerar a remessa.

 

Referente aos testes unitários, não testei, não sei direito como funciona.

Vou ter que tirar um tempo para ver como funciona os testes unitários.

[BigWings]

35 minutos atrás, Cleonir disse:

nas configurações do Banco o TipoCobrança selecionar cobBradesco,  e no LayoutRemessa selecionar c240.

só isso já irá reproduzir o problema quando gerar a remessa.

Enviei correção para o repositório, rev. 19695.

Favor atualizar os fontes e fazer novos testes.

[Cleonir]

Agora esta ok.

Obrigado.

[BigWings]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.