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

[carlosfilho]

  Em 13/11/2017 at 14:08, 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.

 

Expandir  

Bom dia,

 

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

[Leonardo Quinino]

  Em 14/11/2017 at 11: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, 

Expandir  

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.

[carlosfilho]

  Em 14/11/2017 at 11:27, 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.

Expandir  

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.

[cleber_queiroz]

Boa tarde Pedro!

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

[carlosinfoteen]

  Em 14/11/2017 at 17:46, cleber_queiroz disse:

Boa tarde Pedro!

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

Expandir  

É 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.

[mfb admnet sistemas]

Ivan,  tiraram o link do ar.... 

https://servicos.serpro.gov.br/api-gov/consulta-cnpj.html#tabela-link

 

[marcioereno]

Como e estranho né !

Agora de manha estava tudo funcionando normal, agora ja parou de novo

[Souza]

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

 

Att

  Em 14/11/2017 at 11: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, 

Expandir  

 

[carlosinfoteen]

  Em 16/11/2017 at 13:01, Souza disse:

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

 

Att

 

Expandir  

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=39213Fetching info...

 

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

[Souza]

Entendi, obrigado Carlos, 

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

  Em 16/11/2017 at 13:31, 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=39213Fetching info...

 

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

Expandir  

 

[Bruno Lopes de Assumpção]

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;

 

[carlosinfoteen]

  Em 17/11/2017 at 13:32, 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;

 

Expandir  

posta a unit alterada.

[Bruno Lopes de Assumpção]

  Em 17/11/2017 at 15:02, carlosinfoteen disse:

posta a unit alterada.

Expandir  

 

U_Principal.rar

[carlosinfoteen]

  Em 17/11/2017 at 15:42, Bruno Lopes de Assumpção disse:

 

U_Principal.rarFetching info...

Expandir  

Valeu bruno, obrigado. Testado aqui e funcionou certinho.

[JuniorMartins]

  Em 14/11/2017 at 11: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, 

Expandir  

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.

[Juliomar Marchetti]

vou fechar o tópico pois já sabe-se o que houve.

favor que procurar ler por inteiro.

novas situações abrir um novo tópico.

[Daniel Simoes]

Por favor verifiquem o post abaixo, e o SVN:

https://www.projetoacbr.com.br/forum/topic/40075-erro-ao-atualizar-captcha-na-consulta-cnpj-e-consulta-cpf/?do=findComment&comment=263805