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

[everton.battini]

*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

[BYTE INFO]

Na unit ACBrBancoBrasil 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.

TAMBEM RESOLVI DESTA FORMA

   if ACbrBanco.AcbrBoleto.Cedente.TipoInscricao = pJuridica then
      rCNPJCPF := OnlyNumber( copy(ARetorno[0], 19, 14) )
   else
      rCNPJCPF := OnlyNumber( copy(ARetorno[0], 22, 11) );
 

Favor atualizar os fontes.

ACBrBancoBrasil.pas

Editado 10 Janeiro, 2017 por byteinfo

[Juliana Tamizou]

Bom dia.

Quando é pessoa física as posições não signicantes não vem zeradas? Exemplo: 00099999999999 ?

Att, 

[BYTE INFO]

Em 11/01/2017 at 10:43, Juliana Tamizou disse:

Bom dia.

Quando é pessoa física as posições não signicantes não vem zeradas? Exemplo: 00099999999999 ?

Att, 

Sim... mas ele dá a seguinte inconsistencia: que o cpf do cedente "99999999999"   é diferente do que consta no arquivo retorno "00099999999999"   isso ocorre apos   entrar em ValidarCPF da unit ACBrValidado

Editado 20 Janeiro, 2017 por byteinfo

[Juliana Tamizou]

Boa tarde.

Realmente a alteração era necessária, porém afim de evitar uma situação semelhante para outros bancos, a mesma foi feita ao setar o CNPJ.

Att.