Reportes no enlazados a datos !!!!!!!!

[david_uh]

hola foro
Tengo Delphi 6 con QuickReports 3.0 y deseo hacer reportes pero con subtotales algo asi:

reporte de ventas por producto
=======================
producto    fecha      Venta
--------     -----      -------
leche         1 jul       250
leche         2 jul       300
leche         3 jul       100
total                      650
azucar       1 jul       300
azucar       2 jul       100
azucar       3 jul       200
total                      600
...

es decir hacer subtotales o tambien conocidos como quiebres, me parece que para el Qreport no trabaja enlazadoa a datos sino mas bien podria jalar o procesar los datos desde una matriz, tambien he visto un evento OnNeedData que en un maual leí que se usa cuando quisck reports no enlazado a datos. Quiere decir que por ejemplo puedo usarlo sin datasources??.

gracias de antemano poir cualquier aporte

[[BlueSteel]]

algo por el estilo

yo utilizo el OnNeedData para imprimir desde un StringGrid, el motivo fue por que necesitava imprimir un listado de codigos con respectivos valores... eso lo podia hacer en QReport... pero el problema era que tenia que hacerlos por columnas, y la forma que usaba el QR no me convenia... por lo que tuve que pasar los valores a un StringGrid y luego mandarlos a imprimir...

[david_uh]

podrias por favor darme un ejemplo de como hacer esto?

[[BlueSteel]]

para empezar suponemos que ya tenemos un StringGrid (para este caso de 8 columnas y de X filas9

toda la información ya esta ingresada...

además, debes tener un QReport, y en la banda Detail debes porner tantos QRLabel como columnas tenga tu StringGrid

en el evento OnNeedData del QReport pones el sgte codigo

Código Delphi [-]
if ItemIndex < xCodigo.StrinGrid.RowCount then
begin
      QRLabel1.Caption := xCodigo.StrinGrid.Cells[0, ItemIndex];
      QRLabel2.Caption := xCodigo.StrinGrid.Cells[1, ItemIndex];
      QRLabel3.Caption := xCodigo.StrinGrid.Cells[2, ItemIndex];
      QRLabel4.Caption := xCodigo.StrinGrid.Cells[3, ItemIndex];
      QRLabel5.Caption := xCodigo.StrinGrid.Cells[4, ItemIndex];
      QRLabel6.Caption := xCodigo.StrinGrid.Cells[5, ItemIndex];
      QRLabel7.Caption := xCodigo.StrinGrid.Cells[6, ItemIndex];
      QRLabel8.Caption := xCodigo.StrinGrid.Cells[7, ItemIndex];
end;
Inc(ItemIndex);
MoreData := ItemIndex <= xCodigo.StrinGrid.RowCount;

xCodigo corresponde al formulario en donde esta el StringGrig...

y en el evento OnStartPage pones esto

Código Delphi [-]
ItemIndex1 := 1;

y despues solo debes imprimir