Index: vhConsistency/Checks/TerminalNavigatieTaken.cls.xml
===================================================================
diff -u -r29059 -r43331
--- vhConsistency/Checks/TerminalNavigatieTaken.cls.xml	(.../TerminalNavigatieTaken.cls.xml)	(revision 29059)
+++ vhConsistency/Checks/TerminalNavigatieTaken.cls.xml	(.../TerminalNavigatieTaken.cls.xml)	(revision 43331)
@@ -8,17 +8,48 @@
 <Method name="VoerUit">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Do ..ControleerTerminalNavigatieTaken()
+	Quit ..GeefStatus()
+]]></Implementation>
+</Method>
+
+<Method name="ControleerTerminalNavigatieTaken">
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
 	Set Status = $$$OK
 	Set ResultSet = ##class(%ResultSet).%New("APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak:Extent")
 	Do ResultSet.Execute()
 	While (ResultSet.Next())
 	{
-		Set Status = $$$ERROR($$$GeneralError,"Openstaande taak")
 		Do ..VoegMeldingToe("[ Openstaande taak ]"_$C(13,10)_##class(APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak).%OpenId(ResultSet.Data("ID")).ToString())	
 	}
-	Quit Status
 ]]></Implementation>
 </Method>
+
+<Method name="GeefStatus">
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	If (..GeefAantalMeldingen()>0) {
+		Do ..VoegToeHandleiding()
+		Quit $$$ERROR($$$GeneralError,"Openstaande taak")
+	}
+	Else {
+		Quit $$$OK
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeHandleiding">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Handleiding As %String = ""
+	Set Handleiding =Handleiding _ $$$CRLF _ "Contacteer bovenstaande gebruiker(s) en vraag om een nieuwe(!!) Admin-Reflection op te starten."
+	Set Handleiding =Handleiding _ $$$CRLF _ "Dit blijven herhalen tot alle openstaande TerminalNavigatieTaken verdwenen zijn."
+	Do ..VoegMeldingToe(Handleiding)
+]]></Implementation>
+</Method>
 </Class>