Consulta De Cpf (Receita Fazenda)

[EMBarbosa]

Que tipo de bloqueio pode ser? O estranho é que estava funcionando normalmente, e logo a consulta parou de funcionar e nem atualizar os fontes também não consigo. Não sei se tem alguma ligação.. 

É um problema na sua internet. Pode ser firewall, DNS, roteador, ou qualquer outra coisa... Muito difícil saber assim...

[Leao]

Faça teste em outro computador, outra rede.

[abramoski]

Já fiz em outros 3 computadores de rede diferente.. E continua dando erro.

O erro está na ACBrSocket na procedure TACBrHTTP.HTTPMethod(Method, AURL: String);

[Leao]

Em anexo fonte modificado do exemplo ACBr

U_Principal.rar

U_Principal.rar

[EMBarbosa]

Em anexo fonte modificado do exemplo ACBr

Qual o objetivo desse anexo? O que ele altera?

[Leao]

Somente para o Abramoski, comparar com o fonte dele, pois o mesmo estar funcionando normalmente

[abramoski]

Em anexo fonte modificado do exemplo ACBr

Bom dia, então eu comparei e continua dando erro. Não usei o PngImage porque o meu dava erro, mas utilizei a biblioteca GraphicEx citada neste tópico. O erro acontece nesta linha 

procedure TACBrConsultaCNPJ.Captcha(Stream: TStream);
begin
  try
    HTTPGet(GetCaptchaURL);

E logo no form ACBrSocket na linha (672) HTTPSend.ResultCode retorna 500 e não 302 como deveria.

Editado 15 Abril, 2015 por abramoski

[wanderok]

Bom dia, então eu comparei e continua dando erro. Não usei o PngImage porque o meu dava erro, mas utilizei a biblioteca GraphicEx citada neste tópico. O erro acontece nesta linha 

procedure TACBrConsultaCNPJ.Captcha(Stream: TStream);
begin
  try
    HTTPGet(GetCaptchaURL);

E logo no form ACBrSocket na linha (672) HTTPSend.ResultCode retorna 500 e não 302 como deveria.

Boa noite. Uso D6 e estou exatamente com este mesmo erro. Obrigado.

[Juliomar Marchetti]

http://en.wikipedia.org/wiki/List_of_HTTP_status_codes

[Anderson Aguilar]

Seguinte galera, sou novo no site, mas o negócio é meter a mão e tentar resolver sobre o PNGImage no Delphi 7 aí ai uma dica que talvez possa ajudar.

 

Baixem o anexo que estou postando, é uma pasta com todos os arquivos, coloquem aonde quiserem, em seguida abra o Delphi ( open / pngimage_D7 ), mande instalar a ferramenta, após instalado vá em Tools / Environment Options e adicione o path da pasta que foi descompactada, clique em add, OK pra fechar tudo e pronto, instalado e funcionando, pelo menos comigo ( hehehe ).

 

Boa sorte aí a todos, não posso entrar sempre, mas sempre que puder vou perder uns minutinhos aqui com vocês, abraço.

 

pngimage.zip

[Juliomar Marchetti]

Bom já existem diversas opções repassadas pelo nossos colegas então é só escolhar uma e mandar ver

[abramoski]

Seguinte galera, sou novo no site, mas o negócio é meter a mão e tentar resolver sobre o PNGImage no Delphi 7 aí ai uma dica que talvez possa ajudar.

 

Baixem o anexo que estou postando, é uma pasta com todos os arquivos, coloquem aonde quiserem, em seguida abra o Delphi ( open / pngimage_D7 ), mande instalar a ferramenta, após instalado vá em Tools / Environment Options e adicione o path da pasta que foi descompactada, clique em add, OK pra fechar tudo e pronto, instalado e funcionando, pelo menos comigo ( hehehe ).

 

Boa sorte aí a todos, não posso entrar sempre, mas sempre que puder vou perder uns minutinhos aqui com vocês, abraço.

Boa tarde, utilizando essa biblioteca como que fica a procedure LabAtualizarCaptchaClick que busca a imagem jpg? Porque eu utilizo a biblioteca GraphicEx que recomendaram em posts anteriores.

[chico_ponce]

Bom Dia !!!

 

 Hoje fui realizar a consulta de CPF e a função de retorno esta sendo sempre que a Imagem digitada esta incorreta, vendo no site da Receita percebi que estão pedindo agora a DATA DE NASCIMENTO junto ao CPF, provavelmente deve ser essa nova alteração que esta bloqueando a consulta. Alguem esta enfrentando este problema ou tem a solução ?

 

Obrigado a todos.

[ronang]

Estou com o mesmo problema. 

[alexandreac]

consegui arrumar. Junto com o programador web, descobrimos que mudaram algumas variaveis

agora estamos enviando assim:

    Post.WriteString('tempTxtCPF='+CPF+'&');

    Post.WriteString('tempTxtNascimento='+data_nascimento+'&');

    Post.WriteString('temptxtToken_captcha_serpro_gov_br='+FTokenCaptcha+'&');

    Post.WriteString('txtTexto_captcha_serpro_gov_br='+Trim(ACaptcha)+'&');

    Post.WriteString('temptxtTexto_captcha_serpro_gov_br='+Trim(ACaptcha)+'&');

    Post.WriteString('Enviar=Consultar');

 

