Index: TECH/Context/RuntimeContext.cls.xml
===================================================================
diff -u -r2075 -r2328
--- TECH/Context/RuntimeContext.cls.xml	(.../RuntimeContext.cls.xml)	(revision 2075)
+++ TECH/Context/RuntimeContext.cls.xml	(.../RuntimeContext.cls.xml)	(revision 2328)
@@ -42,17 +42,20 @@
 <Method name="GeefGebruikerInitialen">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	Set GebruikerInitialen = ""
 	If $$$Not(##class(TECH.Config.ConfigMgr).Instance().GetOmgeving()["DMZ"){
 		Set GebruikerInitialen = $$USERNAME^vhUSER(,-1)
-		If (GebruikerInitialen = "") {	
-			Set GebruikerInitialen = "SYS"
-		}
 	}
-	else {
-		Set GebruikerInitialen = "SYS_"_##class(TECH.Config.ConfigMgr).Instance().GetOmgeving()	
+
+	// Aangepast door WimV op 12/10/2011 
+	If (GebruikerInitialen = "") {	
+		Set GebruikerInitialen = $$$IctUserFromIP($$GetClientIP^vhLib)
 	}
-		
 	
+	If (GebruikerInitialen = "") {	
+		Set GebruikerInitialen = "SYS"
+	}
+	
 	Quit GebruikerInitialen
 ]]></Implementation>
 </Method>