Delphi FireMonkey: Listview e grid
Bom Dia!
Sou novo no mundo do mobile e preciso que alguém me ajude na seguinte situação:
Tenho duas querys uma puxa a venda em si e a outra os itens.
Eu consigo listar as vendas no listview, mas gostaria que quando selecionasse uma venda mandasse para outra telaI(tabcontrol) todos os itens apenas dessa venda, pode ser apenas uma listagem ou mesmo mandar todos em uma grid.
Podem me ajudar?
Obrigado pela atenção.
Sou novo no mundo do mobile e preciso que alguém me ajude na seguinte situação:
Tenho duas querys uma puxa a venda em si e a outra os itens.
Eu consigo listar as vendas no listview, mas gostaria que quando selecionasse uma venda mandasse para outra telaI(tabcontrol) todos os itens apenas dessa venda, pode ser apenas uma listagem ou mesmo mandar todos em uma grid.
Podem me ajudar?
Obrigado pela atenção.
Rafael
Curtidas 0
Respostas
Marcus Pereira
22/09/2018
Caro colega acredito que isto possa te ajudar.
No meu caso eu listo o id do campo no meu listview assumindo a posição de caption.
E então no evento de onchange do list view segue o seguinte codigo:
<delphi>procedure TFrmListaFornecedores.ListView1Change(Sender: TObject);
Var
LVI: TListViewItem;
begin
LVI := ListView1.Items[ListView1.Selected.Index];
ClientModule1.MemTableFornecedores.Filtered := false;
ClientModule1.MemTableFornecedores.Filter := 'nome = '+QuotedStr(lvi.Data['Text1'].ToString);
ClientModule1.MemTableFornecedores.Filtered := true;
AbreForm(TFrmContratarServico, FrmContratarServico);
end;</delphi>
Como utilizo memtables com o datasnap eu apenas aplico o filtro, mas no seu caso como é uma query é só utiliza-lo como parametro.
O código está muito acoplado e meio bagunçado, mas consegui resolver desta forma.
Att.
No meu caso eu listo o id do campo no meu listview assumindo a posição de caption.
E então no evento de onchange do list view segue o seguinte codigo:
<delphi>procedure TFrmListaFornecedores.ListView1Change(Sender: TObject);
Var
LVI: TListViewItem;
begin
LVI := ListView1.Items[ListView1.Selected.Index];
ClientModule1.MemTableFornecedores.Filtered := false;
ClientModule1.MemTableFornecedores.Filter := 'nome = '+QuotedStr(lvi.Data['Text1'].ToString);
ClientModule1.MemTableFornecedores.Filtered := true;
AbreForm(TFrmContratarServico, FrmContratarServico);
end;</delphi>
Como utilizo memtables com o datasnap eu apenas aplico o filtro, mas no seu caso como é uma query é só utiliza-lo como parametro.
O código está muito acoplado e meio bagunçado, mas consegui resolver desta forma.
Att.
GOSTEI 0