Foi adicionado o campo de data de nascimento e mudou o nome das variaveis que recebem no java script.

 

Att,

Alexandre Arruda Costa

[EMBarbosa]

Se tiver modificado algum arquivo do ACBr, por favor, anexe os arquivos modificados.

[newsige]

Resolvido como o Alexandreac informou. A function ficou assim:

 

function TACBrConsultaCPF.Consulta(const ACPF, DataNasc,  ACaptcha: String;
  ARemoverEspacosDuplos: Boolean): Boolean;
var
  Post: TStringStream;
  Erro: String;
  Resposta : TStringList;
begin
  Erro := ACBrValidadorValidarCPF( ACPF ) ;
  if Erro <> '' then
     raise EACBrConsultaCPFException.Create(Erro);

  //txtCPF=11122334410&txtToken_captcha_serpro_gov_br=299218104152138191166941752496584741018616278361624164&txtTexto_captcha_serpro_gov_br=ZCI8B9&Enviar=Consultar
  Post:= TStringStream.Create('');
  try

 

   //acredito que irão mudar esse tempTxtCPF, tempTxtNascimento, temptxtToken e temptxtTexto_captcha_serpro_gov_br para como era anteriormente
    Post.WriteString('tempTxtCPF='+ACPF+'&');
    Post.WriteString('tempTxtNascimento='+datanasc+'&');
    Post.WriteString('temptxtToken_captcha_serpro_gov_br='+FTokenCaptcha+'&');
    Post.WriteString('txtTexto_captcha_serpro_gov_br='+Trim(ACaptcha)+'&');
    Post.WriteString('temptxtTexto_captcha_serpro_gov_br='+Trim(ACaptcha)+'&');
    Post.WriteString('Enviar=Consultar');

    Post.Position:= 0;

    HttpSend.Clear;
    HttpSend.Document.Position:= 0;
    HttpSend.Document.CopyFrom(Post, Post.Size);
    HTTPSend.MimeType := 'application/x-www-form-urlencoded';
    HTTPPost('http://www.receita.fazenda.gov.br/aplicacoes/atcta/cpf/ConsultaPublicaExibir.asp');

    Erro := VerificarErros(RespHTTP.Text);

    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:');
        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:');

      finally
        Resposta.Free;
      end ;

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

      if ARemoverEspacosDuplos then
      begin
        FNome := RemoverEspacosDuplos(FNome);
      end;
    end
    else
    begin
      Result:= False;
      raise EACBrConsultaCPFException.Create(Erro);
    end;
  finally
    Post.Free;
  end;
end;

 

 

Estou encaminhando o arquivo em anexo.

ACBrConsultaCPF.pas

[Rodrigo Custódio]

Estava tendo problemas, e foi resolvido atualizando essa Unit.

Muito obrigado pela correção!

[Juliomar Marchetti]

Já disponível no svn

[FocusRJ]

Atualizei a Unit pelo Update do ACBR mas essa modificação ainda não consta lá... tentei alterar manualmente e não funcionou... coloquei o endereço completo vinculado a HTTPPost e mesmo assim não funcionou... Tentei passar a data de nascimento com e sem barras nos formatos : dd/mm/yyyy e ddmmyyyy e nada.

 

Voltei o componente como está originalmente.

 

Alguém tem alguma posição de testes e alterações do original?

 

PS. Após digitar aqui vi o Post do Juliomar, obrigado!

 

Deixei minha dúvida para aqueles que tiverem semelhante... funcionou passando a data no formato: dd/mm/yyyy.

 

 

Att.

Rômulo Mayworm

Editado 3 Junho, 2015 por FocusRJ

[Leao]

Olá Juliomar, baixei pelo svn ás 16:15:00 e não consta atualização, se possivel der uma olhada.

revision:9161

 

Obrigado,

Leão

[Juliomar Marchetti]

Boa tarde

está sim lá a alteração 

tanto no trunk quanto no trunk2

[Leao]

Olá Juliomar, desculpe minha insistência, atualizei novamente revision:9166, estou testando o exemplo cpf ao compilar (delphi7, windows set 32)

seguinte mensagens:

 

[Error] uPrincipal.pas(54): Not enough actual parameters
[Fatal Error] ConsultaCPF.dpr(5): Could not compile used unit 'uPrincipal.pas'
 

compactei a pasta em anexo do exemplo

D:\Acbr\Exemplos\ACBrConsultaCPF\Delphi

 

Obrigado,

Leão

Delphi.rar

[Juliomar Marchetti]

Sim agora entendi mas o componente está funcionando é o exemplo que está faltando!

mas fica claro o componente já está atualizado e funcionando somente o exemplo em delphi que não foi atualizado

[Rodrigo Custódio]

Ai está o exemplo em Delphi

Delphi.rar