CREATE OR REPLACE FUNCTION BUSCA_GRUPO_PRODUTO(P_CDPRODUTO IN PRODUTO.CDPRODUTO%TYPE)RETURN VARCHAR2
AS
   V_CDGRUPO GRUPOPROD.CDGRUPO%TYPE;
BEGIN
   V_CDGRUPO := '';
   SELECT MIN(CDGRUPO) CDGRUPO
     INTO V_CDGRUPO
     FROM GRUPOPROD
    WHERE CDPRODUTO = P_CDPRODUTO;

   RETURN(V_CDGRUPO);
END;
/