Erro ao ler retorno SICOB

[Dercide Alvarez]

Boa tarde,

A leitura de retorno do SICOB estava funcionando perfeitamente até esses dias, e começou a dar erro na conta :

Erro: Conta do arquivo 00099999 inválida, config 000000999999

Notei que na ACBrBancoBancoob.pas na rotina LerRetorno240 ele esta lendo apenas 8 posições para a conta :

   rConta   := trim(Copy(ARetorno[0],63,8));

E na ACBrBoleto.Pas na rotina SetConta, ele usa o ACBrBoleto.Banco.TamanhoConta com 12 posições para formatar a conta, ocasionando o erro.

Por esse motivo alterei a leitura do retorno para ler as 12 posições da conta (conforme consta no manual), e não deu mais erro.

   rConta   := trim(Copy(ARetorno[0],59,12));

Segue o fonte para analise.

Dercide.

 

 

ACBrBancoBancoob.pas

Editado 24 Outubro, 2017 por Dercide Alvarez