create or replace FUNCTION PESOPRODUTO_PEDIDO(
   P_CDFILIAL     IN FILIAL.CDFILIAL%TYPE,
   P_NRPEDIDO     IN PEDIDO.NRPEDIDO%TYPE) RETURN NUMBER IS

   V_VRPBRUVOLPED NUMBER;
BEGIN
   V_VRPBRUVOLPED := 0;

   SELECT SUM( I.QTITEMPED * NVL(A.VRPESOBRUTPR, 0))
     INTO V_VRPBRUVOLPED
     FROM PRODUTO A,  ITEMPEDIDO I
    WHERE (I.CDPRODUTO = A.CDPRODUTO)
      AND (I.CDFILIAL  = P_CDFILIAL)
      AND (I.NRPEDIDO  = P_NRPEDIDO);

   RETURN(V_VRPBRUVOLPED);
END;
/