Foros Club Delphi

Foros Club Delphi (http://www.clubdelphi.com/foros/index.php)
-   SQL (http://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   Sumar y restar campos agrupados por otro campo (http://www.clubdelphi.com/foros/showthread.php?t=92460)

netcom 05-11-2017 20:44:21

Sumar y restar campos agrupados por otro campo
 
Buenas a todos,

Os escribo después de mucho buscar a ver si podéis iluminarme con mi problema. Lo intentaré exponer lo mejor posible, si necesitarais otra información me indicáis.

Dada la siguiente tabla de ejemplo;

TABLAMOVIMIENTOS:

Cuenta--------Movimiento---Cantidad----Articulo
Empresa 1------Entrada---------3-----------X
Empresa 1------Entrada---------7-----------X
Empresa 1------Salida-----------5-----------X
Empresa 1------Entrada---------6-----------Y
Empresa 1------Salida-----------3-----------Y
Empresa 2------Entrada---------4-----------X
Empresa 2------Entrada---------4-----------X
Empresa 2------Salida-----------3-----------X
Empresa 2------Entrada---------5-----------Y
Empresa 2------Salida-----------1-----------Y

Necesito realizar una sentencia SQL que me muestre el Total de cantidades restando de Entradas-Salidas y agrupadas por Cuenta según un artículo dado. Por ejemplo,

Si lo hiciera para el artículo X, busco el siguiente resultado:

Total Artículos X empresa 1 =3+7-5 = 5
Total Artículos X empresa 2 = 4+4-3 = 5

Lo mismo si hiciera la búsqueda para el artículo Y:

Total Artículos Y empresa 1 = 6-3 = 3
Total Artículos Y empresa 2 = 5-1 = 4

Hasta ahora, he llegado a la siguiente sentencia SQL:

Código Delphi [-]
with datamodule1.AQ_Movimientos do
          Begin
            Close;
            SQL.Clear;
            SQL.Add('Select Cuenta, ((SELECT SUM(Cantidad) from TablaMovimientos WHERE Articulo= "Entrada") - ');
            SQL.Add('(SELECT SUM(Cantidad) from TablaMovimientos WHERE Articulo= "Salida")) AS TOTAL');
            SQL.Add('FROM TablaMovimientos WHERE articulo =:referencia and tipoRegistro = "Entrada" group by Cuenta');
            Parameters.ParamByName('referencia').Value:=Edit_Artículo.text;
            OPEN;
          End;

Tras ejecutarla no da error, pero el resultado no es el que quiero, para la tabla anterior me da siempre lo siguiente (sea cual sea al artículo), hace la suma-resta de toda la tabla y me da un totalizado por cuentas:

Si lo hago para un artículo X:

Total Artículos X empresa 1 = 3+7-5 +4+4-3 = 10
Total Artículos X empresa 2 = 3+7-5 +4+4-3 = 10

Y si lo hago para un artículo Y:

Total Artículos Y empresa 1 = 6-3+5-1 = 7
Total Artículos Y empresa 2 = 5-1+6-3 = 7

También he probado la misma sentencia añadiendo el parámetro artículo el la suma, pero en ese caso, el resultado de la sentencia es ninguno:

Código Delphi [-]
with datamodule1.AQ_Movimientos do
          Begin
            Close;
            SQL.Clear;
            SQL.Add('Select Cuenta, ((SELECT SUM(Cantidad) from TablaMovimientos WHERE Articulo= "Entrada") - ');
            SQL.Add('(SELECT SUM(Cantidad) from TablaMovimientos WHERE Articulo= "Salida")) AS TOTAL');
            SQL.Add('FROM TablaMovimientos WHERE articulo =:referencia and tipoRegistro = "Entrada" group by Cuenta');
            Parameters.ParamByName('referencia').Value:=Edit_Artículo.text;
            OPEN;
         End;

Alguna idea para conseguir lo que busco?!?!
Utilizo delphi XE2

Gracias por adelantado!!!

TOPX 06-11-2017 02:57:33

Buenas.

Para probar, partí de la siguiente estructura:
Código SQL [-]
CREATE TABLE movimiento (
  cuenta INTEGER,
  tipo VARCHAR(1),
  cantidad INTEGER,
  articulo VARCHAR(1)
);

INSERT INTO movimiento VALUES (1, 'E', 3, 'X');
INSERT INTO movimiento VALUES (1, 'E', 7, 'X');
INSERT INTO movimiento VALUES (1, 'S', 5, 'X');
INSERT INTO movimiento VALUES (1, 'E', 6, 'Y');
INSERT INTO movimiento VALUES (1, 'S', 3, 'Y');
INSERT INTO movimiento VALUES (2, 'E', 4, 'X');
INSERT INTO movimiento VALUES (2, 'E', 4, 'X');
INSERT INTO movimiento VALUES (2, 'S', 3, 'X');
INSERT INTO movimiento VALUES (2, 'E', 5, 'Y');
INSERT INTO movimiento VALUES (2, 'S', 1, 'Y');

Solamente cambiando unos pequeños detalles a la original, para hacer más comprensibles las consultas.

No dice qué motor de base de datos está utilizando; así que con uno convencional, bastaría con algo como:
Código SQL [-]
SELECT 
  cuenta, 
  SUM(
    CASE 
      WHEN tipo = 'S' THEN cantidad*(-1) 
      ELSE cantidad 
    END
  ) AS total
FROM movimiento
WHERE articulo = 'Y'
GROUP BY cuenta
Es decir, condicionando la suma según el valor de un campo, para que tome valores negativos o positivos.

Y ya. Se puede probar en ~ http://sqlfiddle.com/#!7/9d125/13

Pero, según sus mensajes anteriores sospecho que está utilizando Microsoft Access. Por lo que, averigüé por ahí que ese software no soporta la sentencia CASE usada anteriormente.

Entonces, lo instalé en una máquina virtual desechable y aprendí a traducir a una consulta equivalente:
Código SQL [-]
SELECT
  cuenta, 
  SUM(
    SWITCH(
      tipo = 'S', cantidad*(-1),
      tipo = 'E', cantidad
    ) 
  ) AS total
FROM movimiento
WHERE articulo = 'Y'
GROUP BY cuenta
En todo caso, es posible que obtenga los mismos resultados con un adefesio como:
Código SQL [-]
SELECT
  a.cuenta,
  ((SELECT 
    SUM(b.cantidad)
  FROM movimiento b
  WHERE a.cuenta = b.cuenta
    AND a.articulo = b.articulo
    AND b.tipo = 'E') -
  (SELECT 
    SUM(c.cantidad)
  FROM movimiento c
  WHERE a.cuenta = c.cuenta
    AND a.articulo = c.articulo
    AND c.tipo = 'S')) AS total
FROM movimiento a
WHERE a.articulo = 'Y'
GROUP BY a.cuenta, a.articulo
Que se podría llamar: la espeluznante franken-consulta. Pero, a cada quien con sus gustos.
-

netcom 06-11-2017 08:30:26

Muchas gracias Topx, esta tarde/ noche hago pruebas e informo del resultado.

netcom 06-11-2017 18:03:22

Probado y funcionando a la perfección con SWITCH.

Muchisimas Grácias Topx!!


La franja horaria es GMT +2. Ahora son las 15:49:27.

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