Error al definir un SP

[Angel.Matilla]

Aunque tiene que ver con mi hilo anterior (Pivote: Sigo sin entenderlo... (https://www.clubdelphi.com/foros/showthread.php?t=94410)), 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:
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
Dynamic SQL Error
SQL error code = -104
Token unknown - line 14, column 8
Como bien me decía Casimiro (https://www.clubdelphi.com/foros/showpost.php?p=535446&postcount=8) 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í:
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:
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.

[Casimiro Notevi]

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

[Angel.Matilla]

No sé cuál es la línea 14, pero puede ser esto:
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.

IF (OldProc <> pProceso) THEN
Creo recordar que es
IF (OldProc <> :pProceso) THEN
Ves, eso no lo he probado. Es lo que tiene conocer mucho mejor el sistema.

En cuanto a lo segundo, necesitarías "montar" la cadena para usar "execute statement".
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.

[Angel.Matilla]

IF (OldProc <> pProceso) THEN
Creo recordar que es
IF (OldProc <> :pProceso) THEN
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.

[Casimiro Notevi]

Lo he probado y funciona bien.


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]

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:
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 Notevi]

Imagino que no has olvidado el
set term ^;

...
...

set term ;^

[Angel.Matilla]

Imagino que no has olvidado el
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 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.

[Angel.Matilla]

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:
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?

[Casimiro Notevi]

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

[Angel.Matilla]

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
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:
Dynamic SQL Error
SQL error code = -104
Token unknown - line 1, column 5
TERM
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:

[Casimiro Notevi]

Está mal:


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


SET TERM ; ^