Volver a Incrementar y asignar a un DBtext

[JoanKa]

Me explico mejor lo que pasa que esta consulta
DM_Conexiones.IBQuery1.SQL.Add('SELECT num_sig FROM CODI_INCRE1');

lo tengo en modo de diseño, y esta consulta lo paso al txt_codi.Text el valor de la consulta.(esto es la inicio y no tengo problemas).

Pero cuando esa consulta esta en modo de ejecucion obtengo ese errros


Pero la consulta es un Procedimieto almacenado es decir

CREATE PROCEDURE CODI_INCRE1
RETURNS ( NUM_SIG VARCHAR(10))
AS
begin
num_sig = 'CLI' || CAST(gen_id(siguiente_codigo,0)+1 AS VARCHAR(7));
suspend;
end


CREATE TRIGGER CODIGO_CLIENTE FOR CLIENTES
ACTIVE BEFORE INSERT POSITION 0
AS
begin
new.codi_cli = 'CLI' || CAST(gen_id(SIGUIENTE_CODIGO,1) AS VARCHAR(7));
end


CREATE GENERATOR SIGUIENTE_CODIGO;
SET GENERATOR SIGUIENTE_CODIGO TO 1009;



Todo esto me lo hace bien al momento de ingresar un cliente(por ejemplo CLI1020) pero cuando quiero ingresar otro usuario(CLI1021) alli es donde no lo obtengo (PARECIERA QUE NO LO LLAMARA EN TIEMPO DE EJECUCION AL PROCEDIMIENTO) y me sale ese error

Project Proyecto_Clientes.exe raised exception class EIBClientError with message 'use Open for a Select Statement'. Process Stopped. Use Step o Run........


Bueno espero que me puedan Ayudar.

Gracias y Saludos