Codigo Ibge No Acbrcep

[felipeiw]

Estou testando o acbrcep, usando o exemplo que acompanha o componente, mas percebi que o codigo ibge do cep digitado, nao retorna, tem como retornar ?

 

Abs e obrigado

[Isaque Pinheiro]

Nem todos os provedores retornam esse tipo de informação, não é o componente, a alternativa que tem fazer a pesquisa pelo nome do município usando o ACBrIBGE ou ter uma tabela no seu DB para executar essa pesquisa e encontrar o código.

[Daniel Simoes]

Adicionei uma rotina de integração com o ACBrIBGE na busca com wsCorreios

[walter faria]

Adicionei uma rotina de integração com o ACBrIBGE na busca com wsCorreios

Bom dia, só para correção eu modifiquei o local  : que estava na procedure TACBrIBGE.ProcessaResposta ;  e coloquei na function :

 

*** motivo não estava obedecendo o filtro de se informado !!!

*** se der para alguém corrigir e deixar no SVN seria bom .

 

 

function TACBrIBGE.BuscarPorNome(const ACidade : String ; const AUF : String ;

  const Exata : Boolean) : Integer ;

 

...

...

 

  Result := fCidades.Count;

  if Assigned( OnBuscaEfetuada ) then

     OnBuscaEfetuada( Self );

Editado 2 Novembro, 2013 por walter faria

[Régys Silveira]

Por favor anexe o arquivo alterado.

 

Bom dia, só para correção eu modifiquei o local  : que estava na procedure TACBrIBGE.ProcessaResposta ;  e coloquei na function :

 

*** motivo não estava obedecendo o filtro de se informado !!!

*** se der para alguém corrigir e deixar no SVN seria bom .

 

 

function TACBrIBGE.BuscarPorNome(const ACidade : String ; const AUF : String ;
  const Exata : Boolean) : Integer ;

 

...

...

 

  Result := fCidades.Count;

  if Assigned( OnBuscaEfetuada ) then
     OnBuscaEfetuada( Self );

[walter faria]

Por favor anexe o arquivo alterado.

Boa noite , segue em anexo a unit alterada !!!

 

ACBrIBGE.pas

[EMBarbosa]

Enviei uma correção para o SVN. Favor testar e reportar qualquer problema. Obrigado.

[FGGLUIZ]

Valeu Elton, perfeito! Abraços.