sacar filas y columnas desde base de datos (Profgrid)

[robertillo]

Muchas gracias por la respuesta Lepe, tenés toda la razón, indico como lo estoy trabajando con las sugerencias tuyas:

-utilizo INTERBASE como motor de BD
-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)

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

[[Lepe]]

RecordCount que yo sepa, solo funciona en Bases como paradox, en Interbase no devuelve el valor correcto (por temas de eficiencias).

el bucle:

Código Delphi [-]
for i:= 0 to Query1.RecordCount-1 do

Puede ser sustituido perfectamente por:

Código Delphi [-]
 
query1.Open;
while not query1.eof do
....

end;

Creo que por ahí viene el error, si no es eso, tendrías que añadir en la cláusula "group by mes"... (de esto último no estoy seguro, solo lo intuyo, prueba antes lo del bucle).

Saludos.

[robertillo]

gracias Lepe por tu respuesta y perdona tanta idiotez que hice con tanto mensaje duplicado...perdón

ya probe con el bucle pero me da un error de "gridindex out of range" o algo asi.

Asumo que hay que hacer puros IF para validar cada fila de acuerdo a los datos que se van sacanndo de la base de datos (comparar filas contra info de BD), pero no se como hacerlo, o sea, serían 30 (días del mes) clausulas IF o me estaré volviendo loco?

Saludos.

[[Lepe]]

Pues no sé bien.

Creo que quieres hacer esto:

      id placa1		id placa2	id placa3
Fecha1 monto1 		monto2 		 monto3
Fecha2 monto1 		monto2 		 monto3
Fecha3 monto1 		monto2 		 monto3

No hace falta "if" de ninguna clase.

Primero, no te guíes de lo que hay en la base de datos para pintar las fechas, Haz una rutina que modifique el Grid y añada tantas filas como días tenga el mes en curso (que puede ser 28 o 29 para febrero, y 30 y 31 para el resto de meses).

para situar un registro en la fila que le corresponde, usa la función DayOf(date:TDatetime) para saber el día, que lo usarás como fila (ya que la fila cero será la fila de los títulos del Grid).

Pide la consulta ordenada por "placa" que supongo será la matrícula del autobús, y entonces puedes guiarte para rellenar toda la columna de datos.

Saludos y espero que sea lo que necesitas.

[[Lepe]]

Empezado por robertillo

ya probe con el bucle pero me da un error de "gridindex out of range" o algo asi.

Eso significa que el grid tiene 4 columnas (o filas) y tú intentas escribir en la 5
Usa ColCount y/o RowCount para que no ocurra.

Saludos

[robertillo]

Gracias Lepe, te agradezco mucho, me sirvio de mucho tu ayuda, ya me carga el grid bien y los datos de cada dia estan bien.

Ahora nada mas presento eso con un boton que genera un reporte y listo.

GRACIAS.