CREATE OR REPLACE FUNCTION BUSCA_DSEMISSAO_CLIENTE(P_CDCLIENTE IN CLIENTE.CDCLIENTE%TYPE,
                                                   P_CDPRODUTO IN PRODUTO.CDPRODUTO%TYPE)RETURN VARCHAR2
AS
   V_DSPRODCLIEPED  PRODCLIEPED.DSPRODCLIEPED%TYPE;
BEGIN
   V_DSPRODCLIEPED := NULL;

   BEGIN
      SELECT DSPRODCLIEPED
        INTO V_DSPRODCLIEPED
        FROM PRODCLIEPED
       WHERE CDCLIENTE = P_CDCLIENTE
         AND CDPRODUTO = P_CDPRODUTO;
   EXCEPTION
      WHEN NO_DATA_FOUND THEN BEGIN
         V_DSPRODCLIEPED := NULL;
      END;
   END;


   RETURN(V_DSPRODCLIEPED);
END;
/
