Fórum Retorna Total #58242

SET TERM ^ ;

CREATE PROCEDURE SP_TITULO_VALOR_TOTAL_BANCO(
  IDATAINICIAL DATE,
  IDATAFINAL DATE,
  IBACODIGO INTEGER)
RETURNS(
  TOTAL NUMERIC(18, 2))
AS
DECLARE VARIABLE TIPOCONTA VARCHAR(84);
DECLARE VARIABLE VALOR NUMERIC(18, 2);
BEGIN
     TOTAL = 0;
  for select titulo.tivalor, TITULO.TITIPO from titulo
      where (TITULO.TIBANCO_CODIGO = :IBACODIGO) and
            (TITULO.TIDATAEMISSAO between :IDATAINICIAL and :IDATAFINAL)
            into :VALOR, :TIPOCONTA
      do begin
           if (TIPOCONTA = ´RECEBER´) then
           TOTAL = TOTAL + VALOR;
           else
           TOTAL = TOTAL - VALOR;
        SUSPEND;
      end
END^

SET TERM ; ^