sumar los campos de un stringgrid

[Rofocale]

alguien me ayuda porfavor ?

[[Caral]]

Hola

Código Delphi [-]
// primera consulta
dmDatos.cdsCliente.Active := false;
  with dmDatos.qryListados do begin
            Close;
            Text:= 'SELECT caja, numero, fecha, hora, estatus, total-iva AS subtotal,'+
                   'iva, total, cliente, clave FROM ventas v WHERE 1 = 1 ';

            if(chkCliente.Checked) then
            Begin
            SQL.Add('AND cliente IN (SELECT clave FROM clientes WHERE nombre LIKE ''%' + txtClienteBusq.Text + '%'')');
            end;
            if(chkFecha.Checked) then
            Begin
            SQL.Add('AND fecha = ' + quotedstr(datetostr(FechaBusq.date)));
            end;
 open;
 end;
  
// segunda consulta
with dmDatos.qryConsulta do begin
            Close;
            Text:= 'SELECT sum(total) AS total FROM ventas '+
                   'AND fecha = ' + quotedstr(datetostr(FechaBusq.date));
  Open;
  end;
// muestra dato
txtTotalventa.text := floattostr(FieldByName('total').AsFloat);

Saludos

[Rofocale]

Hola al compilar da error : no se puede asignar a una propiedad de solo lectura
Text:= 'SELECT.......

[[Caral]]

Hola
El error lo da en la segunda consulta y es muy logico, donde esta el where ???.

Código Delphi [-]
  
// segunda consulta
with dmDatos.qryConsulta do begin
            Close;
            Text:= 'SELECT sum(total) AS total FROM ventas '+
                   'Where fecha = ' + quotedstr(datetostr(FechaBusq.date));
  Open;
  end;
// muestra dato
txtTotalventa.text := floattostr(FieldByName('total').AsFloat);

Eso te pasa como a mi, copiar y pegar sin fijarnos....
Saludos

[Rofocale]

no era de la consulta sale error del Text dice que no se puede asignar a una propiedad de solo lectura.. por cierto ya cambie y le puse where y sigue saliendo el mismo error cannot assign to a read-only property

[[Caral]]

Hola
Ni idea...
Saludos

[Rofocale]

Código Delphi [-]
        dmDatos.cdsCliente.Active := false;
        with dmDatos.qryListados do begin
            Close;
            SQL.Clear;
            SQL.Add('SELECT caja, numero, fecha, hora, estatus, total-iva AS subtotal,');
            SQL.Add('iva, total,cliente, clave FROM ventas');

            if(chkCliente.Checked) then
            begin
                SQL.Add('AND cliente IN (SELECT clave FROM clientes WHERE nombre LIKE ''%' + txtClienteBusq.Text + '%'')');
            end;

            if(chkFecha.Checked) then
            begin
                with dmDatos.qryConsulta do
                begin
                if Active then Close;
                SQL.Clear;
                SQL.Add('SELECT fecha,total,sum(total) AS gtotal FROM ventas WHERE fecha = :fecha GROUP BY fecha,total');
                parambyname('fecha').AsDate := FechaBusq.date;
                open;
                txtTotalventa.text := floattostr(FieldByName('gtotal').AsFloat);
                end;
            end;
            open;

hola esto es lo que hize ahora pero al apretar el check para seleccionar una fecha no filtra por fecha siguen apareciendo todas las fecha y en el edit no suma el sum(total) de todos los campos solo aparece del primer campo de la fecha si en el dia 6 hay 2 campos con un total de 2.5 y 3.5 en ves de salir 6 sale solo 2.5 alguien me da una mano ?
gracias

[Rofocale]

Código Delphi [-]
  if(chkFecha.Checked) then
     begin
               dmDatos.cdsCliente.Active := false;
                with dmDatos.qryListados do
                begin
                if Active then Close;
                SQL.Clear;
                SQL.Add('SELECT f.caja, f.numero, f.fecha, f.hora, f.estatus, f.total-f.iva AS subtotal,f.iva, f.total,f.cliente, f.clave, sum(f.total) AS gtotal FROM ventas f WHERE f.fecha = :fecha GROUP BY f.caja, f.numero, f.fecha, f.hora, f.estatus,f.iva, f.total,f.cliente, f.clave');
                parambyname('fecha').AsDate := FechaBusq.date;
                open;
                txtTotalventa.text := floattostr(FieldByName('gtotal').AsFloat);
                end;

            with dmDatos.cdsCliente do begin
            Active := true;

            txtRegistros.text := inttostr(dmDatos.cdsCliente.RecordCount);
            FieldByName('caja').DisplayLabel := 'Caja';
            FieldByName('caja').DisplayWidth := 4;
            FieldByName('numero').DisplayLabel := 'Remisión';
            FieldByName('numero').DisplayWidth := 8;
            FieldByName('fecha').DisplayLabel := 'Fecha';
            FieldByName('fecha').DisplayWidth := 9;
            FieldByName('hora').DisplayLabel := 'Hora';
            FieldByName('hora').DisplayWidth := 11;
            FieldByName('estatus').DisplayLabel := 'Estatus';
            FieldByName('estatus').DisplayWidth := 7;
            FieldByName('subtotal').DisplayLabel := 'Subtotal';
            FieldByName('subtotal').DisplayWidth := 10;
    
            FieldByName('iva').DisplayLabel := 'IGV';
            FieldByName('iva').DisplayWidth := 10;
           
            FieldByName('total').DisplayLabel := 'Total';
            FieldByName('total').DisplayWidth := 10;
  
            FieldByName('cliente').Visible := false;
    
            FieldByName('clave').Visible := False;

           end;
    end

hola necesito saber como podria arreglar este codigo en la parte de group by.. ya que no me funciona bien el filtro

al probarlo de esta forma

Código Delphi [-]
SQL.Add('SELECT f sum(f.total) AS gtotal FROM ventas f WHERE f.fecha = :fecha');
                parambyname('fecha').AsDate := FechaBusq.date;
                open;
.....

el filtro funciona bien osea me suma los campos por fecha pero obviamente no me muestra nada mas que el resultado en el edit ya que no tengo mas campos agregados.. pero si les agrego los campos como en el codigo de arriba al select
me pide un group by clause
agrego el group by y los campos

pero a probarlo ya no me suma los campos correctamente y ya no filtra por fecha aparecen todos los registros de todas las fechas y al sumar solo suma el primer campo

alguien me ayuda.. que estoy haciendo mal

gracias