[firebase-br] O que esta errado aqui neste select ? já consegui

[diogo em smartsistemas.com.br]

OK, já consegui
  ----- Original Message ----- 
  From: diogo em smartsistemas.com.br 
  To: FireBase 
  Sent: Thursday, April 27, 2006 10:16 AM
  Subject: O que esta errado aqui neste select ?


  fiz uma procedure para me retornar o saldo de uma banco...

  CREATE PROCEDURE SALDOBANCARIO (
      COD_BANCO INTEGER)
  RETURNS (
      SALDO DOUBLE PRECISION)
  AS
  DECLARE VARIABLE VALOR DOUBLE PRECISION;
  DECLARE VARIABLE TIPO CHAR(10);
  begin
    SALDO = 0;
    for select B.VALOR, E.TIPO from BANCARIO B, EVENTOBANCARIO E
        where B.COD_EVENTOBANCARIO = E.CODIGO and
              B.COD_BANCO = :COD_BANCO
              into :VALOR, :TIPO do
    begin
      if (:TIPO = 'C') then
        SALDO = SALDO + :VALOR;
      else
        SALDO = SALDO - :VALOR;
    end
    suspend;
  end



  depois estou fazendo um select relacionado com a procedure e esta me retornando este erro:

  select B.DESCRICAO, S.SALDO
  from SALDOBANCARIO S, BANCO B
  where S.COD_BANCO = B.CODIGO

  Unsuccessful execution caused by a system error that precludes
  successful execution of subsequent statements.
  Dynamic SQL Error.
  parameter mismatch for procedure SALDOBANCARIO.