[firebase-br] SP não executa ultimo loop no FOR SELECT

[Giovani Rochê]

Bom dia.
 
Tenho uma SP que percorre todos os registros de um FOR SELECT perfeitamente. O único problema é que no último registro ela não grava as alterações. Debuguei direto no BD e vi
que ela percorre o ultimo registro perfeitamente porém não grava. O que pode ser isso?
 
A SP é essa:
 
SALDO = :VALOR;> FOR
> SELECT CODIGO,SALDO FROM CONTA_A_RECEBER
> WHERE STATUS = 0
> AND VALOR > 0
> AND COD_CLIENTE = :COD_CLIENTE
> ORDER BY DATA_LANCAMENTO
> INTO
> :COD,:SUB
> DO
> BEGIN
> 
> IF (:SALDO > 0) THEN
> BEGIN
> 
> IF (:SALDO < :SUB) THEN
> BEGIN
> NOVOVALOR = :SUB - :SALDO;
> SALDO = 0;
> END
> IF (:SALDO > :SUB) THEN
> BEGIN
> NOVOVALOR = 0;
> SALDO = :SALDO - :SUB;
> END
> IF (:SALDO = :SUB) THEN
> BEGIN
> NOVOVALOR = 0;
> SALDO = 0;
> END
> UPDATE CONTA_A_RECEBER SET
> SALDO = :NOVOVALOR
> WHERE CODIGO = :COD;
> 
> IF (:NOVOVALOR = 0) THEN
> BEGIN
> UPDATE CONTA_A_RECEBER SET
> STATUS = 1,
> DATA_PAGTO = CURRENT_DATE,
> HORA_PAGTO = CURRENT_TIME
> WHERE CODIGO = :COD;
> END
> END
> 
> SUSPEND;
> END> END;
 
_________________________________________________________________
Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video!
http://video.msn.com/?mkt=pt-br