CREATE OR REPLACE FUNCTION PRODFORN_FIRSTPRODUTO (P_CDARVPROD IN PRODUTO.CDARVPROD%TYPE,
                                                  P_CDFORNECED IN FORNECEDOR.CDFORNECED%TYPE) RETURN VARCHAR2 
AS
    V_CDARVPROD PRODUTO.CDARVPROD%TYPE := null;
BEGIN
    SELECT CDARVPROD
      INTO V_CDARVPROD
      FROM (SELECT PRODUTO.CDARVPROD
              FROM PRODFORN INNER JOIN PRODUTO ON PRODFORN.CDPRODUTO = PRODUTO.CDPRODUTO
             WHERE PRODFORN.CDFORNECED = P_CDFORNECED
               AND P_CDARVPROD LIKE PRODUTO.CDARVPROD || '%'
             ORDER BY 1 DESC)
     WHERE ROWNUM = 1;
    RETURN(V_CDARVPROD);
END;
/