Retorno código IBGE

[drsmoreira]

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

[Daniel Simoes]

Parece tudo correto... obrigado pelo ajuste.. no SVN...