Necessário verificar se a UF retornada pelo ACBrConsultaCNPJ veio como "*" asterisco para não tentar consultar IBGE e ocorrer erro, isso ocorre em casos de consulta onde, a empresa consultada está diferente de "ATIVA".

[Adriano P.Pratti]

O ajuste que fiz está a partir da linha 318 até 326 - Veja abaixo.

  // Consulta Codigo da Cidade ACBrIBGE
  fCodigoIBGE := '';
  if (FCidade <> '') and
     (FPesquisarIBGE) then
  begin
    if (sMun <> FCidade) then  // Evita buscar municipio já encontrado
    begin
      try
        if Pos('*',FCidade) = 0  then
        begin
          FACBrIBGE.BuscarPorNome( FCidade, FUF, False);
        end;
        sMun := FCidade;
      except
         Application.MessageBox('Falha na busca pelo Município informado!', 'Atenção!', MB_OK+MB_ICONWARNING);
      end;
    end ;
 

ACBrConsultaCNPJ.pas

[Daniel Simoes]

Qual foi o CNPJ utilizado, para reproduzir o problema ?

O Servidor não deveria retornar uma UF com asteriscos

[Adriano P.Pratti]

Bom dia - Fiz testes com CNPJ de empresas inativas, um CNPJ que usei foi o 36.398.923/0001-90 

[Daniel Simoes]

Apliquei alguns ajustes nos fontes... Commit [r21237]

[Adriano P.Pratti]

Bom dia - Obrigado pela atenção e empenho.