Index: vhLib/TerminalDevice.cls.xml
===================================================================
diff -u -r3703 -r3719
--- vhLib/TerminalDevice.cls.xml	(.../TerminalDevice.cls.xml)	(revision 3703)
+++ vhLib/TerminalDevice.cls.xml	(.../TerminalDevice.cls.xml)	(revision 3719)
@@ -30,7 +30,7 @@
 		"1.42":"mvi",
 		"1.51":"mvi", 
 		"1.110":"pvr",
-		"1.26":"she",
+		"1.26":"kcu",
 		"1.127":"tve",
 		"1.73":"sca",
 		"1.74":"sca",
@@ -59,6 +59,9 @@
 	If (result = "WS001") {
 		Set result = "lla"
 	}
+	If (result = "KCA") {
+		Set result = "kcu"
+	}
 	quit result
 ]]></Implementation>
 </Method>
@@ -69,7 +72,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim GebruikerInitialenVanToestel As %String = $$$LCase(..GeefGebruikerInitialenVanToestel(Toestel))
-	quit $select(GebruikerInitialenVanToestel?1(1"pv",1"wv",1"wro",1"pra",1"jcl",1"fma",1"mvi",1"kca",1"tve",1"sca",1"jwi",1"thb",1"pvr",1"lla"):GebruikerInitialenVanToestel, 1:"")
+	quit $select(GebruikerInitialenVanToestel?1(1"pv",1"wv",1"wro",1"pra",1"jcl",1"fma",1"mvi",1"kca",1"tve",1"sca",1"jwi",1"thb",1"pvr",1"lla",1"kcu"):GebruikerInitialenVanToestel, 1:"")
 ]]></Implementation>
 </Method>
 </Class>