-- ================================================================================
--  Created on    :  18/12/2002  17:00
--  Programador   :  Gustavo Nosseis dos Santos
--  @C:\CUSTO
--  @C:\WIN_PRJ\SQL\END_CONV\ORACLE\3849_PDVSTP_CUSTO_PDV.SQL
-- ================================================================================

CREATE OR REPLACE PROCEDURE CUSTO(
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 NULL,
P_LOCALESTOQ   IN LOCALESTOQUE.CDLOCALESTOQ%TYPE DEFAULT NULL,
P_NRLOTEESTQ   IN POSESTDIA.NRLOTEESTQ%TYPE DEFAULT NULL,
P_NRSUBLOTE    IN POSESTDIA.NRSUBLOTE%TYPE  DEFAULT NULL,
P_CUSTO        OUT NUMBER)

AS

V_DAR_CERTO  NUMBER;

BEGIN

   P_CUSTO := CUSTO_PROD(P_CDFILIAL,P_CDPRODUTO,P_NRTIPOCUST,P_DTREFERENCIA,
                         P_ALMOXARIFE,P_LOCALESTOQ,P_NRLOTEESTQ,P_NRSUBLOTE);
END;
/

-- VERSAO --
BEGIN ATUVEROBJ('CUSTO','4.05.136'); END;
/

