[[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