Jump to content

Embarcadero Conference 2019

22/10 - Visite o Stand do ACBr
Saiba mais

Nova Loja Oficial
loja.projetoacbr.com.br
Ajude o projeto a crescer, com estilo

Comprar

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Pedro Henrique Oliveira

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

Recommended Posts

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, 

Share this post


Link to post
Share on other 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.

Share this post


Link to post
Share on other 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.

Share this post


Link to post
Share on other 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.

Share this post


Link to post
Share on other sites

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, 

 

Share this post


Link to post
Share on other 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.

Share this post


Link to post
Share on other sites

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.

 

Share this post


Link to post
Share on other 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;

 

Share this post


Link to post
Share on other 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.

Share this post


Link to post
Share on other 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.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...