CREATE OR REPLACE
FUNCTION CUSTO_PROD
   (P_CDFILIAL     IN FILIAL.CDFILIAL%TYPE,
    P_CDPRODUTO    IN PRODUTO.CDPRODUTO%TYPE,
    P_NRTIPOCUST   IN NUMBER,
    P_DTREFERENCIA IN DATE,
    P_ALMOXARIFE   IN ALMOXARIFADO.CDALMOXARIFE%TYPE DEFAULT ' ',
    P_LOCALESTOQ   IN LOCALESTOQUE.CDLOCALESTOQ%TYPE DEFAULT ' ',
    P_NRLOTEESTQ   IN POSESTDIA.NRLOTEESTQ%TYPE DEFAULT ' ',
    P_NRSUBLOTE    IN POSESTDIA.NRSUBLOTE%TYPE  DEFAULT ' ') RETURN NUMBER IS

BEGIN
   RETURN(CUSTO_PRODUTO_LCEST(P_CDFILIAL, P_CDPRODUTO, P_NRTIPOCUST, P_DTREFERENCIA, SYSDATE,
                              P_ALMOXARIFE, P_LOCALESTOQ, P_NRLOTEESTQ, P_NRSUBLOTE));
END;
/

-- VERSAO --
BEGIN ATUVEROBJ('CUSTO_PROD','4.11.081'); END;
/

