Consulta Cpf

[sesistemas]

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 17 Novembro, 2014 por sesistemas

[Daniel Simoes]

O site do Governo mudou a maneira de fazer o Captcha...

 

Veja esse post:

[sesistemas]

Atualizei o ACBr e veio as alterações

 

A mensagem de erro mudou agora esta dando a seguinte mensagem "JPEG error #53"

 

Uso o Delphi XE3, pelos post vi que deu algo parecido do D7

[Daniel Simoes]

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:

[Weriton Teixeira Machado]

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 27 Fevereiro, 2016 por Weriton Teixeira Machado

[Juliomar Marchetti]

Anexe o arquivo para que possamos fazer merge

[Weriton Teixeira Machado]

Ok, segue em anexo.

Obrigado por responder Juliomar.

ACBrConsultaCPF.pas

[Juliomar Marchetti]

Obrigado !

Já disponível no svn!

 

[Weriton Teixeira Machado]

Obrigado.

[Weriton Teixeira Machado]

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

[Juliomar Marchetti]

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

[Weriton Teixeira Machado]

Ok, vou verificar aqui.