Fórum Store Procedure #367263

Create Procedure RetornaSaldo(
pCod integer,
pDataLim Date)
Returns(
SaldoEstoque Double)
As 
declare variable m_codigo integer; 
declare variable m_data date;
declare variable m_valor double;
declare variable m_entsai integer;
begin
  for select sum(valor*entsai) as saldo from tabela
  where codigo = :pcod and data = :pdata
  INTO :SaldoEstoque;
  Suspend;
end;