Fórum Componente AcbrCep carregando dados em uma EDIT. #580144
14/04/2017
0
procedure TfrmCadClientes.ACBrCEPBuscaEfetuada(Sender: TObject);
var
i : integer;
begin
for I := 0 to ACBrCEP.Enderecos.Count -1 do
begin
edtRua2.Text := ACBrCEP.Enderecos[i].Logradouro;
edtComplemento2.Text := ACBrCEP.Enderecos[i].Complemento;
edtCidade2.Text := ACBrCEP.Enderecos[i].Municipio;
cbxUF2.Text := ACBrCEP.Enderecos[i].UF;
edtBairro2.Text := ACBrCEP.Enderecos[i].Bairro;
tpEditCEP2.Text := ACBrCEP.Enderecos[i].CEP;
end;
end;
procedure TfrmCadClientes.tpEditCEPChange(Sender: TObject);
begin
ACBrCEP.BuscarPorCEP(tpEditCEP.Text);
for S := 0 to ACBrCEP.Enderecos.Count -1 do
begin
edtRua.Text := ACBrCEP.Enderecos[s].Logradouro;
edtComplemento.Text := ACBrCEP.Enderecos[s].Complemento;
edtCidade.Text := ACBrCEP.Enderecos[s].Municipio;
cbxUF.Text := ACBrCEP.Enderecos[s].UF;
edtBairro.Text := ACBrCEP.Enderecos[s].Bairro;
end;
end;
como vcs perceberam eu estou com um form e dentro deste form tenho um PageControl e 3 TTabSheets, e dentro destes 3 Tabs eu tenho dois Panel que dentro destes Panels, tenho os campos tpEditCep e tpEditCep2 aonde que digito o CEP e aparece normal, mas ele esta carregando nos outros campos, como faço pra carregar o CEP nos edits normais e o outro CEP nos edits2?
Yuri Menechelli
Curtir tópico
+ 0Posts
15/04/2017
Raimundo Pereira
Fiquei confuso, mas deixa vê se entendi.
Você, tem uma aba de consulta e outra cadastro, você quer que após a consulta os resultados além de estarem nos campos de retorno vá para aba de cadastro também, é isso?
Se entendi errado tente por fotos e explicando como você quer.
Gostei + 0
15/04/2017
Raylan Zibel
Recomento que você crie um ClientDataSet em memoria e alimente ele com o retorno da consulta (dentro do for, no ACBrCEPBuscaEfetuada). Sem tabs.
Gostei + 0
19/04/2017
Yuri Menechelli
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)