[Erro Ao Ler Arquivo De Retorno Sicoob Cnab 400 Cedente Pessoa Física]

*A unit que deu esse erro está atualizada e já fiz o checkout pro novo endereço

 

Na unit ACBrBancoob tem o seguinte código:

rCNPJCPF := trim( Copy(ARetorno[1],4,14)) ;

Isso da problema quando o cedente é pessoa física, pois ao entrar em ValidarCPF da unit ACBrValidador da o seguinte retorno: "CPF deve ter 11 dígitos. (Apenas números)"

 

Dentro de fsDocto obviamente sempre vai constar 14 dígitos, por isso esse retorno.

 

Aqui eu resolvi dessa forma:

   if ACBrBanco.ACBrBoleto.Cedente.TipoInscricao = pFisica then
     rCNPJCPF := trim( Copy(ARetorno[1],7,11))
   else
     rCNPJCPF := trim( Copy(ARetorno[1],4,14)) ;

Segue em anexo a unit corrigida, por favor se alguém puder atualizar isso no svn, ou passar uma solução mais correta.

 

ACBrBancoob.pas