Ir para conteúdo
  • Cadastre-se

dev botao

ACBRConsultaCNPJ


Ver Solução Respondido por Sandro Felipe Adad,
  • Este tópico foi criado há 593 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado (editado)

Estou com o XE6 e por aqui funcionou muito bem. No uses ficou assim:
 

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, Registry,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, SHDocVw,
  Winapi.ActiveX, Vcl.ExtCtrls, Vcl.OleCtrls; 

Obrigado Galera!!! 👍

 

 

Editado por digitosistemas
  • Curtir 1
Postado

Olá

Verifiquei que o componente ACBRCONSULTACNPJ procura o arquivo acbrconsultacnpj.ini e ao não encontrar, le/cria internamente o endereço :https://solucoes.receita.fazenda.gov.br/Servicos/cnpjreva/captcha/gerarCaptcha.asp. Ao executar nesse endereço ele informa o erro 404 . Atualizei o ACBR e continua buscando nesse endereço. O componente não está funcionando. .."Erro na hora de fazer o download da imagem do captcha. Serviço depreciado pela RFB! não disponível para consulta." 

  • Membros Pro
Postado

Pessoal, ainda não consegui fazer funcionar, talvez tenha baixado o codigo errado. Ja estou com meu acbr  atualizado, no projeto que baixei apaguei o VCL.Edge, depois começou dar erro no OnSolicitarCaptcha, tenho a impressão que meu ACBrConsultaCNPJ não esta atualizado pois nele  nao tem o evento OnSolicitarCaptcha, somente o OnAntesAbrirHTTP, se tem alguma atualização não oficial do ACBrConsultaCNPJ acho que não encontrei onde baixar.
Do jeito que esta meu codigo até conseguir rodar mas dá o seguinte erro depois que clico em 'Sou Humano' e depois me' Consultar'.
image.png.94b484001aa3ce723c9b362948a81f46.png

Postado (editado)
39 minutos atrás, jaques.rocha disse:

Pessoal, ainda não consegui fazer funcionar, talvez tenha baixado o codigo errado. Ja estou com meu acbr  atualizado, no projeto que baixei apaguei o VCL.Edge, depois começou dar erro no OnSolicitarCaptcha, tenho a impressão que meu ACBrConsultaCNPJ não esta atualizado pois nele  nao tem o evento OnSolicitarCaptcha, somente o OnAntesAbrirHTTP, se tem alguma atualização não oficial do ACBrConsultaCNPJ acho que não encontrei onde baixar.
Do jeito que esta meu codigo até conseguir rodar mas dá o seguinte erro depois que clico em 'Sou Humano' e depois me' Consultar'.
image.png.94b484001aa3ce723c9b362948a81f46.png

Sim é extra oficial, voce precisa baixar os fontes daqui deste post , em seguida reinstalar o ACBR com a substituição do componente e fontes deste post.

image.thumb.png.a22592663a081ee31ee517ac9b407d23.png

 

 

Editado por Sandro Felipe Adad
Postado
3 horas atrás, etbricio disse:

Olá

Verifiquei que o componente ACBRCONSULTACNPJ procura o arquivo acbrconsultacnpj.ini e ao não encontrar, le/cria internamente o endereço :https://solucoes.receita.fazenda.gov.br/Servicos/cnpjreva/captcha/gerarCaptcha.asp. Ao executar nesse endereço ele informa o erro 404 . Atualizei o ACBR e continua buscando nesse endereço. O componente não está funcionando. .."Erro na hora de fazer o download da imagem do captcha. Serviço depreciado pela RFB! não disponível para consulta." 

A solução é extra oficial, voce precisa baixar os fontes daqui deste post , em seguida reinstalar o ACBR com a substituição do componente e fontes deste post.

image.thumb.png.a22592663a081ee31ee517ac9b407d23.png

  • Membros Pro
Postado

Bom dia pessoal, agora surgiu outro probleminha aqui, tenho varios cliente que trabalham por rdp, testei tanto no windows server 2012 e 2019 e tenho o mesmo erro, o internet explorer 11 está funcionando neles. Alguem sabe dizer se é falta de alguma dll ?

image.png.99e231076b0e9740a796f2e05b998dfc.png

Postado
9 minutos atrás, jaques.rocha disse:

