sumar los campos de un stringgrid

[Rofocale]

no funciona bueno hize esto pero me suma todo osea al hacer click en el check y poner la fecha me lo filtra normal pero me suma todo sin distinguir que puse la fecha y solo sumar el resultado de acuerdo a la fecha

Nombre total Fecha
Jose 2.5 05/05/2011
Maria 3.5 05/05/2011
Carlos 1.5 06/05/2011

al filtrar para la fecha 5 sale solo jose y maria pero la suma sale 7.5 me suma todo cuando solo deberia de salir 6

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 v WHERE 1 = 1');

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

            if(chkFecha.Checked) then begin
                SQL.Add('AND fecha = ' + quotedstr(datetostr(FechaBusq.date)));

                with dmDatos.qryConsulta do begin
                Close;
                SQL.Clear;
                SQL.Add('SELECT sum(total) AS total FROM ventas');
                Open;
                txtTotalventa.text := floattostr(FieldByName('total').AsFloat);
                end;
            end;
            open;

[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