ACBRConsultaCNPJ

[Sandro Felipe Adad]

3 minutos atrás, edsonvieira disse:

Sandro Felipe, primeiramente obrigado por compartilhar sua abordagem... 
baixei os arquivos e tentei executar, porém não abriu o link no componente TEdgeBrowser, tentei com outros links e tbem não abriu, será que é algo na versão do Delphi (11) que estou utilizando ou tem alguma liberação/configuração que tenho que fazer para este componente facionar?

Funciona na sua máquina acessar por algum browser o endereço abaixo?

https://solucoes.receita.fazenda.gov.br/Servicos/cnpjreva/Cnpjreva_Solicitacao.asp

O projeto foi construido no delphi 10.4.1

[LuanParanhos]

52 minutos atrás, Sandro Felipe Adad disse:

Até que seja confirmada ou não a inviabilidade de uso da api pública pelo componente do ACBR, o que pode ser feito é usar usarmos a consulta pública como foi sugerido aqui no forum. Ou seja, um projeto que contenha um navegador (edge), possibilitando que o próprio usuário clique no botão (Sou Humano) e efetue a consulta manualmente. Após a consulta manual é possível extrair os dados do próprio html resultante. Fiz um protótipo funcional que efetua isso a quem interessar.

 

ConsultaCNPJ.dpr 254 B · 12 downloads ConsultaCNPJ.dproj 48.64 kB · 12 downloads uConsultaCNPJ.dfm 2.3 kB · 12 downloads uConsultaCNPJ.pas 3.7 kB · 13 downloads

 

 

Muito obrigado, Sandro! Irei testar. No momento é o que está ao nosso alcance. Gratidão por ter compartilhado.

[edsonvieira]

18 minutes ago, Sandro Felipe Adad said:

Funciona na sua máquina acessar por algum browser o endereço abaixo?

https://solucoes.receita.fazenda.gov.br/Servicos/cnpjreva/Cnpjreva_Solicitacao.asp

O projeto foi construido no delphi 10.4.1

realmente deve ser algo aqui na minha instalação, nao consigo navegar...

mas estou com uma dúvida, as vezes vc sabe me responder:  este serviço que estávamos utilizando do TACBrConsultaCNPJ é o mesmo que eles estão utilizando no "Nuvem Fiscal"? 

[Atalias]

@edsonvieira verifique no seu Delphi essas configurações
https://docwiki.embarcadero.com/RADStudio/Sydney/en/Using_TEdgeBrowser_Component_and_Changes_to_the_TWebBrowser_Component

[Antonio Gomes]

1 hora atrás, Sandro Felipe Adad disse:

Até que seja confirmada ou não a inviabilidade de uso da api pública pelo componente do ACBR, o que pode ser feito é usar usarmos a consulta pública como foi sugerido aqui no forum. Ou seja, um projeto que contenha um navegador (edge), possibilitando que o próprio usuário clique no botão (Sou Humano) e efetue a consulta manualmente. Após a consulta manual é possível extrair os dados do próprio html resultante. Fiz um protótipo funcional que efetua isso a quem interessar.

 

ConsultaCNPJ.dpr 254 B · 23 downloads ConsultaCNPJ.dproj 48.64 kB · 23 downloads uConsultaCNPJ.dfm 2.3 kB · 25 downloads uConsultaCNPJ.pas 3.7 kB · 26 downloads

no dpr, quem nao abrir, so trocar:

//  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TfrmConsulta, frmConsulta);
 

[Sandro Felipe Adad]

27 minutos atrás, Antonio Gomes disse:

no dpr, quem nao abrir, so trocar:

//  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TfrmConsulta, frmConsulta);
 

ops, postei antes de salvar.

ConsultaCNPJ.dproj uConsultaCNPJ.dfm uConsultaCNPJ.pas ConsultaCNPJ.dpr

[AdmNet Sistemas]

Bom dia,

Estamos com o mesmo problema, alguém consegue nos ajudar ? 

[Antonio Gomes]

DLL WebView2Loader.dll na pasta do sistema, importante, comigo, so abriu, com a primeira versao ali

1.0.1549.0

[Antonio Gomes]

32 minutos atrás, Antonio Gomes disse:

DLL WebView2Loader.dll na pasta do sistema, importante, comigo, so abriu, com a primeira versao ali

1.0.1549.0

 

baixar dll

WebView2 - Microsoft Edge Developer

[Antonio Gomes]

23 minutos atrás, Antonio Gomes disse:

 

baixar dll

WebView2 - Microsoft Edge Developer

