CREATE OR REPLACE FUNCTION VERIFICA_VENDADICIONAL(
   P_CDFILIAL IN PEDIDO.CDFILIAL%TYPE,
   P_NRPEDIDO IN PEDIDO.NRPEDIDO%TYPE,
   P_VENDCOMISLISTA IN VARCHAR2) RETURN VARCHAR2 IS

   V_COUNT   INTEGER;
   V_RESULT  VARCHAR2(01);
BEGIN
   V_RESULT := 'N';
   V_COUNT  := 0;

   SELECT COUNT(1)
     INTO V_COUNT
     FROM VENDITEMPED VI
    WHERE (VI.CDFILIAL = P_CDFILIAL)
      AND (VI.NRPEDIDO = P_NRPEDIDO)
      AND (INSTR(P_VENDCOMISLISTA, CDVENDEDOR) > 0);

   IF V_COUNT > 0 THEN
      V_RESULT := 'S';
   END IF;
   RETURN(V_RESULT);
END;
/
-- VERSAO --
BEGIN ATUVEROBJ('VERIFICA_VENDADICIONAL','6.25.xxx'); END;
/
