Acbrbancoob - Erro Conta Pessoa Física Cnpj Inválido

[dtybel]

Juliana,
 
Enfrentei um caso novo nessa unit essa semana.
Tenho um cliente pessoa física. E para pessoa física usa o cpf no arquivo retorno. Por esse motivo emitia erro de CNPJ inválido.
 
Tive que realizar alteração no metodo:
 
procedure TACBrBancoob.LerRetorno400(ARetorno: TStringList);
 
 

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

   with ACBrBanco.ACBrBoleto do
   begin
      Cedente.Nome    := rCedente;

      case StrToIntDef(Copy(ARetorno[1],2,2),0) of
          1: begin
               Cedente.TipoInscricao:= pFisica;
               rCNPJCPF             := copy(rCNPJCPF,length(rCNPJCPF) - 10,length(rCNPJCPF));
             end;

         else
            Cedente.TipoInscricao:= pJuridica;
      end;
      Cedente.CNPJCPF := rCNPJCPF;

      ACBrBanco.ACBrBoleto.ListadeBoletos.Clear;
   end;

Exemplo de preenchimento:

     //Configurar banco
     ACBrBoleto1.Banco.Numero := DMEmpresa.ClientDataSet2NUM_BANCO.AsInteger;

      // DADOS DO BANCO 
      with ACBrBoleto1.Banco do
      begin
         Digito       := 0;//StrtoIntDef(0, 0);
         Nome         := DMEmpresa.ClientDataSet2NOME_CONTA.AsString;
         Numero       := DMEmpresa.ClientDataSet2NUM_BANCO.AsInteger;

         case DMEmpresa.ClientDataSet2NUM_BANCO.AsInteger of
            237           : TipoCobranca := cobBradesco;
            1             : TipoCobranca := cobBancoDoBrasil;
            341           : TipoCobranca := cobItau;
            748           : TipoCobranca := cobSicred;
            104           : TipoCobranca := cobCaixaEconomica;
            756           : TipoCobranca := cobBancoob;
            33,53,008     : TipoCobranca := cobSantander;
            21            : TipoCobranca := cobBanestes;
         else
            TipoCobranca := cobNenhum;
         end;
      end;


     with ACBrBoleto1.Cedente do
       begin
         Nome                 := DMEmpresa.ClientDataSet1EMPRESA.AsString;
         Agencia              := DMEmpresa.ClientDataSet2AGENC_BANCO.AsString;
         AgenciaDigito        := DMEmpresa.ClientDataSet2DIGITO_AGENC_BANCO.AsString;
         CodigoCedente        := DMEmpresa.ClientDataSet2COD_CEDENTE.AsString;
         Conta                := DMEmpresa.ClientDataSet2NUM_CONTA_BANCO.AsString;
         ContaDigito          := DMEmpresa.ClientDataSet2DIGITO_CONTA_BANCO.AsString;


         if ( isCPF(tiraMask(DMEmpresa.ClientDataSet1CNPJ.AsString)) ) then
           TipoInscricao        := pFisica

         else
          TipoInscricao        := pJuridica;

          CNPJCPF              := tiraMask(DMEmpresa.ClientDataSet1CNPJ.AsString);

         if ( Length(DMEmpresa.ClientDataSet2MODALIDADE.AsString) > 0) then
         Modalidade           := DMEmpresa.ClientDataSet2MODALIDADE.AsString;

         if ( Length(DMEmpresa.ClientDataSet2CONVENIO.AsString) > 0) then
         Convenio             := DMEmpresa.ClientDataSet2CONVENIO.AsString;

       end;

      ACBrBoleto1.DirArqRetorno  := ExtractFilePath(txtNomeArquivoRetorno.Text)  ;
      ACBrBoleto1.NomeArqRetorno := ExtractFileName(txtNomeArquivoRetorno.Text) ;

      ACBrBoleto1.LerRetorno;

 

ACBrBancoob-03-09-2013.rar

[dtybel]

Juliana,

 

Estou conferindo as atualizações que enviei, pois quero atualizar a pagina, será que quando puder, podia realizar esse commit no SVN ?

[dtybel]

Juliana,

 

Essa correção não foi enviada, ao atualizar o componente, me deparei com esse erro novamente.

Segue em anexo a classe para que você acerte a função "LerRetorno400" a partir da linha 410 até: 426.

 

ACBrBancoBancoob.zip