Componente AcbrCep carregando dados em uma EDIT.
Boa Tarde, primeiramente gostaria de agradecer a todos que me ajudaram em minhas perguntas e em segundo lugar, gostaria de uma outra ajuda. Estou com o componente ACBRCep, e este componente no event: OnBuscaEfetuada estou com o seguinte codigo:
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?
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
Curtidas 0
Respostas
Raimundo Pereira
14/04/2017
Bom dia!
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.
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
Raylan Zibel
14/04/2017
Se a variável "i" for 0, componentes da TabSheets1. Se "i" for 1, componentes da TabSheets2. Assim sucessivamente.
Recomento que você crie um ClientDataSet em memoria e alimente ele com o retorno da consulta (dentro do for, no ACBrCEPBuscaEfetuada). Sem tabs.
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
Yuri Menechelli
14/04/2017
Consegui eu simplesmente adicionei um outro componente do ACBRCEP e configurei tudo certinho..
GOSTEI 0