Index: vhConsistency/Checks/ControleKarakter.cls.xml
===================================================================
diff -u -r44530 -r56388
--- vhConsistency/Checks/ControleKarakter.cls.xml	(.../ControleKarakter.cls.xml)	(revision 44530)
+++ vhConsistency/Checks/ControleKarakter.cls.xml	(.../ControleKarakter.cls.xml)	(revision 56388)
@@ -37,7 +37,7 @@
 	do ..Globals.Insert("^KPR")
 	do ..Globals.Insert("^KTO")
 	do ..Globals.Insert("^KOFKL")
-	do ..Globals.Insert("^INDEX")	
+	do ..Globals.Insert("^INDEX")
 	
 	set itGlobals = ##class(TECH.ListIterator).%New(..Globals)
 	while itGlobals.HasNext() {
@@ -54,11 +54,13 @@
 			
 			if @Global?.E1.C.E {
 				#dim Melding As %String = Global_" : "
-				set StringIterator = ##class(TECH.StringIterator).%New(@Global)
+				Set StringIterator = ##class(TECH.StringIterator).%New(@Global)
 				while StringIterator.HasNext() {
 					set Value = StringIterator.Next()
 					if Value?1C set Melding = Melding _ "$C("_$ascii(Value)_") "
 				}
+				
+				Set Melding = Melding _ " > " _ ..GeefLink(Global)
 				do ..VoegMeldingToe(Melding)
 			}
 		}	
@@ -94,13 +96,29 @@
 <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) "
 	
 	Do ..VoegMeldingToe(Handleiding)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLink">
+<FormalSpec>Global:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefGlobalsUrl()	_ "&$ID2=" _ ##class(TECH.StringUtils).RightTrim(Global, ")")
+]]></Implementation>
+</Method>
+
+<Method name="GeefGlobalsUrl">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "http://" _ ##class(%Library.Function).HostName() _ ":57772/csp/sys/exp/UtilExpGlobalView.csp?$NAMESPACE=" _ $Namespace
+]]></Implementation>
+</Method>
 </Class>