sacar filas y columnas desde base de datos (Profgrid)

[robertillo]

Hola, a consideración de Lepe pongo de nuevo este hilo para ver quièn me puede ayudar.

-utilizo INTERBASE como motor de BD
-utilizo un componente profGrid
-El error es que me saca solo los datos de la última fecha y no día por día (esto es básicamente lo que quiero sacar), si me presenta los dias del 1 al 30 pero con los datos del ultimo día.

-La SQL que utilizo es:

Código SQL [-]
select extract(month from CURRENT_DATE) as mes, hr.fecha,r.cod_ruta, v.placa, v.cod_vehiculo, sum(hr.monto) as recaudacion
from ruta r, vehiculo v, historico_recaudacion hr
where
(hr.id_ruta = r.id_ruta) and
(hr.id_vehiculo = v.id_vehiculo) and
(r.cod_ruta) = 'A- SANTA ROSA' and
(hr.fecha_hora_inicio >= :FechaInicio) and
(hr.fecha_hora_fin <= :FechaFinal)
group by v.cod_vehiculo,hr.fecha,r.cod_ruta, v.placa
order by v.cod_vehiculo,hr.fecha,r.cod_ruta, v.placa

-el código que pongo en el botón es:

Código Delphi [-]
procedure TfrmPruebaProfGrid.Button1Click(Sender: TObject);
var i,f: integer;
begin
pgDatos.RowCount:= Round(Fecha2.Date-Fecha1.Date)+2;
for f:= 0 to Round(Fecha2.Date-Fecha1.Date) do
begin
Fecha1.Time:= strtoTime('00:00:00');
Query1.ParamByName('FechaInicio').AsDateTime:= Fecha1.DateTime;
Fecha1.Time:= strtoTime('23:59:59');
Query1.ParamByName('FechaFinal').AsDateTime:= Fecha1.DateTime;
Query1.Open;
if not(Query1.IsEmpty) then
begin
if pgDatos.ColCount < Query1.RecordCount+1 then
pgDatos.ColCount:= Query1.RecordCount+1;
pgDatos.Cells[0,f+1].Value:= Query1.FieldByName('fecha').AsString;
for i:= 0 to Query1.RecordCount-1 do
begin
pgDatos.Cells[i+1,0].Value:= Query1.FieldByName('cod_vehiculo').AsString+' '+Query1.FieldByName('placa').AsString;
pgDatos.Cells[i+1,f+1].Value:= Query1.FieldByName('recaudacion').AsString;
Query1.Next;
end;
end
else
ShowMessage('La consulta no devolvio datos!!!! ...');
Query1.Close;
Fecha1.Date:= Fecha1.Date+1;
end;
end;

A ver si se entiende...