CREATE OR REPLACE FUNCTION VALOR_ENCARGO
   (P_CDFILIAL   IN ITEMENCARGO.CDFILIAL%TYPE,
    P_NRLANCTONF IN ITEMENCARGO.NRLANCTONF%TYPE,
    P_IDENCARGO  IN ENCARGO.IDENCARGO%TYPE,
    P_CDENCARGO  IN ENCARGO.CDENCARGO%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.CDENCARGO  = NVL(P_CDENCARGO,E.CDENCARGO);

   RETURN(V_VRITEMENCA);
END;
/



-- VERSAO --
BEGIN ATUVEROBJ('VALOR_ENCARGO','5.05.025'); END;
/

