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)
-   -   Una consulta con débitos y créditos (https://www.clubdelphi.com/foros/showthread.php?t=17374)

Marina 06-01-2005 13:10:49

Una consulta con débitos y créditos
 
Hola a todos!

Trabajo con Interbase 6, versión gratuita.
En una tabla tengo guardados movimientos de débitos y créditos, en la cual, para diferenciarlos, se utiliza un campo TIPO que contiene una "D" o una "C"; los campos de importes y cantidades son comunes para ambos tipos de movimientos.

El problema se presenta cuando creo una vista de esta tabla, en la cual, para poder tener todo junto debo hacer una unión.
Ejemplo:

CREATE VIEW XX(
CODIGO,
DESCRIPCION,
IMPORTE,
CANTIDAD)
AS
SELECT
CODIGO,
DESCRIPCION,
IMPORTE,
CANTIDAD
FROM VEMOV
WHERE TIPO='D'

UNION ALL
SELECT
CODIGO,
DESCRIPCION,
IMPORTE * -1,
CANTIDAD
FROM VEMOV
WHERE TIPO='C'


Al usar UNION la vista se torna lenta, ya lo he podido comprobar, pero de que otra forma puedo resolver esto si no es con una unión. Existe alguna UDF que pueda usar para esto?

Gracias anticipadas.

Marina

maeyanes 06-01-2005 15:35:11

No necesitas usar un UNION para mostrar todos los registros, ya que al ser la misma tabla, con que no filtres por el campo TIPO, debes obtener todos los registros de la tabla:

Código SQL [-]
SELECT
  CODIGO,
  DESCRIPCION,
  IMPORTE,
  CANTIDAD
FROM 
  VEMOV

Marina 06-01-2005 15:56:52

Necesito hacerlo de esta forma porque luego esta vista la llamo desde otro lado donde hago SUM del campo importe, lo que me debe sumar los débitos y restar los créditos. Si no hice la distinción entre positivo y negativo me va a sumar todo y el resultado no va a ser real.

Marina

kinobi 06-01-2005 16:25:29

Hola,

Crea una columna en la vista que sea una expresión númerica de la diferencia entre débito y crédito. Después, podrás lanzar una consulta "SUM" de esa columna para obtener el resultado que buscas.

Saludos

maeyanes 06-01-2005 16:42:58

No me fijé en la multiplicación por -1 en la segunda parte...

Por que no lo hace mediante un procedimiento almacenado? Podría ser algo como:

Código SQL [-]
create procedure XX
returns(
  CODIGO INTEGER, 
  DESCRIPCION VARCHAR(n), 
  IMPORTE NUMERIC(19,2),
  CANTIDAD INTEGER)
as
declare variable TIPO CHAR(1);
begin
  for
    select
      CODIGO, DESCRIPCION, IMPORTE, CANTIDAD, TIPO
    from
      VEMOV
    into
      :CODIGO, :DESCRIPCION, :IMPORTE, :CANTIDAD, :TIPO
  do
  begin
    if (TIPO = 'C') then
      IMPORTE = IMPORTE * -1;
    suspend;
  end
end

Ya luego puedes llamar el procedimiento como un select cualquiera:

Código SQL [-]
select sum(IMPORTE) from XX

Espero que te sirva...



Saludos...

kinobi 06-01-2005 17:01:02

Cita:

Empezado por maeyanes
No me fijé en la multiplicación por -1 en la segunda parte...

Vaya, yo también caí en el mismo error. Me sumo a la idea del procedimiento almacenado.

Saludos.

Marina 06-01-2005 20:44:56

Gracias a ambos, voy a probar a ver como resulta

Marina


La franja horaria es GMT +2. Ahora son las 12:28:36.

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