Bom dia pessoal, agora surgiu outro probleminha aqui, tenho varios cliente que trabalham por rdp, testei tanto no windows server 2012 e 2019 e tenho o mesmo erro, o internet explorer 11 está funcionando neles. Alguem sabe dizer se é falta de alguma dll ?

image.png.99e231076b0e9740a796f2e05b998dfc.png

Pode ser o webview2

tente isso https://developer.microsoft.com/pt-br/microsoft-edge/webview2/#download-section

Pode ser preciso instalar o edge.

Postado (editado)
32 minutos atrás, jaques.rocha disse:

Bom dia pessoal, agora surgiu outro probleminha aqui, tenho varios cliente que trabalham por rdp, testei tanto no windows server 2012 e 2019 e tenho o mesmo erro, o internet explorer 11 está funcionando neles. Alguem sabe dizer se é falta de alguma dll ?

image.png.99e231076b0e9740a796f2e05b998dfc.png

Bom dia! Por padrão, o Windows Server bloqueia praticamente todos os domínios no, internet explorer, tenta desabilitar essa proteção e faz um teste. É possível desabilitar pelo painel de gerenciamento do servidor.

Editado por Orlando Dantas
  • Membros Pro
Postado (editado)


Descobri o erro, no Windows server não tem a key FEATURE_BROWSER_EMULATION, portanto foi só criar ela usando o CreateKey
    Reg.OpenKey('SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION', False);
    Reg.CreateKey('SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION');
    Reg.WriteInteger(ExtractFileName(Application.ExeName), 11001); //isto é necessário para poder rodar no internet explorer 11

Editado por jaques.rocha
  • Curtir 1
Postado

blz. realmente acho que está com instabilidade..   pq agora eu consultei e foi normal

* vou ter que fazer uma série de avisos ao cliente para implementar esta nova opção de consulta

Mas o importante é que vai funcionar, parabéns ai pra quem fez esta solução!

Postado
4 horas atrás, jaques.rocha disse:


Descobri o erro, no Windows server não tem a key FEATURE_BROWSER_EMULATION, portanto foi só criar ela usando o CreateKey
    Reg.OpenKey('SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION', False);
    Reg.CreateKey('SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION');
    Reg.WriteInteger(ExtractFileName(Application.ExeName), 11001); //isto é necessário para poder rodar no internet explorer 11

Sim, podemos alterar no fonte para o windows criar a chave se necessário.

Linha 85 do ACBrConsultaCNPJNavegar.pas, alterar para True:

Reg.OpenKey('SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION', True);

  • Curtir 1
Postado (editado)

Boa Noite, além de testar a solução que foi desenvolvida, gostaria de uma ajuda se possivel:

Junto com a consulta do ACBr, eu tinha uma outra pra quebrar um galho com a API https://receitaws.com.br:
Urls := IdHTTP1.URL.URLDecode(IdHTTP1.Get('https://receitaws.com.br/v1/cnpj/' + ACNPJ));
Mas debugando da erro de SSL nessa linha. Alguem já passou por isso?

Editado por Ademir P. Voigt
Postado
14 horas atrás, Ademir P. Voigt disse:

Boa Noite, além de testar a solução que foi desenvolvida, gostaria de uma ajuda se possivel:

Junto com a consulta do ACBr, eu tinha uma outra pra quebrar um galho com a API https://receitaws.com.br:
Urls := IdHTTP1.URL.URLDecode(IdHTTP1.Get('https://receitaws.com.br/v1/cnpj/' + ACNPJ));
Mas debugando da erro de SSL nessa linha. Alguem já passou por isso?

Coloquei as dll do OpenSSL versão 1.1.1.10 na pasta do executável.

image.thumb.png.510eedc57852711e1cd822f14d63f8db.png

Postado (editado)
2 horas atrás, Dfox disse:

Boa tarde aqui esta o exemplo so baixar e compilar 😉

ACBrConsultaCNPJ.zip 15.97 kB · 16 downloads

Boa tarde!

Obrigado pela colaboração. Utilizamos o Delphi 7 e tivemos que tirar algum erros e conseguimos compilar porem ao utilizar realizamos a consulta e isso funciona corretamente, porém os dados não são enviado para a tela inicial. Você pode nos ajudar nessa caso?

Desde já agradeço.

Editado por jefferson01
Escrevi errado
  • Este tópico foi criado há 593 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.

The popup will be closed in 10 segundos...
The popup will be closed in 10 segundos...