[ Correção ] - ACBrConsultaCNPJ "Consulta CNPJ"

Wanderley Trevisan · 7 Novembro, 2017

Está instável.....

Renato Gil · 7 Novembro, 2017

Em 01/11/2017 at 08:53, dimåsf disse:

Bom dia pessoal, pelo que entendi do captcha do google... espero que com essas informações seja possível melhorar a ferramenta de consulta.

Depois q vc clica ele envia a informação e depois retorna essa consulta via ajax de acordo com a imagem abaixo:

E armazena em um input g-recaptcha-response no html para postar junto com a solicitação do cnpj conforme imagem abaixo:

Boa tarde Dimas,

Realmente o google faz isso, consegui um "quebrador" de captcha que funciona www.2captcha.com (bom preço e quebra o recaptcha). Porém estou implementando a rotina na unit do TACBrConsultaCNPJ.Consulta e não estou tendo sucesso. Segue abaixo código:

Post.WriteString('cnpj='+OnlyNumber(ACNPJ)+'&');
Post.WriteString('g-recaptcha-response='+Trim( cCaptcha )+'&');
Post.WriteString('origem=comprovante&');
Post.WriteString('search_type=cnpj');
Post.WriteString('submit1=Consultar&');
Post.Position:= 0;

HttpSend.Clear;
HttpSend.Document.Position:= 0;
HttpSend.Document.CopyFrom(Post, Post.Size);
HTTPSend.MimeType := 'application/x-www-form-urlencoded';
HTTPPost('https://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/valida_recaptcha.asp');

Em RespHTTP.Text o seguinte:

<html>

<head>

<form id="theForm" action="valida_recaptcha.asp" method="post" name="frmConsulta">

   <table border="0" cellspacing="0" cellpadding="0" width="100%">
       <tr>
           <td>
               <font color="#000080" face="Arial">
               <b>Emissão de Comprovante de Inscrição e de Situação Cadastral</b></font>
           </td>
       </tr>
   </table>

   <hr size="1">

   <p><font face="Arial" size="2">
   <b>Contribuinte,</b></p>
   <p>Esta página tem como objetivo permitir a emissão do Comprovante de Inscrição e de Situação Cadastral
   de Pessoa Jurídica pela Internet em consonância com a



   <a target="_blank" href="http://normas.receita.fazenda.gov.br/sijut2consulta/link.action?idAto=73658">
   <font face="Arial" size="2">
   Instrução Normativa RFB nº 1.634, de 06 de maio de 2016.</a>


   <p align="left">
   <font size="2" face="arial">

   Digite o número de CNPJ da empresa e clique em "Consultar".

   <input type="button"
   name="captchaSonoro"
       id="captchaSonoro"
       onClick="javascript:window.location.replace('Cnpjreva_solicitacao3.asp');"
       value="Captcha Sonoro"/>

   </font>
   </p>

</td>

   </tr>


   <tr>
       <td>
           <div class="g-recaptcha" data-sitekey="6LcT2zQUAAAAABRp8qIQR2R0Y2LWYTafR0A8WFbr"></div>
       </td>
   </tr>

   <tr>
       <td valign="top" colspan="2">

       </td>

</tr>

   <tr>
       <td align="center" colspan="2">
   <p><br>

   <input type="submit" value="Consultar" id=submit1 name=submit1>

       
   <input type="hidden" name="search_type" value="cnpj">
       <input type="reset" name="opcao" value="Limpar">

   </p>
   </td>
   </tr>



   </table>

</form>

<div id="container"></div>
</body>
</html>

Pessoal, qq sugestão é bem vinda para solução deste problema que é comum.

dimåsf · 7 Novembro, 2017

Eu acredito que talvez será necessário usar o TWebbrowser, pois logo após a chamada com a informação do recapcha o fluxo é redirecionado para Cnpjreva_Comprovante.asp onde estão todas as informações.

Usando apenas o http do indy eu acredito que teria de ser todos esse trabalho manual não é?

Não conheço bem esses compontes, o maximo q já fiz com eles foi um post simples para um pagina local, perdoem se estiver falando bobeira.

jaidomini · 7 Novembro, 2017

21 minutos atrás, dimåsf disse:

Eu acredito que talvez será necessário usar o TWebbrowser, pois logo após a chamada com a informação do recapcha o fluxo é redirecionado para Cnpjreva_Comprovante.asp onde estão todas as informações.

Usando apenas o http do indy eu acredito que teria de ser todos esse trabalho manual não é?

Não conheço bem esses compontes, o maximo q já fiz com eles foi um post simples para um pagina local, perdoem se estiver falando bobeira.

Eu fiz semana passa isso que você sugeriu, deu tudo certo, mas o problema foi o reCaptcha pedindo intermináveis verificações de placas e carros após clicar em Não sou robô.

