Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)
-   -   Trasnformadas, crosstab, pivot, referencias cruzadas ... (https://www.clubdelphi.com/foros/showthread.php?t=63336)

fjcg02 10-02-2009 00:16:48

Trasnformadas, crosstab, pivot, referencias cruzadas ...
 
1 Archivos Adjunto(s)
... o como quieras llamarlo.
Os dejo un documento que he escrito. No tengo para pasarlo a pdf, por lo que lo dejo a güevo.
El documento explica qué son y explica un procedimiento almacenado que permite en base a unos parámetros extraer información de una tabla o vista o consulta haciendo la transposición de la información en base al campo que se indica para hacer de 'pivote'.
Espero que le valga a alguien, a mi me ha servido. Si alguien además de serle útil termina el tema de los meses, por favor que lo publique. Espero vuestras opiniones.
Saludos

mjjj 22-02-2010 14:12:20

Que formato tiene el archivo comprimido, NO lo puedo leer.

Saludos

fjcg02 22-02-2010 17:36:56

Formato ZIP. Acabo de abrirlo y me funciona.

SAludos

mjjj 22-02-2010 17:42:10

El ZIP no tiene problema, es el archivo que esta comprimido.

Delfino 23-02-2010 14:19:19

Cita:

Empezado por fjcg02 (Mensaje 337610)
No tengo para pasarlo a pdf

Si lo abres con el Open Office lo exportas a PDF en un click ;)

Gallosuarez 24-02-2010 23:07:02

Otra solución..
 
Srs.

Propongo otra solución mas rápida y robusta (creo yo). Utilizo CTE (Common Table Expressions). Funciona para la versión 2.1 en adelante.
Código SQL [-]
WITH USUARIO_TOTAL AS (
  SELECT USUARIO, TIPO, SUM(IMPORTE) AS TOTAL, COUNT(*) AS QTY
  FROM USUARIOS
  GROUP BY USUARIO, TIPO
)
SELECT DISTINCT U.USUARIO, GASTO.QTY AS GASTO_QTY, GASTO.TOTAL AS GASTO, 
  INGRESO.QTY AS INGRESO_QTY, INGRESO.TOTAL AS INGRESO
FROM USUARIOS U
  LEFT JOIN USUARIO_TOTAL GASTO
    ON U.USUARIO = GASTO.USUARIO AND GASTO.TIPO = 'Gasto'
  LEFT JOIN USUARIO_TOTAL INGRESO
    ON U.USUARIO = INGRESO.USUARIO AND INGRESO.TIPO = 'Ingreso';
Espero que sirva de algo...:D

Saludos

Gerardo Suárez Trejo

IVAND 24-02-2010 23:14:57

me parece muy bien ahh el sp

para tablas cruzadas yo utilizo un componente muy bueno q es de devexpress gracias por tu aporte

fjcg02 25-02-2010 14:34:56

Cita:

Empezado por Gallosuarez (Mensaje 354968)
Srs.

Propongo otra solución mas rápida y robusta (creo yo). Utilizo CTE (Common Table Expressions). Funciona para la versión 2.1 en adelante.
Código SQL [-]
WITH USUARIO_TOTAL AS (
  SELECT USUARIO, TIPO, SUM(IMPORTE) AS TOTAL, COUNT(*) AS QTY
  FROM USUARIOS
  GROUP BY USUARIO, TIPO
)
SELECT DISTINCT U.USUARIO, GASTO.QTY AS GASTO_QTY, GASTO.TOTAL AS GASTO, 
  INGRESO.QTY AS INGRESO_QTY, INGRESO.TOTAL AS INGRESO
FROM USUARIOS U
  LEFT JOIN USUARIO_TOTAL GASTO
    ON U.USUARIO = GASTO.USUARIO AND GASTO.TIPO = 'Gasto'
  LEFT JOIN USUARIO_TOTAL INGRESO
    ON U.USUARIO = INGRESO.USUARIO AND INGRESO.TIPO = 'Ingreso';
Espero que sirva de algo...:D

Saludos

Gerardo Suárez Trejo

Está muy bien, pero sigues necesitando saber previamente cuantos valores de TIPO tienes para sacar los datos. Imaginate que en el campo tipo tienes los valores UNO, DOS, TRES, CUATRO, CINCO, o los que te de la gana.

