Analise da unit ACBrBancoBancoob na procedure LerRetorno240

[Dfox]

Boa tarde a todos,

ao implementar a rotina de retorno do banco sicoob me deparei com o seguinte erro 

Agencia do arquivo 00032411 inválida, config 0000000324116

entao seguindo o layout do banco alterei a seguinte parte na linha 437

   rCedente := trim(Copy(ARetorno[0],73,30));
   rAgencia := trim(Copy(ARetorno[0],53,5));
   rConta   := trim(Copy(ARetorno[0],63,08));
   rDigitoConta := Copy(ARetorno[0],71,1);

 

para 

   rCedente := trim(Copy(ARetorno[0],73,30));
   rAgencia := trim(Copy(ARetorno[0],53,5));
   rConta   := trim(Copy(ARetorno[0],59,12));
   rDigitoConta := Copy(ARetorno[0],71,1);

ai deu certo!

seguindo o seguinte manual em anexo

aguem passou por isso, poderiam ver se esta certo?

Obrigado...

Layout Sistema de Terceiro.xls

[Dfox]

favor desconsiderar o tópico

vi que esse problema já tinha resolvido aqui 

https://www.projetoacbr.com.br/forum/topic/37608-sicoob-arquivo-remessa-cnab-240-atualizado-julho2017/

grato a todos.