Gracias Lepe,
Te cuento que ya esta el DataSet y se me ocurrio cargalo en un grid (no dbgrid). Recordemos que la cantidad de almacenes (columnas) es aleatorio pueden tener 2, 4 , 10 , etc. y en la pantalla me muestra lo que quiero.
Codigo ALM1, ALM2, ALM3 ...ALMN__ TOTAL
PROD1___1_____0____2______3_______6
PROD2___0_____2____3______1_______6
TOTAL___1_____2____5______4______12
Ahora quiero llevarlo al QREPORT, estoy intentando poner en un MEMO tabulando los espacios para que salga en orden (menuda tarea la mia), pero lo veo larguisimo.
Ahora mirando aqui:
Código Delphi
[-]
qrDBtext1.dataField := consulta.fields[1]
Como las columnas son aleatorios, he descartado hacero asi .... mas que todo porque nose como generar los qrDBtext1 dinamicamente de acuerdo a la cantidad de columnas de mi consulta.
Quizas pa no darle mas vuelta al asunto como haria para llevar los datos GRID de texto al QReport, el GRID con datos es generado a traves de codigo:
Código Delphi
[-]
Grid.Cells[0,i] := tProductosIdProducto.Value ;
Gracias por su tiempo.