[firebase-br] Procedure com Saldo e Saldo Anterior

[Paulo Sérgo Feix]

Bom dia galera
Pessoal, estou precisando de ajuda, numa Procedure com Saldo e saldo
Inicial, só que quando vou conpilar esta dando erro.
Oque estou fazendo errado?

begin
 Select  -- Aqui pega o saldo anterior
     Coalesce(Sum(a.entrada - a.saida),0)
  from LCONTROL_BANCOS a
       Where a.empresa = :empresa01 and a.filial = :filia01 and
       a.banco = :banco01 and a.moneda = :moneda01 and
       a.fecha < :fecha01
  into :saldo_anterior;
   saldo = 0;
   saldo = :saldo_anterior;  --- SALDO INICIAL
  suspend;

   For select -- Aqui mostra os detalhes conforme especificação das datas na
FECHA01 AND FECHA02
       b.id_letras,
       b.fecha,
       b.boleta,
       b.vcto,
       b.n_cheque,
       b.pre_datado,
       b.favorecido,
       b.historico,
       b.entrada,
       b.saida,
       b.usuario
   from LCONTROL_BANCOS b
    Where b.empresa = :empresa01 and b.filial = :filia01 and
          b.banco = :banco01 and b.moneda = :moneda01 and
          b.fecha between :fecha01 and :fecha02
   into :id_letras, :fecha, :boleta, :vcto, :n_cheque, :pre_datado,
:favorecido,
        :historico, :entrada, :saida, :saldo, :usuario do
    Begin
      saldo = (:saldo + (:entrada - :saida));
    suspend;
   end
end


-- 
Paulinho Sérgio Feix