CREATE OR REPLACE FUNCTION FUNC_PARCELAS_ABERTO(V_ID_PESSOA INT, V_ID_TURMA INT, V_TIPO_MODULO VARCHAR) 
RETURN VARCHAR AS
V_QTD_PARCELAS INT;
BEGIN 
  
	SELECT COUNT(PAR_ID) INTO V_QTD_PARCELAS FROM TB_PARCELA
	WHERE PAR_RESPESID = V_ID_PESSOA
	AND PAR_SITPAG = 1;

	IF V_QTD_PARCELAS > 0 THEN
		RETURN 'Você possui ' || V_QTD_PARCELAS || ' parcelas em aberto, não é possível se matricular';
	END IF;
  RETURN NULL;
END;