Jump to content
Fórum Script Brasil

tsingas

Membros
  • Content Count

    4
  • Joined

  • Last visited

Community Reputation

0 Neutro

About tsingas

  1. 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 .
  2. 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.
  3. 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
×
×
  • Create New...