Procedimiento Almacenado UPDATE no se ejecuta

[Rockin]

Buena a todos, escribo porque estoy desesperado, estoy fallando en algo pero no lo veo y he mirado en todos lados ya. Tengo varios procedimientos almacenados en mi BD Firebird los cuales me devuelven un conjunto de datos y funcionan perfectamente, el problema es cuando he creado el siguiente procedimiento para actualizar un registro:

Código SQL [-]
SET TERM ^ ;

CREATE PROCEDURE LOGIN_SUTIL(
  REF INTEGER)
AS
begin
UPDATE  SESION_POPUP
SET modificar = 0
where referencia =:REF;
END^

SET TERM ; ^

El procedimiento se ejecuta pero no modifica el registros, si alguien me puede echar una mano o ver donde está el fallo se lo agradecería.

Utilizo Firebird 2.1

Saludos y gracias de antemano.

[kalimero]

Hola

Commit?

saludos

[Rockin]

Hola, ¿donde pongo el commit?
Dentro del procedimiento, nunca he usado procedimeintos para actualizar registros y no lo tengo claro.

Saludos.

[kalimero]

Hola.
Tienes que hacer el commit en el componente transaction que tengas asociado para ejecutar al procedimiento almacenado.

saludos

[Casimiro Noteví]

¿Cómo usas el procedimiento?, ¿lo llamas desde delphi, desde otro procedimiento, trigger, etc?

Pon el código de cómo trabajas con él.



Edito: Debes hacer lo que indica kalimero

[Rockin]

Lo estoy probando directamente desde el gestor de firebird (utilizo EMS Firebird Management), mi idea es llamarlo desde delphi, así desde el ClientDataSet:

Código Delphi [-]
with datDatos.CDSSesionPopup do
begin
                Close;
                CommandText:= 'execute procedure LOGIN_SUTIL (:ref)'                        
                Params.ParamByName('ref').AsInteger:= referencia;
                Execute;
end;

¿Es correcto?

[Casimiro Noteví]

¿Qué es CDSSesionPopup?

Si es un algún tipo de dataset, entonces necesitas algo así como:

Código Delphi [-]
datDatos.CDSSesionPopup.close;
datDatos.CDSSesionPopup.CommandText:='execute procedure LOGIN_SUTIL (:ref)';
datDatos.CDSSesionPopup.Params.ParamByName('ref').AsInteger := referencia;
datDatos.CDSSesionPopup.Execute;
datDatos.CDSSesionPopup.Transaction.Commitretaining;