Error al definir un SP

[Casimiro Noteví]

Lo he probado y funciona bien.

Código SQL [-]
SET TERM ^ ;

CREATE PROCEDURE SP_PROCESO_FILAS
RETURNS (pProceso INTEGER, 
         pFila INTEGER, 
         pCodigo INTEGER, 
         pVotos INTEGER, 
         pTotal INTEGER)
AS
DECLARE VARIABLE OldProc INTEGER;
BEGIN
  OldProc = -1;
  pFila = 0;
  FOR SELECT Proceso, codigo, votos2, total
  FROM ABC
  INTO :pProceso,    
       :pCodigo, 
       :pVotos, 
       :pTotal 
  DO
  BEGIN
    IF (OldProc <> pProceso) THEN
    BEGIN
      pFila = 0;
        OldProc = pProceso;
    END
    pFila = pFila + 1;
    SUSPEND;
  END
END ^


SET TERM ; ^

[Angel.Matilla]

Empezado por Casimiro Notevi

Lo he probado y funciona bien.

¿Con una utilidad de FB? Así a mi también me funciona y crea el procedure sin problemas; el error lo da cuando se ejecuta desde código, POr hacer una tontería, porque lo es, he cambiado un trozo de un línea de sitio:

Código SQL [-]
CREATE OR ALTER PROCEDURE SP_PROCESO_FILAS
RETURNS (pProceso INTEGER,
         pFila INTEGER,
         pCodigo INTEGER,
         pVotos INTEGER,
         pTotal INTEGER)
AS
DECLARE VARIABLE OldProc INTEGER;
BEGIN
  OldProc = -1;
  pFila = 0;
  FOR SELECT Proceso, Codigo, Votos2, Total
      FROM SYSDBA182734 INTO
           :pProceso,    // <------ AQUÍ ES DONDE DA EL ERROR
           :pCodigo,
           :pVotos,
           :pTotal
  DO
  BEGIN
    IF (OldProc <> pProceso) THEN
    BEGIN
      pFila = 0;
      OldProc = pProceso;
    END
    pFila = pFila + 1;
    SUSPEND;
  END
END;

En cualquier caso da el error en esa línea justo detrás del INTO y da el error que comentaba al principio: Token unknown. Sumado a que es un tema que no manejo excesivamente bien, me tiene completamente despistado. Es como si esa declaración del uso de la variable tuviera algún error.

[Casimiro Noteví]

Imagino que no has olvidado el

Código SQL [-]
set term ^; 

...
...

set term ;^

[Angel.Matilla]

Empezado por Casimiro Notevi

Imagino que no has olvidado el

Código SQL [-]
set term ^; 

...
...

set term ;^

Pero haciéndolo por código, desde el programa, no hace falta ¿o sí? Porque en otros procedures que defino así no hace falta los set term.

[Casimiro Noteví]

Que yo sepa, los SP y los triggers lo necesitan. Yo siempre lo he hecho así, no he probado a no ponerlo.
Y si usas ibexpert, sql manager, etc. lo hacen automáticamente ellos, aunque tú no lo pongas.

[Angel.Matilla]

Empezado por Casimiro Notevi

Que yo sepa, los SP y los triggers lo necesitan. Yo siempre lo he hecho así, no he probado a no ponerlo.
Y si usas ibexpert, sql manager, etc. lo hacen automáticamente ellos, aunque tú no lo pongas.

Sí, con SQL Manager lo ponen automáticamente, pero por por código no hace falta. Tengo dos o tres definidos en el proyecto y se han ejecutado bien sin tener que poner set term. Por ejemplo:

Código SQL [-]
CREATE PROCEDURE Grant_BBDD(iUsuario VARCHAR(31)) AS
   DECLARE VARIABLE Objeto VARCHAR(31);
BEGIN
   -- Se otorgan derechos sobre las tablas y sobre las vistas

   FOR SELECT RDB$RELATION_NAME FROM RDB$RELATIONS
   WHERE RDB$SYSTEM_FLAG = 0
   INTO :Objeto
   DO
      EXECUTE STATEMENT 'GRANT ALL ON ' || Objeto || ' TO ' || iUsuario;

   -- Se otorgan derechos sobre los stored procedures

   FOR SELECT RDB$PROCEDURE_NAME FROM RDB$PROCEDURES
   WHERE RDB$SYSTEM_FLAG = 0
   INTO :Objeto
   DO
      EXECUTE STATEMENT 'GRANT EXECUTE ON PROCEDURE ' || Objeto || ' TO ' || iUsuario;
END;

[Angel.Matilla]

No lo entiendo. Es como si al ejecutarse desde Builder Firebird desconociera que significan los dos puntos que preceden a los nombres de las variables. He probado borrando los otros dos procedimientos que hay definidos en la BB.DD. y al lanzar el programa, que lo primero que hace es validar todos los elementos de la misma, ahora da el mismo error en cualquiera de ellos. ¿Podría tener que ver con el motor o con la conexión?