Fórum Store Procedure #37324

Olá amigos,

tenho um banco em Interbase 6 e estou tentando fazer uma store procedure. Nunca fiz uma antes.

Tenho uma tabela chamada CONTA_GERAL que tem informações das contas dos usuários. Tenho também uma tabela chamada CONTA_PRODUTO que tem informações sobre os produtos comprados em cada conta. Na CONTA_GERAL tenho um campo chamado VALOR_CON que é uma parte do valor da conta, porque uma conta também pode ter produto associado, que estará na tabela CONTA_PRODUTO. Na CONTA_PRODUTO tem-se o valor unitário de cada produto e a quantidade comprada. Portanto, o valor total de uma
conta é VALOR_CON da tabela CONTA_GERAL mais a soma de VALORUNITARIO_CONPRO * QTDE_CONPRO. Estou querendo fazer uma store procedure que calcule o valor total que um usuário está devendo.

Fiz o seguinte:

SET TERM ^ ;

CREATE PROCEDURE SP_TOTALPENDENTE (COD_USUARIO INTEGER) RETURNS (TOTALCOMPUTADOR FLOAT, TOTALADICIONAL FLOAT, TOTALPENDENTE FLOAT)
AS
BEGIN
TOTALCOMPUTADOR = 0;
TOTALADICIONAL = 0;
FOR
SELECT COD_CON, VALOR_CON - DESCONTO_CON
FROM CONTA_GERAL
WHERE PAGO_CON = 0
AND COD_USU = :COD_USUARIO
INTO :COD_CONTA, :VALOR
DO
BEGIN
IF (:VALOR IS NOT NULL) THEN
TOTALCOMPUTADOR = TOTALCOMPUTADOR + :VALOR;

FOR
SELECT VALORUNITARIO_CONPRO, QTDE_CONPRO
FROM CONTA_PRODUTO
WHERE COD_CON = :COD_CONTA
INTO :VALORUNITARIO, :QTDE
DO
BEGIN
IF (:VALORUNITARIO IS NOT NULL) THEN
TOTALADICIONAL = TOTALADICIONAL + (:VALORUNITARIO * :QTDE);
END
END
TOTALPENDENTE = TOTALCOMPUTADOR + TOTALADICIONAL;
SUSPEND;
END ^

SET TERM ; ^

Mas dá um erro: Column Unknown

O que tem de errado neste código?

[]´s