Un reporte impreso con Imaginacion!!

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