CREATE OR REPLACE FUNCTION CALC_ESTOQ_CONS(
   P_CDFILIAL     IN FILIAL.CDFILIAL%TYPE,
   P_CDPRODUTO    IN PRODUTO.CDPRODUTO%TYPE,
   P_DTREFERENCIA IN DATE) RETURN NUMBER IS

   V_QTESTOQUE  NUMBER;
   V_VALRESTO   NUMBER;
   V_VALRBRUT   NUMBER;
BEGIN
   POSICAO_ESTOQUE_CONS(P_CDFILIAL, P_CDPRODUTO, P_DTREFERENCIA, V_QTESTOQUE, V_VALRESTO, V_VALRBRUT);

   RETURN(V_QTESTOQUE);
END;
/

-- VERSAO --
BEGIN ATUVEROBJ('CALC_ESTOQ_CONS','5.75.xxx'); END;
/

