Delphi FireMonkey: Listview e grid

22/09/2018

17

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.
Responder

Posts

04/10/2018

Marcus Pereira

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.
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira