ActiveDelphi

[juninhoted]

Boa noite.
Preciso de ajuda para resolver o erro que ocorre nesta store procedure; Banco firebird 2.1

acontece o seguinte erro;
ISC ERROR CODE:335544569

ISC ERROR MESSAGE:
Dynamic SQL Error
SQL error code = -104
Token unknown - line 25, column 26
>






COMMIT WORK;
SET AUTODDL OFF;
SET TERM ^ ;
CREATE PROCEDURE CAIXA3(
DATAINICIAL DATE)
RETURNS (
DATA DATE,
SALDOANTERIOR NUMERIC(9,2),
CREDITO NUMERIC(9,2),
DEBITO NUMERIC(9,2),
SALDOATUAL NUMERIC(9,2))
AS
DECLARE VARIABLE VALORCREDITO NUMERIC(9,2);
DECLARE VARIABLE VALORDEBITO NUMERIC(9,2);
DECLARE VARIABLE DATAFINAL DATE;
BEGIN
DATA = DATAINICIAL;
DATAFINAL = CURRENT_DATE;

SELECT COALESCE(SUM(VR_PARCELA),0)
FROM CTRECEBER
WHERE (DT_VENCTO < :DATA)
INTO :VALORCREDITO;

SELECT COALESCE(SUM(VR_PARCELA),0)
FROM CTPAGAR
WHERE(DT_VENCTO < :DATA)
INTO :VALORDEBITO;


SALDOANTERIOR = VALORCREDITO - VALORDEBITO;


WHILE (DATA <DATAFINAL> 0) or (DEBITO > 0)) DO
BEGIN
SUSPEND;

DATA = DATA + 1;
SALDOANTERIOR = SALDOANTERIOR + (CREDITO - DEBITO);
END


SELECT COALESCE(SUM(VR_PARCELA),0)
FROM CTRECEBER
WHERE (DT_VENCTO = :DATA)
INTO :CREDITO;

SELECT COALESCE(SUM(VR_PARCELA),0)
FROM CTPAGAR
WHERE (DT_VENCTO = :DATA)
INTO :DEBITO;

SALDOATUAL = SALDOANTERIOR + (CREDITO - DEBITO);

SUSPEND;
end

^

SET TERM ; ^
COMMIT WORK;
SET AUTODDL ON;