Acbr Cnpj

[denis]

boa tarde,

 

Vi no Forum, comentar sobre esse componente do ACBR.  Como acesso ele ? não achei nos componentes que o ACBR instala.

 

Denis

[Daniel Simoes]

Package ACBrTCP

[chico_ponce]

Boa Noite. 

 

A partir da tarde de 12/02/2015 o componente começou a apresentar erro no captcha. Parece que a Receita mudou a pagina qto ao capcha. Alguem poderia confirmar pra mim ? Obrigado

 

[Daniel Simoes]

Realmente parece ter um problema... Infelizmente não terei tempo de pesquisar...

[Juliomar Marchetti]

Assim que me liberar vou conferir ainda de manhã qual a situação e se for o caso corrijo!

[Felix.vier]

Olá,

 já há algum posicionamento sobre o erro!?

[Daniel Simoes]

Veja a data/hora dos posts...

 

Se você precisa de tanta urgência, porque não analisar e corrigir você mesmo e compartilhar com a comunidade ?

[Felix.vier]

OK, perdão,

estou olhando aqui na verdade, mas antes de me aprofundar gostaria de saber se havia algum posicionamento!!!

além disso não sabia que a hora do fórum está "Diferente".

[MVScarpelli]

Caros amigos,

 

Primeira parte do problema era a exibição do Captcha sem dar erro e resolvi desta forma:

 

procedure TACBrConsultaCNPJ.Captcha(Stream: TStream);

var

  Img64, ImgBin, DataClientID: AnsiString;

  P: Integer;

begin

  try

    HTTPGet('http://www.receita.fazenda.gov.br/PessoaJuridica/CNPJ/cnpjreva/captcha/gerarCaptcha.asp');

    if HTTPSend.ResultCode = 200 then

    begin

      HTTPSend.Document.Position := 0;

      Stream.CopyFrom(HttpSend.Document, HttpSend.Document.Size);

 

      Stream.Position := 0;

    end;

  Except

    on E: Exception do begin

      raise EACBrConsultaCNPJException.Create('Erro na hora de fazer o download da imagem do captcha.'+#13#10+E.Message);

    end;

  end;

end;

 

 

Antes estava assim:

 

procedure TACBrConsultaCNPJ.Captcha(Stream: TStream);

var

  Img64, ImgBin, DataClientID: AnsiString;

  P: Integer;

begin

  try

    HTTPGet(GetCaptchaURL);

    if HttpSend.ResultCode = 200 then

    begin

      HTTPSend.Document.Position := 0;

      Stream.CopyFrom(HttpSend.Document, HttpSend.Document.Size);

      Stream.Position := 0;

    end;

  Except on E: Exception do begin

    raise EACBrConsultaCNPJException.Create('Erro na hora de fazer o download da imagem do captcha.'+#13#10+E.Message);

  end;

  end;

end;

 

 

Na rotina de consulta deve estar da mesma forma ue a usada na Consulta CPF e, para isto, basta olhar o exemplo de consulta CPF.

 

 

Por fim estou tentando resolver a parte de consulta, mas até agora não consegui progredir em nada.

 

Espero ter ajudado a dar um caminho para iniciarmos uma solução final.

 

Atenciosamente...

 

Marcus Vinicius Scarpelli

[Junior Bindaco]

Boa tarde Marcus Vinicius Scarpelli,

Andei realizando alguns ajuste aqui tbm mas sempre me retorna erro erro ao "abrir" a imagem na função ...LoadFromStream(Stream);

o seu esta apresentando a mesma mensagem ou nao ?!

Obrigado

[EMBarbosa]

Por favor, continuem sobre o problema que iniciou dia 12/02/2015 em: