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

DROP FUNCTION VALOR_ENCARGO
GO

CREATE FUNCTION VALOR_ENCARGO
   (@P_CDFILIAL   VARCHAR(4),
    @P_NRLANCTONF VARCHAR(10),
    @P_IDENCARGO  VARCHAR(1),
    @P_CDENCARGO  VARCHAR(2))
RETURNS NUMERIC
AS   
BEGIN
   DECLARE @V_VRITEMENCA DOUBLE PRECISION;
 
   SELECT @V_VRITEMENCA = ISNULL(SUM(I.VRITEMENCA),0)
     FROM ITEMENCARGO I, ENCARGO E
    WHERE I.CDFILIAL   = @P_CDFILIAL   AND
          I.NRLANCTONF = @P_NRLANCTONF AND
          E.CDENCARGO  = I.CDENCARGO  AND
          E.IDENCARGO  = @P_IDENCARGO  AND
          E.CDENCARGO  = ISNULL(@P_CDENCARGO,E.CDENCARGO);
   RETURN(@V_VRITEMENCA)
END
GO


-- VERSAO --
EXEC ATUVEROBJ 'VALOR_ENCARGO','5.05.025';
GO

