tsingas
Membros-
Total de itens
4 -
Registro em
-
Última visita
Sobre tsingas
tsingas's Achievements
0
Reputação
-
Ola Pessoal! Uso dlphi 10 + firebird 2,5 e componentes firedac para coneccao, Tenho um db grid com filtros de data grupo e sub grupo preciso somar um totoal da coluna valor em um edit total colocado no dbgrid (obs o total deve obedecer os filtros) por ex se filtrar a data do dia 01 a dia 10 somar somente os valores mostrados no grid desta data ou grupo ou subgrupo .
-
Boa tarde Consegui resolver assim : procedure TFormFiltroClientes.Filtrar2; begin fdQryFiltro.Close; fdQryFiltro.SQL.Clear; fdQryFiltro.sql.Add('Select * from clientes join grupo on grupo.id_grupo = clientes.id_grupo join subgrupo on subgrupo.id_subgrupo = clientes.id_subgrupo join fpagamento on fpagamento.id_fpagamento = clientes.id_fpagamento join conta on conta.id_conta = clientes.id_conta'); fdQryFiltro.SQL.Add(' WHERE 1=1 '); if cbGrupo.Checked then begin fdQryFiltro.SQL.Add(' AND UPPER(TRIM(GRUPO)) LIKE ' + QuotedStr('%' + UpperCase(Trim(edtFiltro.Text)) + '%' ) ); end; if edtDate1.Date >0 then begin fdQryFiltro.SQL.Add(' AND DATA >= ' + QuotedStr(FormatDateTime('DD.MM.YYYY',edtDate1.DATE))); end; if edtDate2.Date >0 then begin fdQryFiltro.SQL.Add(' AND DATA <= ' + QuotedStr(FormatDateTime('DD.MM.YYYY',edtDate2.DATE))); end; fdQryFiltro.Open(); fdQryFiltro.FetchAll; end; Muito obrigado pelo apoio Jhonas.
-
Bom dia pessoal preciso de ajuda tenho no dbgrid os dados que preciso fitrar da tabela clientes campo data obs uso componentes do firedac para conecxao dataset query etc segue a parte que parei no codico : procedure TFormFiltroClientes.Filtrar; begin fdQryFiltro.Close; fdQryFiltro.SQL.Clear; fdQryFiltro.sql.Add('Select * from clientes join grupo on grupo.id_grupo = clientes.id_grupo join subgrupo on subgrupo.id_subgrupo = clientes.id_subgrupo join fpagamento on fpagamento.id_fpagamento = clientes.id_fpagamento join conta on conta.id_conta = clientes.id_conta'); fdQryFiltro.SQL.Add(' WHERE 1=1 '); If edtData2.Date < edtData1.Date Then begin ShowMessage('Intervalo de datas inválido, a data inicial é maior que a data final!'); end; //edtData 1 e edtData2 são os componentes tdatetimerpicker