everton.battini
-
Total de ítens
1 -
Registro em
-
Última visita
everton.battini's Achievements
-
Erro Ao Ler Arquivo De Retorno Sicoob Cnab 400 Cedente Pessoa Física
um tópico no fórum postou everton.battini ACBrBoleto
*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