Cedente com CPF BB

[DouglasGV]

Olá pessoal!

Estou ajustando na minha aplicação a importação de retorno para o BB CNAB 240, com emitente pessoa física.

Neste parte de validação do ACBrBoleto, sempre cai no expection abaixo, visto que no ACBrBancoBrasil  ele pega: rCNPJCPF        := OnlyNumber((copy(ARetorno[0], 19, 14))); 14 caracteres e o CPF é 11, fiz essa alteração gostaria de saber se é válida.

Posição 18, TipoInscrição 1 CPF ou 2 CNPJ;

   if copy(ARetorno[0], 18, 1) = '1' then
      rCNPJCPF        := OnlyNumber((copy(ARetorno[0], 22, 11)))
   else
      rCNPJCPF        := OnlyNumber((copy(ARetorno[0], 19, 14)));

Onde cai se não tiver o tratamento acima, o CPF fica como ex: 00051544830068 e o Cedente.CNPJCPF = 51544830068 /// devido a formatação.

      if NaoEstaVazio(ACNPJCPF) then
        if (not LeCedenteRetorno) and (ACNPJCPF <> OnlyNumber(Cedente.CNPJCPF)) then
          raise Exception.CreateFmt(ACBrStr('CNPJ\CPF: %s do arquivo não corresponde aos dados do Cedente!'), [ACNPJCPF]); 

Desde já agradeço a atenção.

ACBrBancoBrasil.pas

Editado 9 Abril, 2019 por DouglasGV

[Juliana Tamizou]

Bom dia,

Obrigada pela contribuição, adicionada para análise.

Att.

[José M. S. Junior]

Suas sugestões foram disponibilizadas nos fontes do Projeto ACBr. 

Obrigado pela contribuição!