Como Conectar a ACBRCEP com a ACBRIBGE

[AlanDaSilva]

Como poderia integrar a ACbrCep com a ACBrIBGE ...preciso na hora que busca o cep do municipio ,me traz também o Código IBGE ...Por Favor me ajudem ...Precisava de só disso...Como poderia fazer??

[Daniel Simoes]

veja nos fontes de ACBrCEP... Algumas das classes  de provedores já fazem isso...

[AlanDaSilva]

Quais Classes que fazem isso????Muito Obrigado!!!

[Daniel Simoes]

Na boa... deixa de ser preguiçoso... abra os fontes do ACBrCEP e procure  (Ctrl-F) "IBGE"

[Marcio Lopes ACBr]

Ja existe uma propriedade que já retorna o Codigo IBGE, muito simples é so estudar o componente com diz o Daniel.

procedure TfrmConsultaCEP.ACBrCEP1BuscaEfetuada(Sender: TObject);
var i:integer;
begin
for i := 0 to ACBrCEP1.Enderecos.count -1 do
     with ACBrCEP1.Enderecos[i] do
     begin
      cdsCep.Append;
      cdsCepCEP.AsString := StringReplace( CEP, '-','',[]);
      cdsCepTIPOLOGR.AsString := UpperCase(Tipo_Logradouro);
      cdsCepLOGRADOURO.AsString := UpperCase(LimpaTexto(Logradouro));
      cdsCepCOMPLEMENTO.AsString := UpperCase(LimpaTexto(Complemento));
      cdsCepBAIRRO.AsString := UpperCase(LimpaTexto(Bairro));
      cdsCepMUNICIPIO.AsString := UpperCase(LimpaTexto(Municipio));
      cdsCepUF.AsString := UF;
      cdsCepMUNICIPIOIBGE.Value := IBGE_Municipio;
      cdsCep.Post
   end ;
end;

 

Editado 2 Fevereiro, 2017 por Marcio Lopes ACBr

[AlanDaSilva]

Muito Obrigado Marcio,me ajudou muito,e senhor Daniel obrigado também,mais não precisa ser sem educação, educação em primeiro lugar, só fiz uma pergunta e muito obrigado!!