¿ Cómo pones las columnas siguientes sin modificar tu código ?
USUARIO, UNO, DOS, TRES, CUATRO, CINCO
Queda sin resolver el problema.

Por otro lado hay componentes como los de devexpress y otros que te permiten hacerlo, incluso creo que fastreport también tiene un componente para generar listados de esta manera, pero bajo mi punto de vista, prefiero poner la información en pantalla y que el usuario laimprima cuando realmente lo necesite. Ahora, mi experiencia con ellos no ha sido muy buena - no me refiero al componente de devexpress ya que no lo conozco - .
Ahora, esta solución es gratis y no necesitas soltar eurakos o dolares por delante.

Saludos

MDante 19-09-2012 03:33:24

Consulta
 
Hola fjcg02 soy un novato en programación de bases de datos hace tiempo que busco resolver el problema de presentar información de esta manera

Código:

Clavealumno    horaentrada          diames1  diames2  diames3  diames4  hasta el dia 31 del X mes

1                8:30 am            8:25am    8:20am    8:50 am  9:28 am  ----------------------->

he utilizado el fragmento de código que compartiste sin embargo hasta el momento no logro hacerlo funcionar mi versión de firebird es la 2.1 y la ejecuto tanto en ibexpert como en firebird maestro y el resultado es el mismo ingrese los datos como sugieres el archivo de word en una tabla llamada testing con columnas llamadas NOMBRE, FECHA, TIPO, IMPORTE y los importe a la base de datos y cada vez que ejecuto el procedimiento desde cualquiera de los dos programas mencionados con los parametros

(TABLA = TESTING )( CAMPO_VISUALIZAR = NOMBRE)( CAMPO_PIVOTE = FECHA) (CONDICIONES = VACIO)

y el resultado no importa que combinación de parámetros use el error siempre es:
Engine Error (code = 335544569):
Dynamic SQL Error.
SQL error code = -206.
Column unknown.
TESTING.
At line 2, column 21.

SQL Error (code = -206):
Column does not belong to referenced table


aunque esto solo era para un proyectito para ganar algunos puntos en la escuela los cuales ya no me gane jeje me esta volviendo loco ya que dure varios días intentando resolver este problema, MS SQL ya lo hace pero me siento a un paso de lograrlo en firebird por eso sigo persistiendo.

tambien he utilizado este tipo de query pero solo me devuelve valores 1 y 0 aunque si con una elegante tabla como yo necesito, esto es en la copia de la base de datos que nos da la escuela
la cual tiene como estructura: TABLA ASISTENCIA
COLUMNAS CLAVEALUMNO(INT) ENTRADA(TIMESTAMP) REGISTROENTRADA(TIMESTAMP)


Código SQL [-]
select distinct 
    clavealumno as clave,
    count( registroentrada) as entrada,
    count( case when extract (day from entrada) = 1 then cast(asistencia.REGISTROENTRADA as date) end ) as dia1,
    count( case when extract (day from entrada) = 2 then cast(entrada as date) end ) as dia2,
    count( case when extract (day from entrada) = 3 then cast(entrada as date) end ) dia3,
    count( case when extract (day from entrada) = 4 then cast(entrada as date) end ) dia4,
    count( case when extract (day from entrada) = 5 then cast(entrada as date) end ) dia5,
    count( case when extract (day from entrada) = 6 then cast(entrada as date) end ) dia6,
    count( case when extract (day from entrada) = 7 then cast(entrada as date) end ) dia7,
    count( case when extract (day from entrada) = 8 then cast(entrada as date) end ) dia8,
    count( case when extract (day from entrada) = 9 then cast(entrada as date) end ) dia9,
    count( case when extract (day from entrada) = 10 then cast(entrada as date) end ) dia10,
    count( case when extract (day from entrada) = 11 then cast(entrada as date) end ) dia11,
    count( case when extract (day from entrada) = 12 then cast(entrada as date) end ) dia12,
    count( case when extract (day from entrada) = 13 then cast(entrada as date) end ) dia13,
    count( case when extract (day from entrada) = 14 then cast(entrada as date) end ) dia14,
    count( case when extract (day from entrada) = 15 then cast(entrada as date) end ) dia15
from asistencia
where 
   (
      (clavealumno < 400)
   and 
      (registroentrada between cast('10/1/2010'as date) and cast('10/15/2010' as date))
   )
group by clavealumno
order by 1

ojala alguien mas que vea el tema aporte sus valiosos conocimientos para lograr hacer un query funcional ya que en ningún lado de la red alguien a compartido algo similar

les dejo una copia de la tabla de la base de datos con información real de entre octubre de 2009 hasta octubre 2011 aprox sobre clave, horario de entrada y registroentrada

https://skydrive.live.com/redir?resi...JwNTFW0rK0bA00

saludos

Casimiro Notevi 19-09-2012 03:37:14

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración :)

Recuerda poner los tags al código fuente, ejemplo:



Gracias :)

fjcg02 19-09-2012 23:54:25

Hola MDante,
vamos por partes porque estás confundiendo algunos términos...
Código SQL [-]
...
    count( registroentrada) as entrada,
    count( case when extract (day from entrada) = 1 then cast(asistencia.REGISTROENTRADA as date) end ) as dia1,
    count( case when extract (day from entrada) = 2 then cast(entrada as date) end ) as dia2,
    count( case when extract (day from entrada) = 3 then cast(entrada as date) end ) dia3,
    count( case when extract (day from entrada) = 4 then cast(entrada as date) end ) dia4,
    count( case when extract (day from entrada) = 5 then cast(entrada as date) end ) dia5,
    count( case when extract (day from entrada) = 6 then cast(entrada as date) end ) dia6,
    count( case when extract (day from entrada) = 7 then cast(entrada as date) end ) dia7,
    count( case when extract (day from entrada) = 8 then cast(entrada as date) end ) dia8,
    count( case when extract (day from entrada) = 9 then cast(entrada as date) end ) dia9,
    count( case when extract (day from entrada) = 10 then cast(entrada as date) end ) dia10,
    count( case when extract (day from entrada) = 11 then cast(entrada as date) end ) dia11,
    count( case when extract (day from entrada) = 12 then cast(entrada as date) end ) dia12,
    count( case when extract (day from entrada) = 13 then cast(entrada as date) end ) dia13,
    count( case when extract (day from entrada) = 14 then cast(entrada as date) end ) dia14,
    count( case when extract (day from entrada) = 15 then cast(entrada as date) end ) dia15
...
Piensa lo que estás haciendo... count "cuenta" las veces que aparece, por lo tanto, te saldrán como valores 1 ó cero, ya que son las veces que aparecen registros con esos datos. Entiendo que en tu tabla hay un registro por día.
Si hay un registro por día te valdría sustituir el count por first o last, y supongo que te saldría el resultado que esperas, es decir, la hora de entrada de cada día.

Respecto a la función que publiqué, le falta un parámetro, que es el campo a sumar. Supongo que es lo que está mal.
Si no recuerdo mal, el procedimiento genera una sentencia sql. Haz pruebas y pon los parámetros de entrada y la sentencia que genera en cada caso, para que pueda analizarlas. A ver si puedo ponerte algo de luz en el asunto.

Estamos en contacto.

Saludos

MDante 20-09-2012 02:54:32

Primero que nada, gracias por tomarte la molestia de responder , en efecto el código que tu nos ofreces funciona perfectamente cuando hay campos a sumar lo único que me faltaba hacer era colocar los campos entre apostrofes , sin embargo yo no tengo ningún campo a sumar, aunque de todas formas me funciona de maravilla para otras cosas, por otra parte por supuesto que se que el valor devuelto de count es un valor nonull y debido a mi inexperiencia esperaba encontrar alguna sentencia en alguna parte de Internet que me devolviera el campo que necesito, que son las fechas en columnas, sin embargo también funciona como lista de asistencia, después de todo ese era el proyecto que tenia por encargo, desplegar en una lista las asistencias de los alumnos por cada día del mes, y ya que devuelve valores nonull, en las fechas donde no hay asistencia devuelve un cero y donde hay asistencia devuelve un hermoso 1 , me habría gustado mas que apareciera la hora por cada día, pero ya que no logro hacer eso ni con transform y pivot en MS SQL llegue a la conclusión de que mejor voy a desplegar la información reacomodandola mediante uso de matrices y después enviarlos a un dataset o un datatable ya que yo uso C# soy nuevo en rad studio y mi versión caducará pronto pero me encanto trabajar en rad studio cuando logre hacerlo prometo publicar un prototipo para quien quiera usarlo tanto en C# como en delphi.


Saludos y hasta pronto

MDante 20-09-2012 03:18:41

Por cierto olvide poner el query que me devuelve unos y ceros jeje