Eu até consegui resolver os problemas de script do TWebbrowser, rodando em compatibilidade do IE instalado, mas este reCaptcha parece que sabe que o browser está rodando dentro de um sistema, então ele pensa que é algum bot....

EMBarbosa · 7 Novembro, 2017

Por favor, não façam um post simplesmente pra dizer que está ou não funcionando.

Está instável e já sabemos disso.

carlosinfoteen · 7 Novembro, 2017

50 minutos atrás, jaidomini disse:

Eu fiz semana passa isso que você sugeriu, deu tudo certo, mas o problema foi o reCaptcha pedindo intermináveis verificações de placas e carros após clicar em Não sou robô.

Eu até consegui resolver os problemas de script do TWebbrowser, rodando em compatibilidade do IE instalado, mas este reCaptcha parece que sabe que o browser está rodando dentro de um sistema, então ele pensa que é algum bot....

Mas em paginas we mesmo, ja vi o casos deste recaptha pedir inumeras vezes, mas depois ele nao pede mais.

Renato Gil · 8 Novembro, 2017

Bom dia a todos. Consegui uma solução para a consulta do cnpj. Segue abaixo código. Seria interessante, se possível e viável, integrá-la nos padrões do ACBR e até distribuí-la nesse formato.

na unit ACBrConsultaCNPJ foram feitas as seguintes modificações :

function TACBrConsultaCNPJ.Consulta(const ACNPJ, ACaptcha: String;
ARemoverEspacosDuplos: Boolean): Boolean;
var
Post: TStringStream;
Erro: String;
Resposta : TStringList;
StrAux: String;
sMun:String;
CountCid:Integer;
cCaptcha : String;
begin
Result := False;
Erro := ValidarCNPJ( ACNPJ ) ;
if Erro <> '' then
raise EACBrConsultaCNPJException.Create(Erro);

