Fórum Itens selecionados em Dbgrid #331769

veja se estes códigos podem lhe ajudar, eu não uso este gerador, mais nestes códigos mostra como pelo menos percorrer os registros selecionandos


procedure Tnlancamento.btnreceberClick(Sender: TObject);
var {botão coluna esquerda: pagar itens financeiros}
i:Integer;
totalItens: Currency;
begin
totalItens:=0;
if DBGridLancamentos.SelectedRows.Count>0 then
begin
for i:=0 to DBGridLancamentos.SelectedRows.Count-1 do
begin
DBGridLancamentos.DataSource.DataSet.GotoBookmark(pointer(DBGridLancamentos.SelectedRows.Items[i]));
totalItens:=totalItens + DBGridLancamentos.DataSource.DataSet.FieldByName(´VALORLIQUIDO´).AsCurrency; //acumula o valor dos itens, pois pode ter mais de um item financeiro no carnê
end;
dmfin.Qconta.Open;
dmfin.Qbanco.Open;
dmfin.Qformapgto.Open;
try
Application.CreateForm(TnlancamentoPgto, nlancamentoPgto);
nlancamentoPgto.EdtDataPgto.Text:=nprincipal.data;
dmfin.Qauxpagamento.Open; //fecha dentro da janela lancamentoPgto
nlancamentoPgto.ShowModal(´pagarItens´, currtostr(totalItens), codpessoa);
finally
nlancamentoPgto.Release;
nlancamentoPgto:=nil;
end;
dmfin.Qformapgto.Close;
dmfin.Qbanco.Close;
dmfin.Qconta.Close;
end
else
begin
showmessage(´Selecione um ou mais itens financeiros´);
end;
end;