Código Delphi [-]
select distinct 
    clavealumno as clave,
    count( registroentrada) as entrada,
    count( case when cast (entrada as date) = '10/01/2010' then 0 end ) as dia1,
    count( case when cast (entrada as date) = '10/02/2010' then 0 end ) as dia2,
    count( case when cast (entrada as date) = '10/03/2010' then 0 end ) as dia3,
    count( case when cast (entrada as date) = '10/04/2010' then 0 end ) as dia4,
    count( case when cast (entrada as date) = '10/05/2010' then 0 end ) as dia5,
    count( case when cast (entrada as date) = '10/06/2010' then 0 end ) as dia6,
    count( case when cast (entrada as date) = '10/07/2010' then 0 end ) as dia7,
    count( case when cast (entrada as date) = '10/08/2010' then 0 end ) as dia8,
    count( case when cast (entrada as date) = '10/09/2010' then 0 end ) as dia9,
    count( case when cast (entrada as date) = '10/10/2010' then 0 end ) as dia10,
    count( case when cast (entrada as date) = '10/11/2010' then 0 end ) as dia11,
    count( case when cast (entrada as date) = '10/12/2010' then 0 end ) as dia12,
    count( case when cast (entrada as date) = '10/13/2010' then 0 end ) as dia13,
    count( case when cast (entrada as date) = '10/14/2010' then 0 end ) as dia14,
    count( case when cast (entrada as date) = '10/15/2010' then 0 end ) as dia15
from asistencia
where 
   (
      (clavealumno < 400)
   and 
      (registroentrada between cast('10/1/2010'as date) and cast('10/15/2010' as date))
   )
group by clavealumno
order by 1

fjcg02 21-09-2012 00:26:35

A ver, hombre de poca fe...

Vas a probar con esto, que significa básicamente lo siguiente...

Cogeme las fechas de entrada de los alumnos y haces esto
- si es el día uno, coges la hora y la conviertes a caracteres. Si no es día uno te quedas con el valor '00:00'. Te quedas con el valor más alto ( es decir, el que tenga un valor ).
- Así para cada día.

Además, me lo agrupas por alumno.

Código SQL [-]
select clavealumno as clave,
 max( case when extract(day from entrada) = 1 then cast(cast(entrada as time) as varchar(25)) else '00:00' end) as "DIA 1" ,
 max( case when extract(day from entrada) = 2 then cast(cast(entrada as time) as varchar(25)) else '00:00' end) as "DIA 2" ,
 max( case when extract(day from entrada) = 3 then cast(cast(entrada as time) as varchar(25)) else '00:00' end) as "DIA 3" ,
 max( case when extract(day from entrada) = 4 then cast(cast(entrada as time) as varchar(25)) else '00:00' end) as "DIA 4" ,
 max( case when extract(day from entrada) = 5 then cast(cast(entrada as time) as varchar(25)) else '00:00' end) as "DIA 5" ,
 max( case when extract(day from entrada) = 6 then cast(cast(entrada as time) as varchar(25)) else '00:00' end) as "DIA 6" ,
 max( case when extract(day from entrada) = 7 then cast(cast(entrada as time) as varchar(25)) else '00:00' end) as "DIA 7" ,
 max( case when extract(day from entrada) = 8 then cast(cast(entrada as time) as varchar(25)) else '00:00' end) as "DIA 8" ,
 max( case when extract(day from entrada) = 9 then cast(cast(entrada as time) as varchar(25)) else '00:00' end) as "DIA 9" ,
 max( case when extract(day from entrada) = 10 then cast(cast(entrada as time) as varchar(25)) else '00:00' end) as "DIA 10" ,
 max( case when extract(day from entrada) = 11 then cast(cast(entrada as time) as varchar(25)) else '00:00' end) as "DIA 11" ,
 max( case when extract(day from entrada) = 12 then cast(cast(entrada as time) as varchar(25)) else '00:00' end) as "DIA 12" ,
 max( case when extract(day from entrada) = 13 then cast(cast(entrada as time) as varchar(25)) else '00:00' end) as "DIA 13"

 from asistencia
where 
   (
      (clavealumno < 400)
   and 
      (registroentrada between cast('10/1/2010'as date) and cast('10/15/2010' as date))
   )
group by clavealumno

Lo pruebas, si funciona perfecto, pero te dejo de deberes que lo estudies y lo entiendas.

