AcBrIBGE - Corrigido

drsmoreira · 19 Fevereiro, 2018

Boa tarde a Todos!

Estudando o código do AcBrIBGE, eu pude verificar que o site do IBGE mudou novamente, fiz a alteração no componente e o mesmo voltou a funcionar. Poderia por favor os moderadores darem uma olhada .pas em anexo para verificar se o mesmo se encontra no padrão e incluir no Trunk para as próximas atualizações.

Obs. Tive que fazer uma correção também no AcBrConsultaCNPJ na conferencia da cidade, visto que o novo site do IBGE trás a informação Case Sensitive, mudei na função : function TACBrConsultaCNPJ.Consulta(const ACNPJ, ACaptcha: String;
ARemoverEspacosDuplos: Boolean): Boolean;

no item :

// Consulta Codigo da Cidade ACBrIBGE
fCodigoIBGE := '';
if (FCidade <> '') and
(FPesquisarIBGE) then
begin
if (sMun <> FCidade) then // Evita buscar municipio já encontrado
begin
FACBrIBGE.BuscarPorNome( FCidade, FUF, False, False ) ;
sMun := FCidade;
end ;

if FACBrIBGE.Cidades.Count > 0 then // Achou ?
for CountCid := 0 to FACBrIBGE.Cidades.Count -1 do
Begin
if (UpperCase(TiraAcentos(FCidade)) = UpperCase(TiraAcentos(FACBrIBGE.Cidades[CountCid].Municipio))) And
(FUF = FACBrIBGE.Cidades[CountCid].UF) then
Begin
FCodigoIBGE := IntToStr( FACBrIBGE.Cidades[CountCid].CodMunicio );
Break;
End;
End;
end ;

ACBrConsultaCNPJ.pas

ACBrIBGE.pas

Editado 19 Fevereiro, 2018 por drsmoreira