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)
-   -   Usando variables (https://www.clubdelphi.com/foros/showthread.php?t=98025)

Angel.Matilla 10-04-2026 12:12:00

Usando variables
 
Hace tiempo me resolvisteis una duda que tenía sobre como usar variables en un query. Me hace falta volver a usar esa metodología.
Tengo esta tabla:

y sobre la misma ejecuto este query:
Código SQL [-]
SELECT CAST(RDB$GET_CONTEXT('USER_TRANSACTION', 'IMPDTO') AS DOUBLE PRECISION),
       RDB$SET_CONTEXT('USER_TRANSACTION', 'IMPDTO', (SELECT SUM(ImpDto) FROM Factura WHERE NumFactura IN (3,4)))
  FROM Factura WHERE NumFactura IN (3,4)
y el resultado que me da es este:

La realidad es que debería darme sólo la segunda línea. ¿Por qué me da dos filas en vez de una sola? Y es que el problema viene porque si trato de usar esa variable en el query en el que de verdad me hace falta:
Código SQL [-]
SELECT RDB$SET_CONTEXT('USER_TRANSACTION', 'IMPDTO', (SELECT SUM(ImpDto) FROM Factura WHERE NumFactura IN (3,4))),
       CAST(RDB$GET_CONTEXT('USER_TRANSACTION', 'IMPDTO') AS DOUBLE PRECISION) ImpDto, 
       SUM(Bruto) Bruto, 
       CASE WHEN SUM(Bruto - ImpDto) = SUM(Bruto) THEN 0 ELSE SUM(Bruto - ImpDto) END Base, 
       SUM(Iva) Iva, SUM(Bruto - ImpDto + Iva) Total
  FROM Factura WHERE NumFactura IN (3,4)
Me hace esto

Que, evidentemente, no es lo que busco porque no me devuelve el valor de la variable definida. Aunque, curiosamente, el CASE del query sí va por el lado adecuado. No lo entiendo.

Casimiro Noteví 10-04-2026 17:25:55

El problema es que estás usando RDB$SET_CONTEXT dentro de un SELECT que devuelve varias filas, por lo que la función se ejecuta una vez por cada fila.
En Firebird estas funciones no son “variables globales” sino que se evalúan por fila.
Si quieres que se ejecute una sola vez, usa FROM RDB$DATABASE, o mejor aún, evita SET_CONTEXT y usa una subconsulta o CTE.

Te copio respuesta del primo chatgpt:


Angel.Matilla 10-04-2026 17:40:37

Muchas gracias por las sugerencias. La que pones como opción 2 es la que estaba usando, pero me hace falta reutilizar el valor.

Sin embargo al probar la tercera opción que me das me genera un error:
Cita:

Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Invalid expression in the select list (not contained in either an aggregate function or the GROUP BY clause).
Y no veo donde poner el GROUP BY.

Angel.Matilla 10-04-2026 17:52:33

Y la opción 1 efectivamente devuelve un única fila, pero con todos los valores a cero.

Casimiro Noteví 10-04-2026 18:05:51

¿Será así?
Código SQL [-]
SELECT
  SUM(ImpDto) ImpDto,
  SUM(Bruto) Bruto,
  CASE 
    WHEN SUM(Bruto - ImpDto) = SUM(Bruto) THEN 0 
    ELSE SUM(Bruto - ImpDto) 
  END Base,
  SUM(Iva) Iva,
  SUM(Bruto - ImpDto + Iva) Total
FROM Factura
WHERE NumFactura IN (3,4);

Angel.Matilla 10-04-2026 18:37:22

Así es como lo tenía. Tendré que ver como apaño el resultado para usarlo. No sé si no estaré dando vueltas sin sentido. Gracias.


La franja horaria es GMT +2. Ahora son las 06:32:44.

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