@Victor H. Gonzales - Panda pensa comigo agora, se criarmos um evento, no acbr cnpj, para poder cada um repassar a telinha ali para retonar o mesmo html que o componente usa? que vc acha?

Tipo, OnSolicitarCaptcha, dai, repassa para o acbrcnpj o mHTML.text 

[Victor H. Gonzales - Panda]

39 minutos atrás, Antonio Gomes disse:

@Victor H. Gonzales - Panda pensa comigo agora, se criarmos um evento, no acbr cnpj, para poder cada um repassar a telinha ali para retonar o mesmo html que o componente usa? que vc acha?

Tipo, OnSolicitarCaptcha, dai, repassa para o acbrcnpj o mHTML.text 

o componente só fazer o parser do html e devolver nas propriedades que ele já tem?

[Antonio Gomes]

17 minutos atrás, Victor H. Gonzales - Panda disse:

o componente só fazer o parser do html e devolver nas propriedades que ele já tem?

Sim, estou fazendo uma treta aqui, ja vou mandar para vc olhar

Agora, Antonio Gomes disse:

Sim, estou fazendo uma treta aqui, ja vou mandar para vc olhar

tipo isso..

ACBrConsultaCNPJ.pas

[Antonio Gomes]

1 hora atrás, Antonio Gomes disse:

Sim, estou fazendo uma treta aqui, ja vou mandar para vc olhar

tipo isso..

ACBrConsultaCNPJ.pas 17.2 kB · 8 downloads

dá uma olhada @Victor H. Gonzales - Panda e @Sandro Felipe Adad

zip

cnpj_consulta.zip

[lucimauro]

Ola,

Eu também uso  https://cnpja.com/  e  estou muito satisfeito

[Sandro Felipe Adad]

16 horas atrás, Antonio Gomes disse:

dá uma olhada @Victor H. Gonzales - Panda e @Sandro Felipe Adad

zip

cnpj_consulta.zip 153.26 kB · 32 downloads

Achei interessante sua idéia de usar o componente do ACBR na solução do workaround, só teriamos de ver com algum membro do ACBR se incorporariam esta nossa solução.

Ah, na minha contribuição de exemplo eu não capturei todos os campos do html, apenas os que utilizo em minhas aplicações, teria de completar pra ficar de acordo com a classe do componente.

Só alteraria a propriedade do zoom no seu exemplo para: 

EdgeBrowser1.ZoomFactor := 0.7;

 

[Antonio Gomes]

3 minutos atrás, Sandro Felipe Adad disse:

Achei interessante sua idéia de usar o componente do ACBR na solução do workaround, só teriamos de ver com algum membro do ACBR se incorporariam esta nossa solução.

Ah, na minha contribuição de exemplo eu não capturei todos os campos do html, apenas os que utilizo em minhas aplicações, teria de completar pra ficar de acordo com a classe do componente.

Só alteraria a propriedade do zoom no seu exemplo para: 

EdgeBrowser1.ZoomFactor := 0.7;

 

Sim, o html de saida, é o mesmo que tem hoje, e nada mudaria, apenas se usar o evento, estou catalogando, como criar essa tela, pq o acbr nao pode depender de objetos, devido ser lazarus e delphi, logo, eu iria mandar uma tela demo, para ser adaptado, repassando a ele, o resultado depois daquela confirmacao da consulta do "sou humano".  Aquela tela onde aparece o logo da receita federal, que o componente pega os dados, tipo voce fez no seu exemplo.

[Victor H. Gonzales - Panda]

20 horas atrás, Antonio Gomes disse:

DLL WebView2Loader.dll na pasta do sistema, importante, comigo, so abriu, com a primeira versao ali

1.0.1549.0

eu usei a 1.0.1938.49

[Victor H. Gonzales - Panda]

2 horas atrás, Antonio Gomes disse:

Sim, o html de saida, é o mesmo que tem hoje, e nada mudaria, apenas se usar o evento, estou catalogando, como criar essa tela, pq o acbr nao pode depender de objetos, devido ser lazarus e delphi, logo, eu iria mandar uma tela demo, para ser adaptado, repassando a ele, o resultado depois daquela confirmacao da consulta do "sou humano".  Aquela tela onde aparece o logo da receita federal, que o componente pega os dados, tipo voce fez no seu exemplo.

esse loop pode ser prejudicial, tem que alterar isso para alguma forma de notificar, tu pode congelar a aplicação toda.

mas a ideia em si parece válida, mas cada empresa irá ter que implementar sua tela, o componente só irá fazer o parser.

 

