CREATE OR REPLACE FUNCTION VALOR_ENCARGO_NFE(
   P_CDFILIAL     IN ITEMENCARGO.CDFILIAL%TYPE,
   P_NRLANCTONF   IN ITEMENCARGO.NRLANCTONF%TYPE,
   P_IDENCARGO    IN ENCARGO.IDENCARGO%TYPE,
   P_CDENCARGONFE IN ENCARGO.CDENCARGONFE%TYPE DEFAULT NULL) RETURN NUMBER
AS
   V_VRITEMENCA ITEMENCARGO.VRITEMENCA%TYPE;
BEGIN
   SELECT NVL(SUM(I.VRITEMENCA),0)
     INTO V_VRITEMENCA
     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.CDENCARGONFE = NVL(P_CDENCARGONFE,E.CDENCARGO);
   RETURN(V_VRITEMENCA);
END;
/

-- VERSAO --
BEGIN ATUVEROBJ('VALOR_ENCARGO_NFE','5.70.000'); END;
/

