Index: vhConsistency/Checks/ControleKarakter.cls.xml
===================================================================
diff -u -r29059 -r33626
--- vhConsistency/Checks/ControleKarakter.cls.xml	(.../ControleKarakter.cls.xml)	(revision 29059)
+++ vhConsistency/Checks/ControleKarakter.cls.xml	(.../ControleKarakter.cls.xml)	(revision 33626)
@@ -18,7 +18,14 @@
 <Method name="VoerUit">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	
+	Do ..ControleerGlobals()
+	Quit ..GeefStatus()
+]]></Implementation>
+</Method>
+
+<Method name="ControleerGlobals">
+<Private>1</Private>
+<Implementation><![CDATA[
 	do ..Globals.Insert("^PERS")
 	do ..Globals.Insert("^KKL")
 	do ..Globals.Insert("^KK1")
@@ -37,17 +44,41 @@
 	do ..Globals.Insert("^vhMAIL")	
 	do ..Globals.Insert("^INDEX")	
 	
-	set Status = $$$OK
-	
 	set itGlobals = ##class(TECH.ListIterator).%New(..Globals)
 	while itGlobals.HasNext() {
-		set Global = itGlobals.Next()
+		#dim Global As %String = itGlobals.Next()
 		for  { set Global=$query(@Global) quit:Global=""  
-			if @Global?.E1.C.E set Status = $$$ERROR($$$GeneralError) do ..VoegMeldingToe(Global)
+			if @Global?.E1.C.E do ..VoegMeldingToe(Global)
 		}	
 	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefStatus">
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	If (..GeefAantalMeldingen()>0)
+	{
+		Do ..VoegToeHandleiding()
+		Quit $$$ERROR($$$GeneralError,"Tis Mis")
+	}
+	Else
+	{
+		Quit $$$OK
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeHandleiding">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Handleiding As %String = ""
+	Set Handleiding = Handleiding _ $$$CRLF _ "Hoe oplossen? "
+	Set Handleiding = Handleiding _ $$$CRLF _ "Indien Product Langtekst in ^KPR, dan fixen via "
+	Set Handleiding = Handleiding _ $$$CRLF _ "    Do ##class(vhPowerTools.APPS.PM.Product.LangTekstControleKarakterCorrigeerder).CorrigeerOne(ProductID) "
 	
-	quit Status
+	Do ..VoegMeldingToe(Handleiding)
 ]]></Implementation>
 </Method>
 </Class>