hola.
Me estado rompiendo la cabeza para pintar los datos de una tabla en un profgrid. Basicamente lo que quiero hacer es sacar la información de un autobus (id, placa, fecha) y los montos diarios que recaudan
quedando los datos asi:
id placa1--id placa2--id placa3
Fecha
xxx monto1 monto2 monto3
xxx monto1 monto2 monto3
xxx monto1 monto2 monto3
ya la información me la saca pero solo del ultimo día, asi que ocuparía (creo yo) comparar cada fila con la info del SQL para poder pintar en cada fila la información del dia correspondiente hasta la 30, pero no me da la cabeza en este momento. Alguien me puede ayudar, ah, utilizo: TQUERY y el componente Profgrid.
Este el procedimiento que pongo en el botón:
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;