precisamos ver como será a resposta em lazarus.

talvez no lugar de Evento, fazer Método, para conseguir reaproveitação do parser na Lib / Monitor.

[aslsoftwareltda]

Boa tarde,

Não sou muito bom em implementação de componentes, mas peguei o arquivo ACBrConsultaCNPJ.pas mudei o nome dele para ACBrConsultaCNPJws.pas e fiz algumas alterações pra fazer a busca utilizando a api do site https://www.receitaws.com.br/ que no gratuito permite 3 consultas por minutos, para os clientes que tenho atendeu bem.

Na minha tela de consulta chamei ele da seguinte forma 

if ACBrConsultaCNPJ.Consulta(EditCNPJ.Text, 'https://receitaws.com.br/v1/cnpj/') then

 

Lembrando que fiz apenas o básico pra funcionar e meus clientes parar de reclamar rsrsrsr.

Coloquei as dll do OpenSSL versão 1.1.1.10 na pasta do executável, senão não funciona.

 

 

 

ACBrConsultaCNPJws.pas

[Antonio Gomes]

2 horas atrás, Victor H. Gonzales - Panda disse:

esse loop pode ser prejudicial, tem que alterar isso para alguma forma de notificar, tu pode congelar a aplicação toda.

mas a ideia em si parece válida, mas cada empresa irá ter que implementar sua tela, o componente só irá fazer o parser.

 

precisamos ver como será a resposta em lazarus.

talvez no lugar de Evento, fazer Método, para conseguir reaproveitação do parser na Lib / Monitor.

o loop tem que ficar no evento, na tela que tem que esperar a confirmacao, para depois, mandar o html retornado, estou mexendo aqui, na ancia de criar separado.

[aslsoftwareltda]

24 minutos atrás, aslsoftwareltda disse:

Boa tarde,

Não sou muito bom em implementação de componentes, mas peguei o arquivo ACBrConsultaCNPJ.pas mudei o nome dele para ACBrConsultaCNPJws.pas e fiz algumas alterações pra fazer a busca utilizando a api do site https://www.receitaws.com.br/ que no gratuito permite 3 consultas por minutos, para os clientes que tenho atendeu bem.

Na minha tela de consulta chamei ele da seguinte forma 

if ACBrConsultaCNPJ.Consulta(EditCNPJ.Text, 'https://receitaws.com.br/v1/cnpj/') then

 

Lembrando que fiz apenas o básico pra funcionar e meus clientes parar de reclamar rsrsrsr.

Coloquei as dll do OpenSSL versão 1.1.1.10 na pasta do executável, senão não funciona.

 

 

 

ACBrConsultaCNPJws.pas 13.44 kB · 4 downloads

Esqueci e mencionar, segue detalhado a forma que chamo a classe em tempo de execução.

Var
  ACBrConsultaCNPJ :TACBrConsultaCNPJws;

begin

  ACBrConsultaCNPJ := TACBrConsultaCNPJws.Create(Self);

  if ACBrConsultaCNPJ.Consulta(EditCNPJ.Text, 'https://receitaws.com.br/v1/cnpj/') then

begin

...

end;

ACBrConsultaCNPJ.Free;

end;

[infomatte]

20 horas atrás, aslsoftwareltda disse:

Esqueci e mencionar, segue detalhado a forma que chamo a classe em tempo de execução.

Var
  ACBrConsultaCNPJ :TACBrConsultaCNPJws;

begin

  ACBrConsultaCNPJ := TACBrConsultaCNPJws.Create(Self);

  if ACBrConsultaCNPJ.Consulta(EditCNPJ.Text, 'https://receitaws.com.br/v1/cnpj/') then

begin

...

end;

ACBrConsultaCNPJ.Free;

end;

Teste aqui, funciona 100% para o que meus clientes querem...

Obrigado

[Antonio Gomes]

32 minutos atrás, infomatte disse:

Teste aqui, funciona 100% para o que meus clientes querem...

Obrigado

eu fiz tambem, mas esse tem uma adendo, que é a ultima sincronização, tipo, endereço, se nao tiver igual, como proceder? cliente aproveita muito é endereço...

[Rodrigo Franca]

 Também implementei no meu sistema deu tudo certo,

 Obrigado.

[Antonio Gomes]

@Victor H. Gonzales - Panda e @Sandro Felipe Adad

Dá uma olhada?

cnpj_consulta_14 09 2023.zip

A dll costuma o delphi criar uma pasta chamada debug, cola junto do exe.