Procedure Não Retorna Nada

Tenho a seguinte Procedure

CREATE PROCEDURE CALCULARCOMISSOES (DATAINICIAL Date,
DATAFINAL Date,
ROTA Integer,
COMISSAO Float)
returns (VALORVENDA Double precision)
AS

begin
For SELECT Sum(Pedidositens.ValorTotal)
FROM Pedidos,Pedidositens,Produtos,Clientes Where
Pedidos.CODIGOPEDIDO=Pedidositens.PEDIDOCODIGO and
Pedidositens.PRODUTOCODIGO = Produtos.CODIGODOPRODUTO and
Pedidos.DataPedido>=:DataInicial and Pedidos.DataPedido<=:DataFinal
and Clientes.RotaCodigo=:Rota
And PedidosItens.SituacaoRegistro=´A´
and Pedidos.ClienteCodigo=Clientes.ClientesCodigo
And Produtos.Comissao=:Comissao
into :ValorVenda

DO
SUSPEND;

end

Ela Soma todos os itens da tabela pedidositens mas não sei porque não esta retornando o valor da soma

Uso uma query para Chamar essa procedure

Obrigado !!!