[firebase-br] SP Recursiva

[Antonio Bonelli Junior]

Boa tarde a todos da lista!

Tenho a necessidade de atualizar saldos a cada registro inserido/alterado
em minha tabela e através de exemplos postados na lista criei a procedure
abaixo, porém ao ser executada é retornado o seguinte erro: "Too many
concurrent executions of the same request".

Pergunto: Como posso resolver esse problema, pois necessito (realmente) do
saldo em cada registro da tabela?

Obrigado
Junior


*** Procedure ***
=================
CREATE PROCEDURE ATUALIZARSALDOS (
    DATALANCTO DATE,
    CODCONTA INTEGER)
AS
DECLARE VARIABLE ULTIMOLANCTO INTEGER;
DECLARE VARIABLE SALDOANTERIOR NUMERIC(15,2) = 0;
DECLARE VARIABLE NROLANBCO INTEGER;
DECLARE VARIABLE TIPOLANCTO VARCHAR(1);
DECLARE VARIABLE VALORLANCTO NUMERIC(15,2);
BEGIN
   SELECT MAX(NroLanBco)
   FROM MovBancario
   WHERE CodConta = :CodConta AND DataLancto < :DataLancto
   INTO :UltimoLancto;

   SELECT Saldo
   FROM MovBancario
   WHERE NroLanBco = :UltimoLancto
   INTO :SaldoAnterior;

   FOR SELECT NroLanBco, TipoLancto, ValorLancto
       FROM MovBancario
       WHERE CodConta = :CodConta AND DataLancto >= :DataLancto
       ORDER BY DataLancto, NroLanBco
       INTO :NroLanBco, :TipoLancto, :ValorLancto DO BEGIN
     IF (:TipoLancto = 'C') THEN BEGIN
       SaldoAnterior = :SaldoAnterior + :ValorLancto;
     END ELSE BEGIN
       SaldoAnterior = :SaldoAnterior - :ValorLancto;
     END
     UPDATE MovBancario
     SET Saldo = :SaldoAnterior
     WHERE NroLanBco = :NroLanBco;
   END
END

*** Trigger ***
===============
CREATE TRIGGER T_MOVBANCARIO_AI FOR MOVBANCARIO
ACTIVE AFTER INSERT OR UPDATE POSITION 0
AS
BEGIN
  EXECUTE PROCEDURE AtualizarSaldos(New.DataLancto, New.CodConta);
END