create or replace FUNCTION BUSCA_FATOR_PRECO(
   P_CDFATPRECO IN PRODFATOR.CDFATPRECO%TYPE,
   P_CDPRODUTO  IN PRODUTO.CDPRODUTO%TYPE) RETURN NUMBER IS

   V_VRFATPRECO   PRODFATOR.VRFATPRECO%TYPE;

BEGIN
   V_VRFATPRECO := 0;
   SELECT NVL(MAX(VRFATPRECO), 0) AS VRFATPRECO
     INTO V_VRFATPRECO
     FROM PRODFATOR
    WHERE CDFATPRECO = P_CDFATPRECO
      AND CDPRODUTO = P_CDPRODUTO;

   RETURN(V_VRFATPRECO);
END;
/