ERRO - Retorno CNAB 400 Unicred

[Dercide Alvarez]

Bom dia,

No dia 03 de março pegando gancho em um post meu, o @robertovilela, relatou o problema no retorno da descrição das rejeições do UNICRED.

ACBrBoleto2.ListadeBoletos.Objects[1].DescricaoMotivoRejeicaoComando.text ==> Retornando vazio

Fiz um ajuste para resolver e postei o fonte, mas não foi analisado, então estou abrindo um tópico novo para esse problema.

Esse problema do UNICRED é porque o código é lido com 8 caracteres, com isso ficam caracteres em branco no final.

Quando é comparado na function TACBrBancoUnicredES.CodComplementoMovimento(

    if StrToInt(ACodMotivo) > 0 then ==> Aqui ocorre a exceção
 

Inclui um TRIM na leitura, e o problema foi resolvido.

 

 

ACBrBancoUnicredES.pas

[Diego Foliene]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn #TK-3835

[Daniel InfoCotidiano]

Primeiramente agradecemos a colaboração, foi feito o tratamento correto dos retornos nas posições 319/8. (que pode ser até 04 retornos) o trim() só resolveria o primeiro, mas se tiv. mais que um retorno, ele não ia tratar tbm.
Atualize os repositórios , rode o instalador e teste por favor.
Abr
 

[Dercide Alvarez]

@Daniel InfoCotidiano

Beleza, fiz apenas um ajuste paleativo para poder funcionar, visto que a rotina existente tratava apenas um retorno.

Mas vc esta lendo apena 2 digitos por vez, e na relação de códigos temos até 3 digitos : ( 110, E25)

Editado 24 Abril, 2023 por Dercide Alvarez

[Daniel InfoCotidiano]

Agora, Dercide Alvarez disse:

@Daniel InfoCotidiano

Beleza, fiz apenas um ajuste paleativo para poder funcionar, visto que a rotina existente tratava apenas um retorno.

Não tem problema, com isso já identificamos os outros tratamentos e já deixei pronto !
Obrigado !