Ir para conteúdo
  • Cadastre-se

dev botao

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


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

Recommended Posts

  • Solution
20 horas atrás, Daniel Carus disse:

Achei um site do sefaz do RS -> Cadastro Centralizado de Contribuinte (CCC)

https://www.sefaz.rs.gov.br/NFE/NFE-CCC.aspx

Ele também traz os da dados do CNPJ, não tem captcha, só que ele traz uma lista com todas as IE cadastradas no país, ai tem que clicar sobre um dos resultados para ver os dados do CNPJ.

 

Bom dia,

 

Consegui fazer a consulta via post, o ponto positivo é trazer a insc. estadual e o negativo é não trazer telefone, 

Link para o comentário
Compartilhar em outros sites

9 minutos atrás, carlosfilho disse:

Bom dia,

 

Consegui fazer a consulta via post, o ponto positivo é trazer a insc. estadual e o negativo é não trazer telefone, 

Na prática essa consulta CCE  do RS, é muito boa, inclusive tem opção de validar se o CNPJ está habilitado para emissão de NFe.

Link para o comentário
Compartilhar em outros sites

9 minutos atrás, Leonardo Quinino disse:

Na prática essa consulta CCE  do RS, é muito boa, inclusive tem opção de validar se o CNPJ está habilitado para emissão de NFe.

Outro ponto negativo é quando a empresa não tem inscrição não traz o endereço da empresa mesmo a impressa estando ativa como serviço.

Link para o comentário
Compartilhar em outros sites

11 minutos atrás, cleber_queiroz disse:

Boa tarde Pedro!

este link parou de funcionar já a alguns dias, conhece outro, já pesquisei e não encontrei nada.

É só ler todo este tópico com as suas páginas de discussão que o pessoal postaram outra solução alternativa, dai fica a seu critério usar ou não.

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

Bom dia Carlos, pode me mostrar como conseguiu fazer a consulta.

 

Att

Em 14/11/2017 at 09:16, carlosfilho disse:

Bom dia,

 

Consegui fazer a consulta via post, o ponto positivo é trazer a insc. estadual e o negativo é não trazer telefone, 

 

Link para o comentário
Compartilhar em outros sites

26 minutos atrás, Souza disse:

Bom dia Carlos, pode me mostrar como conseguiu fazer a consulta.

 

Att

 

Bom dia, o que mencionei foi que colegas postaram solução alternativa como este exemplo.

https://www.projetoacbr.com.br/forum/applications/core/interface/file/attachment.php?id=39213

 

assim como outro postou a ideia de quebra do recaptcha. estão todos neste tópico página 3 e 4.

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

Entendi, obrigado Carlos, 

esse com retorno da IE do CCE RS, alguem conseguiu ?

8 minutos atrás, carlosinfoteen disse:

Bom dia, o que mencionei foi que colegas postaram solução alternativa como este exemplo.

https://www.projetoacbr.com.br/forum/applications/core/interface/file/attachment.php?id=39213

 

assim como outro postou a ideia de quebra do recaptcha. estão todos neste tópico página 3 e 4.

 

Link para o comentário
Compartilhar em outros sites

No exemplo  consegui realizar a consulta apena incluindo algumas linhas na função "TF_Principal.LabAtualizarCaptchaClick".

adicionei as linhas:

...
ImgArq: String;
...
ImgArq := ExtractFilePath(ParamStr(0))+PathDelim+'captch.png';
Stream.SaveToFile( ImgArq );
Image1.Picture.LoadFromFile( ImgArq );
...

 

e comentei as linhas:

//png.LoadFromStream(Stream);
//Image1.Picture.Assign(png);
procedure TF_Principal.LabAtualizarCaptchaClick(Sender: TObject);
var
  Stream: TMemoryStream;
  ImgArq: String;
//  Jpg: TJPEGImage;
{$IFDEF DELPHI2009_UP}
  png: TPngImage;
{$ENDIF}
begin
  Stream:= TMemoryStream.Create;
  try
    ACBrConsultaCNPJ1.Captcha(Stream);

  {$IFDEF DELPHI2009_UP}
    //Use esse código quando a imagem do site for do tipo PNG
    png:= TPngImage.Create;
    try
      //png.LoadFromStream(Stream);
      //Image1.Picture.Assign(png);
      ImgArq := ExtractFilePath(ParamStr(0))+PathDelim+'captch.png';    
      Stream.SaveToFile( ImgArq );
      Image1.Picture.LoadFromFile( ImgArq );

      EditCaptcha.Clear;
      EditCaptcha.SetFocus;
    finally
      png.Free;
    end;

 

Link para o comentário
Compartilhar em outros sites

1 hora atrás, Bruno Lopes de Assumpção disse:

No exemplo  consegui realizar a consulta apena incluindo algumas linhas na função "TF_Principal.LabAtualizarCaptchaClick".

adicionei as linhas:


...
ImgArq: String;
...
ImgArq := ExtractFilePath(ParamStr(0))+PathDelim+'captch.png';
Stream.SaveToFile( ImgArq );
Image1.Picture.LoadFromFile( ImgArq );
...

 

e comentei as linhas:


//png.LoadFromStream(Stream);
//Image1.Picture.Assign(png);

procedure TF_Principal.LabAtualizarCaptchaClick(Sender: TObject);
var
  Stream: TMemoryStream;
  ImgArq: String;
//  Jpg: TJPEGImage;
{$IFDEF DELPHI2009_UP}
  png: TPngImage;
{$ENDIF}
begin
  Stream:= TMemoryStream.Create;
  try
    ACBrConsultaCNPJ1.Captcha(Stream);

  {$IFDEF DELPHI2009_UP}
    //Use esse código quando a imagem do site for do tipo PNG
    png:= TPngImage.Create;
    try
      //png.LoadFromStream(Stream);
      //Image1.Picture.Assign(png);
      ImgArq := ExtractFilePath(ParamStr(0))+PathDelim+'captch.png';    
      Stream.SaveToFile( ImgArq );
      Image1.Picture.LoadFromFile( ImgArq );

      EditCaptcha.Clear;
      EditCaptcha.SetFocus;
    finally
      png.Free;
    end;

 

posta a unit alterada.

Link para o comentário
Compartilhar em outros sites

Em 14/11/2017 at 08:16, carlosfilho disse:

Bom dia,

 

Consegui fazer a consulta via post, o ponto positivo é trazer a insc. estadual e o negativo é não trazer telefone, 

Boa tarde, amigo

 

Na verdade não sei se pelo motivo absurdo de estarem cobrando um serviço que deveria ser gratuito https://servicos.serpro.gov.br/api-serpro/consulta-cnpj.html mas após algumas consultas ele vai solicitar o captcha sim. :(  Acabei de simular essa situação.

Link para o comentário
Compartilhar em outros sites

  • Fundadores
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2316 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.