create or replace FUNCTION CLIENTE_POSSUI_LOCALENTREGA(P_CDCLIENTE      IN CLIENTE.CDCLIENTE%TYPE)RETURN VARCHAR2
AS
   V_RESULT VARCHAR2(01);
   V_EXISTE INTEGER;
   V_NRPEDIDO PEDIDO.NRPEDIDO%TYPE;
BEGIN
   V_RESULT := 'N';
   SELECT COUNT(1)
     INTO V_EXISTE
     FROM LOCALENTRCLIENTE
    WHERE (CDCLIENTE = P_CDCLIENTE);
   IF (V_EXISTE > 0) THEN
      V_RESULT := 'S';
   ELSE
      V_RESULT := 'N';
   END IF;
   RETURN(V_RESULT);
END;
/
-- VERSAO --
BEGIN ATUVEROBJ('CLIENTE_POSSUI_LOCALENTREGA','6.39.005'); END;
/
