-- ================================================================================
--  Created on    :  11/02/2003
--  Programador   :  Renata Diniz
--  @C:\CUSTO
--  @C:\WIN_PRJ\SQL\END_CONV\SQLSERVER\3849_PDVSTP_CUSTO_PDV.SQL
-- ================================================================================

IF EXISTS (SELECT * FROM SYSOBJECTS O, SYSUSERS U
                    WHERE
	        O.NAME = 'CUSTO' AND
	        TYPE = 'P'                    AND
	        U.UID = O.UID                 AND
	        U.NAME = USER)

   DROP PROCEDURE CUSTO
   GO

CREATE PROCEDURE CUSTO
   @P_CDFILIAL      VARCHAR(4),
   @P_CDPRODUTO     VARCHAR(10),
   @P_NRTIPOCUST    NUMERIC,
   @P_DTREFERENCIA  DATETIME,
   @P_ALMOXARIFE    VARCHAR(6)  = NULL,
   @P_LOCALESTOQ    VARCHAR(6)  = NULL,
   @P_NRLOTEESTQ    VARCHAR(20) = NULL,
   @P_NRSUBLOTE     VARCHAR(4)  = NULL,
   @P_CUSTO         NUMERIC OUTPUT

AS

   DECLARE @V_DAR_CERTO  FLOAT;
   DECLARE @V_DATA       DATETIME;

BEGIN
   SET @V_DATA = GETDATE();	
   SELECT @P_CUSTO = TEKNISA.CUSTO_PRODUTO_LCEST (@P_CDFILIAL,   @P_CDPRODUTO,  @P_NRTIPOCUST, @P_DTREFERENCIA, 
						  @V_DATA,       @P_ALMOXARIFE, @P_LOCALESTOQ, @P_NRLOTEESTQ, 
                                                  @P_NRSUBLOTE)
   FROM PARAMGERAL;
END;
GO
