Fórum Problem in BindingCursor #57671

Olá!

Estou com o seguinte erro ´Problem in BindingCursor´ ao executar a PROCEDURE abaixo no ´IBO Console´. O banco é o Firebird.


SET TERM !! ;

CREATE PROCEDURE CTC_PROC_COPIAVALORES
AS
DECLARE VARIABLE CodigoGrupo INTEGER;
DECLARE VARIABLE CodigoLista INTEGER;
DECLARE VARIABLE CodigoProduto DOUBLE PRECISION;
DECLARE VARIABLE QtdadeAlternativa FLOAT;
BEGIN

FOR SELECT ´GPO_COD´, ´LST_COD´, ´PRO_COD´, ´LSP_QTD_ALT´
FROM AUX_CTC_LISTAPRODUTO
INTO :CodigoGrupo, :CodigoLista, :CodigoProduto, :QtdadeAlternativa;
DO BEGIN

UPDATE CTC_LISTAPRODUTO
SET LSP_QTD_ALT = :QtdadeAlternativa
WHERE GPO_COD = :CodigoGrupo
AND LST_COD = :CodigoLista
AND PRO_COD = :CodigoProduto;

SUSPEND;

END
END !!

SET TERM ; !!


Se alguém puder ajudar, será de grande valia!

Desde já agradeço a atenção de todos!