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!!

[[Lepe]]

Ah, perdón. Creí que querías enlazarlo al informe en tiempo de diseño.

En tiempo de ejecución, no existen "campos persistentes". En ejecución, puedes acceder a los campos vía Fields:

Código Delphi [-]
for i:= 0 to query.fileds.count -1 do
begin
  ShowMessage(query.fields[i].AsString);
  ShowMessage(query.fileds[i].FieldName);
  if query1.fields[i] is TNumericField then
    TNumericField(query1.fields[i]).displayFormat := ',#0.00 €'
end

Como ves, en tiempo de ejecución tienes acceso a todo lo que tienes en diseño y algunas cosas más.

También tienes acceso a la definición de cada campo (mira en el inspector de objetos la propiedad FieldDefs del tquery por si te interesa), pero tiene truco, primero tienes que hacer un Update de los mismos:

Código Delphi [-]
 query1.open;
 query1.fieldsDef.Update;
 // ahora ya podemos acceder a FieldsDef y ver todas sus propiedades:
 for i:= 0 to query1.fieldsdef.count-1 do
   query1.fieldsdef[i].LoQueSea

Edito: te quedaría algo así:

Código Delphi [-]
const columna = 'SUM( CASE Quarter  WHEN %s THEN COL%d ELSE 0 END) AS COL%d';
begin
  consulta.sql.clear;
  with consulta do
  for i:= 0 to Fields.count -1 do
  begin
    SQL.Add(Format(columna, [Quotedstr(Consulta_de_campos.Fields[n].AsString,n,n]);
    n++;
  end;
  Consulta.SQL.Add( ' from tabla group by campoA')

Espero que pilles la idea, porque yo no uso mysql, además al hablar en tiempo de ejecución, no sé que valores realmente hay en consulta_de_campos.

Ya que usas QuickReport, busca en el foro por "qrCreateList" es una forma de crear un listado automático a partir de una consulta cualquiera, creo que es interesante para este caso, ojalá te sirva.

De todas formas, para el quicreport siempre puedes hacer algo así:

Código Delphi [-]
quickreport.dataset := consulta;
qrDBtext1.dataField := consulta.fields[1];

// esto no sé si es necesario, me parece que no
qrDBtext1.Expression := consulta.fields[1].Fieldname;

laborioso.... pero en fins...


Saludos

[nelostanley]

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.

[[Lepe]]

Ahí está el tema compañero. O te complicas la vida haciendo el SP, usando un DBGrid y el informe sale rápido. O lo haces con stringgrids y ahora te complicas la vida con el informe .

Si pones un qrMemo y quieres tabular los datos, busca en el foro por OnNeedData, es una forma de imprimir informes sin datasets.

De otra forma no se me ocurre