Conta Bancária incorreta no Retorno Sicoob (Bancoob) 240

[RobertoSchuster]

Bom dia, 

Ao atualiza o ACBr passou a ocorrer um problema ao ler o arquivo de retorno do banco Sicoob 240, pois não está identificando a conta bancária se a mesma possuir mais que 7 dígitos.

Verifiquei e isso se deve à linha 504 do arquivo ACBrBancoBancoob.pas, conforme abaixo:

Cedente.Conta := PadLeft(IntToStr(StrToIntDef(Cedente.Conta,0)), 7, '0');

Aqui está sendo truncando o número da conta em 7 dígitos e no meu caso a conta possui 8 (sem o dígito verificado).
Antes esta linha não estava causando problemas pois ela estava mais no início do código.

Portanto, no meu caso apenas alterei de 7 para 10 no PadLeft (acima de 10 ocorre exception).

Cedente.Conta := PadLeft(IntToStr(StrToIntDef(Cedente.Conta,0)), 10, '0');

Na verdade não sei se essa linha é realmente necessária, pois pelo que entendi o objetivo dela seria apenas remover os zeros á esquerda.

Fonte em anexo.

ACBrBancoBancoob.zip

[José M. S. Junior]

Boa tarde, favor testar com o ajuste disponibilizado no SVN...

[Antonio Gomes]

12 horas atrás, RobertoSFilho disse:

Bom dia, 

Ao atualiza o ACBr passou a ocorrer um problema ao ler o arquivo de retorno do banco Sicoob 240, pois não está identificando a conta bancária se a mesma possuir mais que 7 dígitos.

Verifiquei e isso se deve à linha 504 do arquivo ACBrBancoBancoob.pas, conforme abaixo:

Cedente.Conta := PadLeft(IntToStr(StrToIntDef(Cedente.Conta,0)), 7, '0');

Aqui está sendo truncando o número da conta em 7 dígitos e no meu caso a conta possui 8 (sem o dígito verificado).
Antes esta linha não estava causando problemas pois ela estava mais no início do código.

Portanto, no meu caso apenas alterei de 7 para 10 no PadLeft (acima de 10 ocorre exception).

Cedente.Conta := PadLeft(IntToStr(StrToIntDef(Cedente.Conta,0)), 10, '0');

Na verdade não sei se essa linha é realmente necessária, pois pelo que entendi o objetivo dela seria apenas remover os zeros á esquerda.

Fonte em anexo.

ACBrBancoBancoob.zip

O ideal seria aplicar um remove zeros antes né... ao inves desse corte com tamanho fixo. A conta nesse retorno, vem com 12 na posição 59 a 70

[José M. S. Junior]

Bom dia, foi utilizado uma função específica nessa correção, favor realizar os testes.