Ir para conteúdo
  • Cadastre-se

dev botao

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


dtybel
  • Este tópico foi criado há 3241 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

Douglas Tybel
______________________________

Analista de Sistemas

Engenharia Sistemas + Docencia Ensino Sup.
(027) 9937-9892

[email protected]

www.efetivavirtual.com.br

http://lattes.cnpq.br/3773737072791368

http://www.facebook.com/EfetivaServicosTecnologia

 

 

Link para o comentário
Compartilhar em outros sites

  • 7 meses depois ...

Juliana,

 

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

Douglas Tybel
______________________________

Analista de Sistemas

Engenharia Sistemas + Docencia Ensino Sup.
(027) 9937-9892

[email protected]

www.efetivavirtual.com.br

http://lattes.cnpq.br/3773737072791368

http://www.facebook.com/EfetivaServicosTecnologia

 

 

Link para o comentário
Compartilhar em outros sites

  • 1 ano depois...

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

Douglas Tybel
______________________________

Analista de Sistemas

Engenharia Sistemas + Docencia Ensino Sup.
(027) 9937-9892

[email protected]

www.efetivavirtual.com.br

http://lattes.cnpq.br/3773737072791368

http://www.facebook.com/EfetivaServicosTecnologia

 

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3241 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.