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

[carlosfilho]

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, 

[Leonardo Quinino]

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.

[carlosfilho]

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.

[cleber_queiroz]

Boa tarde Pedro!

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

[carlosinfoteen]

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.

[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 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, 

 

[carlosinfoteen]

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.

[Souza]

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.

 

[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]

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.

[Bruno Lopes de Assumpção]

39 minutos atrás, carlosinfoteen disse:

posta a unit alterada.

 

U_Principal.rar

[carlosinfoteen]

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

 

U_Principal.rar

Valeu bruno, obrigado. Testado aqui e funcionou certinho.

[JuniorMartins]

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.

[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