Un reporte impreso con Imaginacion!!

[nelostanley]

Hola Gente,

Aqui de nuevo pellizcando la paciencia .... Estoy con reporte tipo cartesiano.

Producto vs Almacen (Sus origenes son dataset).

CODIGO ALMACEN-1 ALMACEN-2 ALMACEN-N
PRA 3 4
PRB 2 3
PRC 1
------------------------------------------------------------
TOTALES ...: 3 2 8


Nose de un componente que pueda hacer eso , pero lo hice asi; utilizar un grid y con algunos algoritmos llenar dicho grid, y hacer el calculo de los totales.

Pero bueno ... trabajoso ... pero hay que hacerlo.... ahora estoy en la fatiga de pasarlo a un reporte (QREPORT) es mi preferido .... pero solo se me ocurre lo sgte:

Cargar los datos del GRID a un Memo y llevarlo al QReport, pero con la tabulacion del Memo con los datos del grid me esta desanimando.


Entonces pregunto ..... que me recomendarian en este caso, podria existir un metodo mucho mas practico?, algun componente ? .....


De antemano muchas gracias.

[droguerman]

Este tipo de consultas son llamadas de cross table (tabla cruzada), en fastreport existe un componente para eso, no recuerdo si hay uno asi en QReport. El camino dificil es hacerlo via SQL, creando varios SELECT por separado o en subconsultas para ser unidos en uno final.

[[Lepe]]

¿Con qué base de datos trabajamos?

Si es con firebird o similar... sin problemas, se hace un Store procedure y marchando a quickreport (derechito y por la sombra).

Si hablamos de tablas planas, paradox y eso..... torcido y por el sol

Saludos

[nelostanley]

Utilizo MYSQL, pero gracias lepe me intriga eso de STORE PROCEDURE nose me vino a la cabeza, quizas un ejempplillo de arranque te lo agradeceria.

Uso SP en inserciones y actualizaciones pero en Reportes .... changos ... ni lo pense.

Saluditos

[[Lepe]]

Antes de mirar este ejemplo, busca información en mysql sobre "transform", "pivot", "decision cube", puede que ya tengas implementado lo que quieres hacer.

Aquí tienes un ejemplo

year, q1, q2, q3... serían el código y los almacenes, es decir, los parámetros de salida del SP. Como en un folio solo te cabrá 10 o 12 almacenes, tendrías 12 parámetros de salida en el SP.

saludos

[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.

[[Lepe]]

Supongo que das la posibilidad al usuario de crear almacenes, pero aún así, en el ancho de un folio, ¿cuantas columnas esperas poner como máximo?

Para hacerlo vía SP, debes saber de antemano un máximo de columnas.

Cuando ese código lo metes en un SP, tienes que crear parámetros de salida al propio SP, y después ya en delphi pones en el SQL de un tquery:

Código SQL [-]
select  * from nombreStoreProcedure

ahora doble clic al Tquery y añades los campos persistentes..... aquí te aparecen los parámetros de salida del SP y ahora ya sí puedes hacer:

DatasetCAmpo1.Value

para enlazarlo al informe o a donde quieras.

Aquí te pongo un ejemplo real, que saca los totales por semanas de todos los trabajadores entre dos fechas determinadas, lo que devuelve es:

alias   semana1 semana2 totaljornales pagasextras    pagar   atrasados
manolo   300€     200€    500 €          0 €           500€        0€
jose     300€     200€    500 €         150 €          650€        0€

Código SQL [-]

CREATE PROCEDURE SPJORNALESAPAGAR (
    DESDE DATE,
    HASTA DATE)
RETURNS (
    ALIAS VARCHAR(25),
    CATEGORIA VARCHAR(25),
    SEMANA1 NUMERIC(10,2),
    SEMANA2 NUMERIC(10,2),
    TOTALJORNALES NUMERIC(10,2),
    ANTICIPOS NUMERIC(10,2),
    PAGASEXTRAS NUMERIC(10,2),
    PAGAR NUMERIC(10,2),
    ATRASADOS SMALLINT)
AS
DECLARE VARIABLE JORNALESATRASADOS NUMERIC(10,2);
DECLARE VARIABLE ANTICIPOSATRASADOS NUMERIC(10,2);
DECLARE VARIABLE PAGASEXTRASATRASADAS NUMERIC(10,2);
begin

  ATRASADOS = 0;
for select alias,  categoria,  sum(salario) from vwjornalobra
  where idtrabajador = :idtrabajador
        and fecha between :desde and :HASTA
        and pagado = 'No'
  group by alias, categoria
  into :alias, :categoria, :TOTALjornales do
begin
  totaljornales = coalesce(totaljornales, 0.0);

  select COALESCE(sum(salario),0.0) from vwjornalobra
  where idtrabajador = :idtrabajador
        and (fecha between encodeDate(1,1, extractyear(:desde)) and :Hasta)
        and pagado = 'No'
  into :jornalesatrasados;

  jornalesatrasados = coalesce(jornalesatrasados,0.0);

  if (totaljornales <> jornalesatrasados) then
    ATRASADOS = 1;

  select coalesce(sum(salario),0.0) from vwjornalobra
  where idtrabajador = :idtrabajador
        and fecha between :desde and :DESDE + 6
        and pagado = 'No'
  into :SEMANA1;

  select coalesce(sum(salario),0.0) from vwjornalobra
  where idtrabajador = :idtrabajador
        and fecha between :desde+7 and :HASTA
        AND pagado = 'No'
  into :SEMANA2;

  select coalesce(sum(Importe),0.0)  from Anticipo
    where ANTICIPO.Idtrabajador = :IDTRABAJADOR
     and anticipo.fecha between :desde and :HASTA
     and liquidado = 'No'
  into :ANTICIPOS;

  anticipos = coalesce(anticipos, 0.0);

    select coalesce(sum(Importe),0.0)  from Anticipo
    where ANTICIPO.Idtrabajador = :IDTRABAJADOR
     and (fecha between encodeDate(1,1, extractyear(:desde)) and :Hasta)
     and liquidado = 'No'
  into :anticiposatrasados;

  anticiposatrasados = coalesce(anticiposatrasados,0.0);

  if (ANTICIPOS <> anticiposatrasados) then
    ATRASADOS = ATRASADOS + 2;

  select coalesce(sum(Importe),0.0)  from PAGAEXTRA
    where Idtrabajador = :idtrabajador
     and fecha between :desde and :HASTA
     and liquidado = 'No'
  into :PAGASEXTRAS;

  select coalesce(sum(Importe),0.0)  from PAGAEXTRA
    where Idtrabajador = :idtrabajador
     and (fecha between encodeDate(1,1, extractyear(:desde)) and :Hasta)
     and liquidado = 'No'
  into :pagasextrasatrasadas;

  if (pagasextras <> pagasextrasatrasadas) then
    ATRASADOS = ATRASADOS + 4;

  PAGAR = :jornalesatrasados + :pagasextrasatrasadas - :anticiposatrasados;

  suspend; /*devolver un registro a delphi ya que he asignado todos los 
                parámetros de salida */
end; /* end del primer for select*/


end

Como ves, lo que hago es buscar en cada tabla y asignar el valor al parámetro de salida del SP

[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