Correção da Função TACBrTXTClass.LFill

[pcbonetti]

Amigos,

Ao gerar o EFD ICMS/IPI (Sped Fiscal) a propriedade TrimString não estava cortando os espaços no início dos campos. Verifiquei que a função Trim do Delphi estava sendo chamada após a inclusão do delimitador e fiz a inversão como mostro abaixo. Estou anexando a unit corrigida para as devidas verificações.

ACBrTXTClass.pas

[BigWings]

Em que campo do layout percebeu isso?

Me parece contraditório que o método preencha os caracteres à esquerda e depois remova...

[pcbonetti]

Aconteceu no registro 0150 nos campos de Nome e endereço. Na verdade foi erro do meu cliente que ao digitar o cadastro colocou espaços no primeiro caracter. Erro de digitação mesmo.

Porém como vi que o componente tem o recurso de dar um TRIM achei que deveria ser feito assim, afinal não existe nenhum campo dos SPEDs que aceitam espaços no início do campo.

 

[BigWings]

O método TACBrTXTClass.LFill é genérico, não se deve levar apenas o Sped Fiscal em consideração, e essa alteração pode causar efeito colateral em algum lugar. Rodando os testes unitários não detectou nenhum problema, mas nunca se sabe.

Acho que o mais correto é mover o Trim acima do IF que preenche os caracteres à esquerda, assim mantém-se a finalidade do método, que é preencher os caracteres à esquerda e corrige possíveis erros de input.

[pcbonetti]

22 horas atrás, BigWings disse:

O método TACBrTXTClass.LFill é genérico, não se deve levar apenas o Sped Fiscal em consideração, e essa alteração pode causar efeito colateral em algum lugar. Rodando os testes unitários não detectou nenhum problema, mas nunca se sabe.

Acho que o mais correto é mover o Trim acima do IF que preenche os caracteres à esquerda, assim mantém-se a finalidade do método, que é preencher os caracteres à esquerda e corrige possíveis erros de input.

De fato você está certo. Eu não havia prestado atenção no IF acima. Fiz a modificação e estou anexando a unit.

ACBrTXTClass.pas

[BigWings]

Em 23/07/2020 at 09:02, pcbonetti disse:

De fato você está certo. Eu não havia prestado atenção no IF acima. Fiz a modificação e estou anexando a unit.

ACBrTXTClass.pas 13 kB · 1 download

Enviado para o repositório, rev. 20342.

Obrigado pela contribuição.