CREATE OR REPLACE FUNCTION VALOR_ENCARGO_REDF(
   P_CDFILIAL     IN NOTAFISCAL.CDFILIAL%TYPE,
   P_NRLANCTONF   IN NOTAFISCAL.NRLANCTONF%TYPE,
   P_IDENCARGO    IN ENCARGO.IDENCARGO%TYPE,
   P_CDENCARGO    IN ENCARGO.CDENCARGO%TYPE) RETURN NUMBER
AS
   V_VRENCARGO   NUMBER;
BEGIN

   SELECT SUM(I.VRITEMENCA)
   INTO V_VRENCARGO
   FROM ITEMENCARGO I, ENCARGO E
   WHERE I.CDFILIAL   = P_CDFILIAL
     AND I.NRLANCTONF = P_NRLANCTONF
     AND I.CDENCARGO  = E.CDENCARGO
     AND E.IDENCARGO  = P_IDENCARGO
     AND E.CDENCARGO  = P_CDENCARGO;

   RETURN(V_VRENCARGO);

END;
/

-- VERSAO --
BEGIN ATUVEROBJ('VALOR_ENCARGO_REDF','5.07.002'); END;
/

