Homologação Cresol (133), CNAB 240, falha ao atribuir Código do Juros de Mora

[Obispo]

Olá pessoal tudo bem?

Quando o título não tem valor de mora é atribuído para o 'CodigoMora' o valor '0', porém no método 'SetCodigoMora' quando é realizado a validação, a variável ACBrBoleto.Banco.CodigosMoraAceitos possui o valor '12' gerando o exception de que o código informado não é permitido. Então é possível atribuir apenas o valor '1' ou '2'.

No manual o valor esperado é 1 (real ao dia).

Para conseguir enviar tive que comentar a linha que atribui '0' para o 'CodigoMora', alguém teria outra solução?

 

[José M. S. Junior]

Experimente passar os código mora aceitos para esse banco, no constructor da classe. Se funcionar anexe os fontes aqui que atualizamos no SVN.

ex:

constructor TACBrBancoCresol.Create(AOwner: TACBrBanco);
begin
  inherited;
  fpNome                          := 'Cresol';
  fpNumero                        := 133; 
  fpCodigosMoraAceitos		:= '012'

 

[RobsonDL]

 

Boa tarde Jose, Tive o mesmo retorno. Tentei  da forma que tu passou mas não deu certo.

 

Em 28/04/2022 at 14:45, José M. S. Junior disse:

Experimente passar os código mora aceitos para esse banco, no constructor da classe. Se funcionar anexe os fontes aqui que atualizamos no SVN.

ex:

constructor TACBrBancoCresol.Create(AOwner: TACBrBanco);
begin
  inherited;
  fpNome                          := 'Cresol';
  fpNumero                        := 133; 
  fpCodigosMoraAceitos		:= '012'

 

 

[RobsonDL]

Boa tarde, 

Corrigindo deu certo, tinha esquecido de compilar os fontes novamente.

 

Em 29/04/2022 at 17:24, RobsonDL disse:

 

Boa tarde Jose, Tive o mesmo retorno. Tentei  da forma que tu passou mas não deu certo.

 

 

 

ACBrBancoCresol.pas

[José M. S. Junior]

Obrigado!

@RobsonDL Já está atualizado no SVN.