Un reporte impreso con Imaginacion!!

[nelostanley]

Gracias por el Ejm Lepe, me quedo con el Ejm del Quarter y con este ejemplito casi soy feliz ....

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')

Pero para terminar de resolver me falta un conocimient0 para mi avanzado que resalta mi duda .... aunque sigo bregando no puedo resolver......

Haber ....

Con el ejemplo anterior resuelve parte mi duda genera un reporte cartesiano NxM sin problema .... no conosco los M ni los N ya que la consulta los genera.

Todo esto meto en un DataSet vacio pero nose cargar los campos dinamicamente en el dataset es decir (DataSet1CampoA.value , DataSet1CampoB ....DataSet1CampoN.value), teniendo esto asi mandarlo al reporte es lo de menos.


Nose si pude explicarlo pero por le momento mi camino esta trabao.