CREATE OR REPLACE FUNCTION PROD_RELAC_SC(P_CDFILIAL  IN FILIAL.CDFILIAL%TYPE,
                                         P_CDPRODUTO IN PRODUTO.CDPRODUTO%TYPE)RETURN VARCHAR2
AS
   V_IDUTRELACPRODSC PARAMIMPPEDIDO.IDUTRELACPRODSC%TYPE;
   V_RESULT          PRODUTO.CDPRODUTO%TYPE;
BEGIN
   SELECT NVL(MAX(IDUTRELACPRODSC), 'N')
     INTO V_IDUTRELACPRODSC
      FROM PARAMIMPPEDIDO
      WHERE CDFILIAL = P_CDFILIAL;

   IF V_IDUTRELACPRODSC = 'S' THEN
      SELECT MAX(CDPRODIMPO)
        INTO V_RESULT
        FROM RELACPRODIMPSC
       WHERE CDPRODORIG = P_CDPRODUTO;
   ELSE
      V_RESULT := P_CDPRODUTO;
   END IF;

   RETURN(V_RESULT);
END;
/