[[Caral]]

Hola
Sin meterme en que lo que te piden, para mi es ilógico y demostrable, ya que como pretende tu jefe que hagas una totalización de las cajas (esto todavia seria medio posible) pero una tolalizacion de fechas?
Bueno, aparte de lo que pueda pensar, me parece que es un asunto de sentencia sql y que todo (en el caso de qreport) se hace en un qrband.

Código Delphi [-]
 else If Reporte = 'VentasXFechaContado' then
   begin
      ShortDateFormat := '#yyyy/mm/dd#';
      try
         QRVentasTipo:=TQRVentasTipo.Create(self);
         QRVentasTipo.ADOQuery1.SQL.Add(' AND Fecha >= '+DateToStr(DTP1.Date)+' AND Fecha <= '+DateToStr(DTP2.Date));
         QRVentasTipo.ADOQuery1.SQL.Add(' AND Factura.Terminos = "Contado" ');
         QRVentasTipo.ADOQuery1.SQL.Add(' ORDER BY Fecha, Factura.CodFactura;');
         QRVentasTipo.ADOQuery1.Open;
         ShortDateFormat := 'dd/mm/yyyy';
         QRVentasTipo.QRLabel10.Caption:= 'Reporte de Ventas detalladas Contado';
         QRVentasTipo.QRLblDesde.Caption := DateToStr(DTP1.Date);
         QRVentasTipo.QRLblHasta.Caption := DateToStr(DTP2.Date);
         If RadioGroup1.ItemIndex = 0 then QRVentasTipo.Print
         else QRVentasTipo.Preview;
      finally
         QRVentasTipo.Free;
      end;

Esto es un despacito de codigo que uso en un reporte.
Creo que no te serviran de mucho mis intervenciones, pero aprovecho para saludarte.
Saludos