Nos informas, majete.

Saludos
PD: A ver si te ganas esa buena nota, aunque sea tarde.

Angel.Matilla 20-10-2018 11:13:17

Cita:

Empezado por fjcg02 (Mensaje 337610)
Os dejo un documento que he escrito.

Perdonad que retome este tema ya antiguo pero es que estaba tratando de solucionar precisamente ese problema y veo que ese procedimiento es más o menos la solución que me hace falta. He estado viéndolo y tengo una duda: ¿qué pasa si son dos los campos sobre los que hay que hacer el pivote?


Dicho de otra manera. Yo tengo esto en una tabla:



Es evidente que la salida que necesito es esta:
Código:

GRUPO1  GRUPO2  GRUPO3  DATO1  GRUPO3x  DATO1x
12      3        3        7      4        246

Y no veo bien como puedo usar ese procedimiento que ha disñeado fjcg02. ¿Podéis echarme una mano?

fjcg02 20-10-2018 16:00:26

Hola,

de esto ha llovido mucho, pero dices que es evidente la salida que quieres.

Yo no la veo tan evidente. Por eso te está costando tanto.

Piensa un poco a ver si la solución que quieres implantar es la más conveniente.


Un saludo

Angel.Matilla 22-10-2018 11:31:09

Cita:

Empezado por fjcg02 (Mensaje 529125)
de esto ha llovido mucho, pero dices que es evidente la salida que quieres.

Yo sí la veo evidente, o al menos me lo parece. Vale: Lo que estoy mostrando son códigos pero al fin y al cabo da lo mismo poner el código que su equivalencia. Hay dos campos comunes en ambas filas, los valores de Grupo1 y Grupo2, y el resto de la información (las otras dos columnas) son las variables. Mi probelma viene en que no veo como implementar el el procedemiento para que sean esas dos columnas las que guíen el "pivote".

Angel.Matilla 22-10-2018 12:40:34

La salida que monto en pantalla es esta:

Este TListView lo monto con un query con el que saco el número de columnas necesarias (al margen, en este caso, de las dos primeras):
Código SQL [-]
SELECT DISTINCT A.Grupo3, B.Literal 
FROM Estadistica A, Instalacion B 
WHERE B.Etiqueta = 'Situacion' AND A.Grupo3 = B.Valor
ORDER BY 1, 2

Luego busco todas las combinaciones distintas Grupo2, Grupo1:
Código SQL [-]
SELECT DISTINCT A.Grupo2, B.Nombre, A.Grupo1, C.Nombre
FROM Estadistica A, Profesion B, Junta C
WHERE A.Grupo2 = B.Codigo  AND A.Grupo1 = C.Codigo
ORDER BY 2, 4
Con este query creo cada una de las líneas del TListView e incorporo la información de las dos primeras columnas. Luegop, para cada fila del mismo ejecuto este otro:

Código SQL [-]
SELECT Grupo3, Dato1
FROM Estadistica 
WHERE Grupo1 = :Grupo1 AND Grupo2 = :Grupo2
ORDER BY 1, 2

Y con el resultado del mismo voy poniendo la información en las columnas correspondientes. Lo que busco es lógicamente simplificar esta maraña de código.

fjcg02 23-10-2018 00:16:06

Hola,

yo creo que es exactamente lo que necesitas lo que hace el procedimiento que escribí.
Por un lado los campos por los que se agrupa.
Por otro, los campos que van a dar las cabeceras.

Luego el montaje con los valores.

Creo que ahora lo he entendido. Sería más claro que pongas un juego de ensayo con más registros y mostrando la salida. También que en lugar de códigs pongas literales, que clarifica bastante más.

Un saludo

Angel.Matilla 23-10-2018 11:07:23

Cita:

Empezado por fjcg02 (Mensaje 529173)
yo creo que es exactamente lo que necesitas lo que hace el procedimiento que escribí.
Por un lado los campos por los que se agrupa.
Por otro, los campos que van a dar las cabeceras.

Sí, ayer estuve viendo el código y creo que se aproxima bastante a lo que me hace falta. Lo que pasa que al tratar de probarlo con SQL Manager me da un error y no lo veo:
Cita:

Error: "Unsuccessful metadata update.
STORE RDB$PROCEDURES failed.
Malformed string.

SQL Code: -607
IB Error Number: 335544351"


La franja horaria es GMT +2. Ahora son las 17:29:38.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi