Ejecutando Script con FireDac
 

Hola a todos, presento el siguiente problema.

Necesito ejecutar un Script usando el componente TFDScript para crear un procedimiento almacenado en una base de datos Firebird 3, el código donde obtengo el problema es el siguiente:

Código SQL [-]
CREATE PROCEDURE procesaMarcaciones (fecha date, numeroempleado varchar(100), idTerminal integer, hora varchar(6) ) 

As
     
 DECLARE variable kaki Cursor For (Select ID From marcaciones_procesadas Where
   Fecha = :fecha-1 And EmpleadoNumero = :numeroempleado And IDTerminal = :idTerminal And hora_salida is NULL order by ID DESC);

 
DECLARE variable c_marcaciones_dia_anterior Cursor For (Select IDTerminal From marcaciones_procesadas Where
   Fecha = :fecha-1 And EmpleadoNumero = :numeroempleado And IDTerminal = :idTerminal And hora_salida is NULL order by ID DESC);

BEGIN


   
END

Obvio que en el script van mas sentencias SQL, pero bueno, el asunto es que me salta el error siguiente:

Invalid request BLR at offset 376 undefined parameter number

Lo que noto es que si declaro un solo cursor se crea bien el procedimiento en la base de datos, el error se produce cuando intento declarar mas de un cursor. Es válido reconocer que si ejecuto el script directo en la base de datos Firebird sin usar el componente desde Delphi todo funciona perfectamente declarando mas de un cursor.

Alguna idea ?.

Gracias de antemano

¿Qué pasa si ejecutas ese script primero desde tu herramienta de administración de bases de datos? (IBExpert, por ejemplo).