Ir para conteúdo
  • Cadastre-se

dev botao

Consulta Cpf


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

Recommended Posts

  • Membros Pro

Bom dia,

 

Meu sistema usa a consulta CPF do ACBr. A consulta começou a dar um erro semana passada.

 

Teve alguma mudança no ConsultaCPF?

 

Erro na hora de fazer o download da imagem do captcha
Erro HTTP: 500

 

Em anexo a imagem.

Editado por sesistemas
Link para o comentário
Compartilhar em outros sites

  • Fundadores

Por favor leia o post todo... repare que o Captcha mudou de JPG para PNG...

 

Os Demos já foram corrigidos, e podem servir de exemplo...

 

Você também verá um exemplo de como converter sua rotina de JPG para PNG em:

  • Curtir 1
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • 1 ano depois...

Bom dia,

Não sei se aqui seria o melhor lugar para colocar isso, mas não quis abrir uma nova discussão sobre o assunto.

por isso procurei uma que já estive em aberto.

O retorno de erro do Consulta CPF está muito genérico e as vezes causa confusão.

Um erro muito comum é a digitação errada da data de nascimento e o site da receita retorna esse erro

porém no acbr ele apenas retorna que não foi possível buscar os dados.

eu modifiquei aqui na nossa empresa pra ele retornar que a data foi digitada errada,

caso queiram replicar para o fonte oficial ou melhorar o que eu fiz acredito que seria um bom acréscimo

para o componente.

if Erro = '' then
    begin
      Result:= True;
      Resposta := TStringList.Create;
      try
        Resposta.Text := StripHTML(RespHTTP.Text);
        RemoveEmptyLines( Resposta );

        //DEBUG:
        //Resposta.SaveToFile('C:\temp\cpf.txt');

        FCPF      := LerCampo(Resposta,'No do CPF:');
        FNome     := LerCampo(Resposta,'Nome da Pessoa Física:');
        FDataNascimento := LerCampo(Resposta,'Data de Nascimento:');
        FSituacao := LerCampo(Resposta,'Situação Cadastral:');
        FEmissao  := LerCampo(Resposta,'Comprovante emitido às:');
        FCodCtrlControle   := LerCampo(Resposta,'Código de controle do comprovante:');
        FDigitoVerificador := LerCampo(Resposta,'Digito Verificador:');
	//coloquei aqui pra capturar se o erro é de data caso o nome esteja vazio
        if Trim(FNome) = '' then
        begin
          Erro     := LerCampo(Resposta,'Data de nascimento informada');
          if Trim(Erro) <> '' then
            Erro := 'Erro de data';
        end;
	//fim da adição de código
      finally
        Resposta.Free;
      end ;

	//caso tenha capturado o erro de data ele da raise		
      if Trim(Erro) = 'Erro de data' then
            raise EACBrConsultaCPFException.Create('Data de nascimento divergente da base da Receita Federal.');
	// fim da adição de código

      if Trim(FNome) = '' then
        raise EACBrConsultaCPFException.Create('Não foi possível obter os dados.');

 

Editado por Weriton Teixeira Machado
  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • 8 meses depois ...
Em 27/02/2016 at 16:48, Juliomar Marchetti disse:

Obrigado !

Já disponível no svn!

 

Boa tarde @Juliomar Marchetti

procurei no código do componente e esta modificação não consta lá.

Gostaria de saber se ela vai ser implementada, pois caso não seja

implementarei aqui por minha conta pois alguns clientes continuam

tendo dificuldade com esta parte de digitar a data errada e não perceber.

 

Desde já agradeço a atenção

Link para o comentário
Compartilhar em outros sites

  • Moderadores
1 hora atrás, Weriton Teixeira Machado disse:

Boa tarde @Juliomar Marchetti

procurei no código do componente e esta modificação não consta lá.

Gostaria de saber se ela vai ser implementada, pois caso não seja

implementarei aqui por minha conta pois alguns clientes continuam

tendo dificuldade com esta parte de digitar a data errada e não perceber.

 

Desde já agradeço a atenção

Boa tarde

acho que está enganado pois se pegar o endereço vai ver que não está acessível e somente o endereço que está no svn!

pegue o winmerge e compare os códigos

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • 1 mês depois ...
  • Este tópico foi criado há 2655 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.