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

   V_VRPLIQVOLPED NUMBER;
BEGIN
   V_VRPLIQVOLPED := 0;

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

   RETURN(V_VRPLIQVOLPED);
END;
/