Error al definir un SP
 

Aunque tiene que ver con mi hilo anterior (Pivote: Sigo sin entenderlo...), prefiero abrir un hilo nuevo para no liarla más.

Sé que soy muy pesado y el 90% de mis consultas tienen que ver con errores de base. Estoy tratando definir un SP en tiempo de ejecución; el query queda de esta manera:

Código SQL [-]
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 SYSDBA112042
  INTO :pProceso,    // El error lo da en esta línea
       :pCodigo, 
       :pVotos, 
       :pTotal
  DO
  BEGIN
    IF (OldProc <> pProceso) THEN
    BEGIN
      pFila = 0;
        OldProc = pProceso;
    END
    pFila = pFila + 1;
    SUSPEND;
  END
END;

Como decía en un mensaje mio de ese otro hilo si lo ejecuto desde SQL Manager tal como está se crea sin problema el SP, pero si lo hago desde la aplicación me da un error
Como bien me decía Casimiro tenía un probelma con el nombre de las variables. Como veis he cambiado los nombres, pero sigue dando el mismo error.

Por otra parte, mirando otros SP que tengo definidos en la BB.DD., se me había ocurrido que tal vez podría usar variables de entrada de forma que definiera una vez el SP y simplemente cambiara los valores que me hace falta. Había pensado algo así:

Código SQL [-]
CREATE PROCEDURE SP_PROCESO_FILAS(
         iTabla VARCHAR(100), 
         iColumna VARCHAR(25))
RETURNS (pProceso INTEGER, 
         pFila INTEGER, 
         pCodigo INTEGER, 
         pVotos INTEGER, 
         pTotal INTEGER)
AS
DECLARE VARIABLE OldProc INTEGER;
DECLARE VARIABLE pSelect VARCHAR(250);
etc...

Así al llamar al SP le pasaría el nombvre de la tabal (por ejemplo SYSDBA112042) y el de la columna que me interesa (por ejemplo Votos2), pero cuando he intentado montar el query me da un error. He probado esto:

Código SQL [-]
pSelect = 'SELECT Proceso, Codigo, ' || iColumna || ', Total FROM ' || iTabla || ' INTO :pProceso, :pCodigo, :pVotos, :pTotal';

Pero ¿cómo haría para "meter", si se puede, esa variable en el FOR? He estado mirando documentación pero no he encontrado nada que me ayude.

No sé cuál es la línea 14, pero puede ser esto:

IF (OldProc <> pProceso) THEN
Creo recordar que es
IF (OldProc <> :pProceso) THEN

En cuanto a lo segundo, necesitarías "montar" la cadena para usar "execute statement".

La línea que da el error es la que he marcado en el mensaje con el comentario; es justo la línea del INTO. Da lo mismo que variable ponga, pero esa es la que da el error.

Ves, eso no lo he probado. Es lo que tiene conocer mucho mejor el sistema.

Si se puede hacer, no me importa tener que montar la cadena para el execute statement, pero es que todas las pruebas que he hecho me dan error.

Da el mismo error, no llega ni siquiera a esa línea. No obstante, además de en el proyecto, acabo de probar en SQL Manager y con la línea que sugieres no da error. El problema es que no veo donde está el problema: SI uso el mismo código en ambos casos por qué en el programa falla y en SQL Manager no; no acabo de entenderlo.

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 ; ^

¿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.

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.

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;

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?

Ya digo, que yo sepa siempre ha sido necesario. De todas formas, no te compliques, lo pones y solucionado.

He probado a ponerlo en el código

Código SQL [-]
SET TERM ^ ;
CREATE OR ALTER PROCEDURE SP_PROCESO_FILAS (iTabla VARCHAR(50), iColumna VARCHAR(25))
RETURNS (pProceso INTEGER, pFila INTEGER, pCodigo INTEGER, pVotos INTEGER, pTotal INTEGER)
AS
DECLARE VARIABLE OldProc INTEGER;
BEGIN
    OldProc = -1;
    pFila = 0;
    FOR EXECUTE STATEMENT
    'SELECT Proceso, Codigo, ' || iColumna || ', Total FROM ' || iTabla
    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 ; ^

pero:
Dado que desde SQL Manager me deja, en la máquina que lo usan lo crearé a mano hasta que encuentre por qué falla. :mad:

Está mal:

Código SQL [-]

    SUSPEND;
  END
END ^    //  no has puesto el terminador de línea


SET TERM ; ^