Un reporte impreso con Imaginacion!!

[nelostanley]

Siempre tan gentil Lepe, tu codigo genial (pienso usarlo en otras cosillas) pero para mi problema ..... aun sigo inquieto.


He realizado un SQL compuesto:

Código Delphi [-]
Consulta.SQL.Add( 'select campoA ');
n:= 1;
Consulta_de_campos.Open;
while not Consulta_de_campos.eof
begin
Consulta.SQL.Add( ', SUM(CASE Quarter WHEN '+Quotedstr(Consulta_de_campos.Fields[0].AsString)+' THEN COL'+inntostr(n)+' ELSE 0 END) AS COL'+inttosr(n));
  Consulta_de_campos.next;
  n++;
end
Consulta.SQL.Add( ' from tabla group by campoA')

..... y funciona bien el SQL y tiene la ventaja que pueden ser N columnas (N almacenes, que es lo que necesito).

Dentro del TQuery, estan los campos creados dinamicamente, ahora LO QUE NOSE es como convertir esos campos creados dinamicamente, ponerlos en modo campos persitente en tiempo de ejecucion (que obviamente en tiempo de diseño es un dblclic en el TQuery y Add Fields) para poder usar DataSet1CampoA....DataSet1CAmpoN.

Porque hacerlo asi, porque el nro de columnas (almacenes) es dinamico puede ser 1, 4, 10 u otro. (son de esos casitos especiales que pa que explicar su origen, se dan porque se dan ).

Sera que sigo apuntando mal el camino??. Gracias por sus respuestas!!