CREATE OR REPLACE FUNCTION VALOR_BONIFICACAO_PEDIDO
   (P_CDFILIAL   IN PEDIDO.CDFILIAL%TYPE,
    P_NRPEDIDO   IN PEDIDO.NRPEDIDO%TYPE) RETURN NUMBER
AS
   V_VRITEM NUMBER;
BEGIN
   V_VRITEM := 0;
   SELECT NVL(SUM((I.QTITEMPED * I.VRPREUNITPED) - (NVL(I.VRDESITPED,0))),0) VRITEM
     INTO V_VRITEM
     FROM ITEMPEDIDO I
    WHERE I.CDFILIAL = P_CDFILIAL
      AND I.NRPEDIDO = P_NRPEDIDO
      AND NVL(I.IDPRODBONIF, 'N') = 'S';


   RETURN(V_VRITEM);
END;
/