Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 02-02-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Además de lo que bién te señaló birmain, noto que en la declaración de variables estas utilizando TYPE OF FLOAT, como si FLOAT se tratase de un dominio. Y también pareciera que están sobrando algunos ':'.

Intentá de este modo:
Código SQL [-]
SET TERM ^ ;

CREATE PROCEDURE PROC_TMP(V_ID_TIPO INT NOT NULL, V_ID_GRUPO INT NOT NULL,
  V_ID_PRODUCTO INT NOT NULL, V_ID_BODEGA INT NOT NULL)
RETURNS (EXISTENCIA FLOAT NOT NULL)
AS
  DECLARE ENTRADAS FLOAT;
  DECLARE SALIDAS FLOAT;
BEGIN
  SELECT SUM(D.CANTIDAD)
  FROM FER_DETALLE_MOVIMIENTO D INNER JOIN FER_TIPO_MOVIMIENTO T ON D.ID_TIPO_MOVIMIENTO = T.ID_TIPO_MOVIMIENTO
  WHERE D.ID_TIPO = :V_ID_TIPO
    AND D.ID_GRUPO = :V_ID_GRUPO
    AND D.ID_PRODUCTO = :V_ID_PRODUCTO
    AND D.ID_BODEGA = :V_ID_BODEGA
    AND T.SIGNO = '+' into :ENTRADAS;
  IF(ENTRADAS = NULL) THEN
    ENTRADAS = 0;

  SELECT SUM(D.CANTIDAD)
  FROM FER_DETALLE_MOVIMIENTO D INNER JOIN FER_TIPO_MOVIMIENTO T ON D.ID_TIPO_MOVIMIENTO = T.ID_TIPO_MOVIMIENTO
  WHERE D.ID_TIPO = :V_ID_TIPO
    AND D.ID_GRUPO = :V_ID_GRUPO
    AND D.ID_PRODUCTO = :V_ID_PRODUCTO
    AND D.ID_BODEGA = :V_ID_BODEGA
    AND T.SIGNO = '-' into :SALIDAS;
  IF (SALIDAS = NULL) THEN
    SALIDAS = 0;

  EXISTENCIA = ENTRADAS - SALIDAS;

  SUSPEND;
END^

SET TERM ; ^

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Permisos a un "procedure" o "function" snapscanes API de Windows 1 19-01-2011 00:16:46
Error "Invalid field Type" entre Delphi 2007 y Firebird 1.5 saltamirano Varios 2 24-12-2007 23:38:07
cómo puedo bajar y mover a la derecha un input type "text"? maximo_nashir HTML, Javascript y otros 9 05-09-2007 00:24:50
Traducción del mensaje "Field value required" menfis Conexión con bases de datos 1 18-02-2005 11:43:03
Solución para el error "Field ID not found" Calderin Conexión con bases de datos 5 24-11-2004 11:18:26


La franja horaria es GMT +2. Ahora son las 21:18:01.


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
Copyright 1996-2007 Club Delphi