Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   Consulta SQL (https://www.clubdelphi.com/foros/showthread.php?t=93091)

newtron 16-05-2018 11:16:36

Consulta SQL
 
Hola a tod@s.

Necesito hacer una consulta SQL un poco rebuscada y que no sé si será posible o tendré que calcular los datos "a mano". Como ya he comentado en alguna ocasión uso una base de datos no muy conocida, ElevateDB, pero que es compatible SQL 2003.

Suponiendo que tenemos estos registros en una tabla llamada "VENTASLINEAS"

Código:

ALBARAN  FECHA      ARTICULO    CANTIDAD    PRECIO

00000001 01/05/18  001              5      10.00
00000001 01/05/18  001              1      0.00
00000001 01/05/18  002              3      5.00
00000001 01/05/18  003              10      15.00
00000001 01/05/18  003              5      0.00
00000001 01/05/18  004              7      25.00
00000002 02/05/18  003              5      15.00
00000002 02/05/18  003              1      0.00
00000002 02/05/18  001              2      10.00



El tema está en que necesitaría una consulta que, entre unas fechas determinadas, me resumiera por ALBARAN y ARTICULO pero separando en dos columnas si el artículo se ha vendido con precio o no. En el ejemplo que pongo el resultado tendría que ser el siguiente:

Código:


Código:

ALBARAN  FECHA      ARTICULO    CANT_PR CANT_SIN

00000001 01/05/18  001              5        1
00000001 01/05/18  002              3        0
00000001 01/05/18  003              10        5
00000001 01/05/18  004              7        0
00000002 02/05/18  003              5        1
00000002 02/05/18  001              2        0



Espero haberme explicado con claridad.

Gracias y un saludo


bucanero 16-05-2018 12:12:28

Hola Newtron

prueba el siguiente código:

Código SQL [-]
select ventas.albaran, ventas.fecha, ventas.articulo, sum(v1.cantidad), 
sum(case when not v2.cantidad is null then v2.cantidad else 0 end)
from (
  select ventas.albaran, ventas.fecha, ventas.articulo
  from ventas
  group by ventas.albaran, ventas.fecha, ventas.articulo
) ventas
left join  ventas v1 on v1.albaran=ventas.albaran and v1.fecha=ventas.fecha and v1.articulo=ventas.articulo and v1.precio<>0
left join  ventas v2 on v2.albaran=ventas.albaran and v2.fecha=ventas.fecha and v2.articulo=ventas.articulo and v2.precio=0
group by ventas.albaran, ventas.fecha, ventas.articulo
order by ventas.albaran, ventas.fecha, ventas.articulo

newtron 16-05-2018 12:32:41

Maemía.... a ver si algún día aprendo yo a hacer estas cosas.

Muchas gracias, es lo que necesitaba.

Saludos

duilioisola 16-05-2018 16:11:53

Creo que esta es una versión mas simple y por lo tanto mas "entendible" :)
  1. Se recorren los registros agrupados por albaran, fecha y articulo.
  2. Dentro de cada registro que se devuelve, se realizan dos subselect que suma de esa misma tabla los registros que correspondan con ese alabran, fecha y articulo.
  3. Un subselect filtra los que el precio son iguales a 0.
  4. El otro subselect filtra los que el precio son distintos de 0.
  5. A cada uno de estas sumas se les asinga un nombre (cant_pr y cant_sin).
  6. Opcionalmente se podría ordenar, pero el group by ya lo hace...

Código SQL [-]
select
       /* Campos agrupados */
       v.albaran, v.fecha, v.articulo,
       /* Suma cantidades con precio 0 dentro del albaran-fecha-articulo */
       (select sum(cantidad)
        from ventaslineas
        where
        albaran = v.albaran and
        fecha = v.fecha and
        articulo = v.articulo and
        precio <> 0) as cant_pr,
       /* Suma cantidades con precio distinto de 0 dentro del albaran-fecha-articulo */
       (select sum(cantidad)
        from ventaslineas
        where
        albaran = v.albaran and
        fecha = v.fecha and
        articulo = v.articulo and
        precio = 0) as cant_sin
from ventaslineas v
group by v.albaran, v.fecha, v.articulo

newtron 16-05-2018 18:28:23

Cita:

Empezado por duilioisola (Mensaje 526307)
Creo que esta es una versión mas simple y por lo tanto mas "entendible" :)
  1. Se recorren los registros agrupados por albaran, fecha y articulo.
  2. Dentro de cada registro que se devuelve, se realizan dos subselect que suma de esa misma tabla los registros que correspondan con ese alabran, fecha y articulo.
  3. Un subselect filtra los que el precio son iguales a 0.
  4. El otro subselect filtra los que el precio son distintos de 0.
  5. A cada uno de estas sumas se les asinga un nombre (cant_pr y cant_sin).
  6. Opcionalmente se podría ordenar, pero el group by ya lo hace...
Código SQL [-]select /* Campos agrupados */ v.albaran, v.fecha, v.articulo, /* Suma cantidades con precio 0 dentro del albaran-fecha-articulo */ (select sum(cantidad) from ventaslineas where albaran = v.albaran and fecha = v.fecha and articulo = v.articulo and precio <> 0) as cant_pr, /* Suma cantidades con precio distinto de 0 dentro del albaran-fecha-articulo */ (select sum(cantidad) from ventaslineas where albaran = v.albaran and fecha = v.fecha and articulo = v.articulo and precio = 0) as cant_sin from ventaslineas v group by v.albaran, v.fecha, v.articulo

Gracias compañero.

Saludos

gatosoft 17-05-2018 16:43:58

Cita:

Empezado por newtron (Mensaje 526302)
Hola a tod@s.
Como ya he comentado en alguna ocasión uso una base de datos no muy conocida, ElevateDB, pero que es compatible SQL 2003.

Que bueno que lo hayas solucionado, Solo quería comentar que yo también utilizo ElevateDB pero como base embebida y me ha parecido genial..!! es bastante robusta y añade poco código al ejecutable final. A diferencia de Interbase (en su versión embebida), ElevateDB permite iniciar múltiples programas cada uno conectado a su propia BD... Interbase solo permite una a la vez, en su versión embebida aclaro


saludo

newtron 17-05-2018 17:46:29

Cita:

Empezado por gatosoft (Mensaje 526344)
Que bueno que lo hayas solucionado, Solo quería comentar que yo también utilizo ElevateDB pero como base embebida y me ha parecido genial..!! es bastante robusta y añade poco código al ejecutable final. A diferencia de Interbase (en su versión embebida), ElevateDB permite iniciar múltiples programas cada uno conectado a su propia BD... Interbase solo permite una a la vez, en su versión embebida aclaro


saludo

La verdad es que no sé cómo harán las demás bases de datos pero esta tiene la ventaja de que el mismo programa con un "if..then" puedes usarlo en modo embebido o usando un servidor de base de datos solo cambiando un par de parámetros de la configuración del motor de bd. Yo en particular suelo usarlo normalmente en modo embebido por tema de comodidad pero cuando el número de "clientes" es mayor a 3 ó 4 lo activo en modo cliente/servidor.

Saludos


La franja horaria es GMT +2. Ahora son las 17:18:14.

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