Ir para conteúdo
  • Cadastre-se

dev botao

Retorno código IBGE


drsmoreira
  • Este tópico foi criado há 2165 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

Boa tarde!

     Peguei na data de hoje a última atualização do ACBR e não estava conseguindo receber o código do IBGE na consulta do CNPJ, fiz algumas alterações no código e voltou a funcionar normalmente. Segue as alterações

No Create do Objeto eu adicionei a seguinte propriedade

 

constructor TACBrConsultaCNPJ.Create(AOwner: TComponent);
begin
  inherited;
  FCNAE2 := TStringList.Create;
  FPesquisarIBGE := False;
  fACBrIBGE := TACBrIBGE.Create(nil);
  FACBrIBGE.IgnorarCaixaEAcentos := True;

  HTTPSend.Sock.SSL.SSLType := LT_TLSv1;
end;

 

 No comparador da resposta eu modifiquei o seguinte item

         if (UpperCase(TiraAcentos(FCidade))  = UpperCase(TiraAcentos(FACBrIBGE.Cidades[CountCid].Municipio))) And
         (FUF =  FACBrIBGE.Cidades[CountCid].UF) then

 

Segue o arquivo anexado com as alterações

ACBrConsultaCNPJ.pas

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2165 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • 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.