Clear;
Post:= TStringStream.Create('');
try
try
HTTPGet('https://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/cnpjreva_solicitacao2.asp');
except
on e : exception do
raise EACBrConsultaCNPJException.Create('Erro ao conectar no site da receita.'+#13#10+E.Message);
end;
cCaptcha := QuebraCaptcha;
if ( cCaptcha ) = '' then raise EACBrConsultaCNPJException.Create('Erro na quebra do captcha');
Post.WriteString('cnpj='+OnlyNumber(ACNPJ)+'&');
Post.WriteString('g-recaptcha-response='+ cCaptcha +'&');
Post.WriteString('origem=comprovante&');
Post.WriteString('search_type=cnpj&');
Post.WriteString('submit1=Consultar');
Post.Position:= 0;
HttpSend.Clear;
HttpSend.Document.Position:= 0;
HttpSend.Document.CopyFrom(Post, Post.Size);
HTTPSend.MimeType := 'application/x-www-form-urlencoded';
HTTPPost('https://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/valida_recaptcha.asp');
Erro := VerificarErros(RespHTTP.Text);

--------------------

function TACBrConsultaCNPJ.QuebraCaptcha:String;
var
sl :TStrings;
IdHTTP : TIdHTTP;
cID: string;
nConta: Integer;
begin
sl := TStringList.Create;
IdHTTP := TIdHTTP.Create;
try
sl.Text := 'body='+( sl.Text );
sl.Insert( 0, 'method=userrecaptcha');
sl.Insert( 0, 'key='+FKey2Captcha); // nova propriedade criada no componente ACBrConsultaCNPJ do tipo string
sl.Insert( 0, 'googlekey=6LcT2zQUAAAAABRp8qIQR2R0Y2LWYTafR0A8WFbr');
sl.Insert( 0, 'pageurl=https://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/cnpjreva_solicitacao2.asp');

try
IdHTTP.Request.CustomHeaders.Clear;
IdHTTP.Request.Clear;
cID := IdHTTP.Post( 'http://2captcha.com/in.php', sl );
if Copy( cID,1,2 ) <> 'OK' then
Abort;
except
Abort;
end;
cID := copy( cID, 4, 100 );
nConta := 0;

try
IdHTTP.Request.CustomHeaders.Clear;
IdHTTP.Request.Clear;
Result := '';
Sleep(10000); // aguardar 10 segundos
repeat
Sleep(5000); // aguardar 5 segundo para cada tentativa
Result := IdHTTP.Get( 'http://2captcha.com/res.php?key='+FKey2Captcha+'&action=get&id='+cID );
Inc( nConta );
if (nConta >= 15) then
Abort;
until (Copy( Result, 1, 2 ) = 'OK');
Result := Copy( Result, 4, 1000 );
except
Result := '';
end;
finally
sl.Free;
IdHTTP.Free;
end;
end;
-------------------------------

Também foi necessário incluir o IndyProtocols.dcp no projeto ACBr_TCP.bpl.

O Key2Captcha refere-se a chave de acesso fornecida pelo site www.2captcha.com que é o responsável pela quebra do recaptcha.

Sucesso a todos !!

Fiquem com Deus.

Leonardo Quinino · 8 Novembro, 2017

Vou testar aqui, porém para o Entrar no projeto ACBR, uma premissa é de ser "Compilável em Lazarus".

Um dos ADM podem confirmar ou não essa informação.

Pablo Gimenez · 8 Novembro, 2017

Boa Dica ,Renato , mais só fiquei na duvida na parte de incluir "IndyProtocols.dcp no projeto ACBr_TCP.bpl".

junior carvalho · 8 Novembro, 2017

Bom dia

Senhores,

Renato Gil,
Uma dúvida, O Key2Captcha refere-se a chave de acesso fornecida pelo site www.2captcha.com que é o responsável pela quebra do recaptcha, isso é pago ?

Renato Gil · 8 Novembro, 2017

@Leonardo Quinino @Pablo Gimenez @junior carvalho

Entrar no projeto ACBR, uma premissa é de ser "Compilável em Lazarus". : também acredito que isso seja necessário. Minha idéia com o post foi trazer uma luz para um problema comum. Sei que será necessário melhorias para fazer parte do projeto ACBr, mas já é um começo

duvida na parte de incluir "IndyProtocols.dcp no projeto ACBr_TCP.bpl". : é necessário pois na quebra do captcha eu utilizo o componente idHTTP do indy. Se declararmos a unit IDHttp resultará em um erro de instalação dos pacotes por utilizar unit´s já incluídas em outra BLP. Fiz isso para uma solução imediata .. talvez isso possa ser melhorado.

O Key2Captcha refere-se a chave de acesso fornecida pelo site www.2captcha.com que é o responsável pela quebra do recaptcha, isso é pago ? : SIM é pago, porém para a necessidade de onde trabalho o custo é viável, afinal, cada quebra vai sair por volta de R$ 0,0 o que é muito barato.

Estou a disposição para quaisquer melhorias e explicações.

Abraços

carlosinfoteen · 8 Novembro, 2017

Posta a Unit Alterada.

Renato Gil · 8 Novembro, 2017

segue unit´s alteradas

\acbr\Pacotes\Delphi\ACBrTCP\ACBr_TCP.dpk

\acbr\Fontes\ACBrTCP\ACBrConsultaCNPJ.pas

valterpatrick · 8 Novembro, 2017

Boa Renato, estou com o mesmo problema. Há alguma previsão de quando vai estar no ar a versão com esta correção e como faço para saber das alterações que foram feitas nas versões?

Renato Gil · 8 Novembro, 2017

32 minutos atrás, valterpatrick disse:

Boa Renato, estou com o mesmo problema. Há alguma previsão de quando vai estar no ar a versão com esta correção e como faço para saber das alterações que foram feitas nas versões?

Boa tarde Valter,

Não sei qdo, nem se vai, estar vai estar disponível no projeto ACBr uma vez que depende da avaliação dos mantenedores além de adequação para lazarus e delphi 7 até tokyo. Eu uso XE2 e está funcionando legal. Para uma solução imediata serve, agora para o projeto precisa de melhorias ....

Daniel Simoes · 8 Novembro, 2017

Não vamos suportar um "QuebraCaptcha"...

Isso não lhes parece ilegal ? A mim sim...

Se a receita inseriu o Captcha ela tem os motivos dela...

Alguém já tentou contato com a Receita e questionou ?

wilmar · 9 Novembro, 2017

Alguém achou a solução ?

valterpatrick · 9 Novembro, 2017

Talvez não seja o caso de procurarmos uma outra alternativa além de usar esta do site da receita, isto se houver né.

José Nilton Pace · 9 Novembro, 2017

Existe o SicalcWeb da receita para imprimir DARF's etc. Ele ainda usa o captcha antigo deste endereço:

http://captcha2.servicoscorporativos.serpro.gov.br/js/captcha.serpro.gov.br.js

Augusto Knirsch · 9 Novembro, 2017

Bom dia,

O Site https://receitaws.com.br/ disponibiliza uma API gratuita para consulta de CNPJ (O mesmo também tem a API paga, que tem algumas vantagens em relação a gratuita).

Basta utilizar a URL https://www.receitaws.com.br/v1/cnpj/[CNPJ] que ele irá retornar um json.

O ACBr teria interesse em adaptar o componente para a API? Se sim podemos faze-la.

carlosinfoteen · 9 Novembro, 2017

8 minutos atrás, AugustoKnitsch disse:

Bom dia,

O Site https://receitaws.com.br/ disponibiliza uma API gratuita para consulta de CNPJ (O mesmo também tem a API paga, que tem algumas vantagens em relação a gratuita).

Basta utilizar a URL https://www.receitaws.com.br/v1/cnpj/[CNPJ] que ele irá retornar um json.

O ACBr teria interesse em adaptar o componente para a API? Se sim podemos faze-la.

Parece interessante.

jaidomini · 9 Novembro, 2017

20 minutos atrás, AugustoKnitsch disse:

Bom dia,

O Site https://receitaws.com.br/ disponibiliza uma API gratuita para consulta de CNPJ (O mesmo também tem a API paga, que tem algumas vantagens em relação a gratuita).

Basta utilizar a URL https://www.receitaws.com.br/v1/cnpj/[CNPJ] que ele irá retornar um json.

O ACBr teria interesse em adaptar o componente para a API? Se sim podemos faze-la.

Eu fiz faz uns 4 dias, em XE2, coloca no uses: IdHTTP e IdSSLOpenSSL

function RecWslerCampo(Texto: TStringList; NomeCampo: String
): String;
var
i : integer;
linha: String;
begin
NomeCampo := Trim(NomeCampo) + '=';
Result := '';
for i := 0 to Texto.Count-1 do
begin
linha := Trim(Texto);
if Copy(linha,1,Length(NomeCampo)) = NomeCampo then
begin
Result := Copy(linha, Length(NomeCampo)+1, Length(linha));
break;
end;
end
end;

var
IdHTTP1: TIdHTTP;
IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
sResposta: TStringList;
begin
try
IdHTTP1:= TIdHTTP.Create(self);
IdSSLIOHandlerSocketOpenSSL1:= TIdSSLIOHandlerSocketOpenSSL.Create(Self);
IdHTTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
IdHTTP1.ReadTimeout := 5000;
sResposta := TStringList.Create;
sResposta.Text := IdHTTP1.Get( 'https://www.receitaws.com.br/v1/cnpj/XXXXXXXXXXXXXX', ' ','%20'));
sResposta.Text := TrocaTexto(sResposta.Text,'": ','=');
sResposta.Text := TrocaTexto(sResposta.Text,'",','');
sResposta.Text := TrocaTexto(sResposta.Text,'"','');
finally
IdSSLIOHandlerSocketOpenSSL1.Free;
IdHTTP1.Free;
FechaAguarda;
end;

if Pos('nome=', sResposta.Text) > -1 then
begin
if RecWslerCampo(sResposta, 'situacao') <> 'ATIVA' then
ShowMessage('Atenção, SITUAÇÃO está: ' + RecWslerCampo(sResposta, 'situacao'));

razao_social := RecWslerCampo(sResposta, 'nome');
fantasia := RecWslerCampo(sResposta,'fantasia');
.... e assim por diante...
end;
end;

Editado 9 Novembro, 2017 por jaidomini

Cesar Balbinott · 9 Novembro, 2017

Fiz este exemplo usando os componentes Rest do delphi.

Consulta CNPJ.rar

José Nilton Pace · 9 Novembro, 2017

40 minutos atrás, AugustoKnitsch disse:

Bom dia,

O Site https://receitaws.com.br/ disponibiliza uma API gratuita para consulta de CNPJ (O mesmo também tem a API paga, que tem algumas vantagens em relação a gratuita).

Basta utilizar a URL https://www.receitaws.com.br/v1/cnpj/[CNPJ] que ele irá retornar um json.

O ACBr teria interesse em adaptar o componente para a API? Se sim podemos faze-la.

O legal deste serviço é que se parece com o ViaCEP já utilizado no ACBr. Acho que seria interessante alterar o ConsultaCNPJ pra "PARECER" com o ConsultaCEP com as opções RECEITA / RECEITAWS / etc.

Filipe Sortica · 9 Novembro, 2017

3 minutos atrás, JNPace disse:

46 minutos atrás, AugustoKnitsch disse:

Bom dia,

O Site https://receitaws.com.br/ disponibiliza uma API gratuita para consulta de CNPJ (O mesmo também tem a API paga, que tem algumas vantagens em relação a gratuita).

Basta utilizar a URL https://www.receitaws.com.br/v1/cnpj/[CNPJ] que ele irá retornar um json.

O ACBr teria interesse em adaptar o componente para a API? Se sim podemos faze-la.

O legal deste serviço é que se parece com o ViaCEP já utilizado no ACBr. Acho que seria interessante alterar o ConsultaCNPJ pra "PARECER" com o ConsultaCEP com as opções RECEITA / RECEITAWS / etc.

Concordo.

Entrar

Sobre nós...

[ Correção ] - ACBrConsultaCNPJ "Consulta CNPJ"

Recommended Posts

Link para o comentário

Compartilhar em outros sites

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

Pedro Henrique Oliveira

EMBarbosa

EMBarbosa

Posted Images

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Sobre nós...

Informação Importante