Index: DOM/common/Transl/Vertaler.cls.xml
===================================================================
diff -u -r29059 -r30745
--- DOM/common/Transl/Vertaler.cls.xml	(.../Vertaler.cls.xml)	(revision 29059)
+++ DOM/common/Transl/Vertaler.cls.xml	(.../Vertaler.cls.xml)	(revision 30745)
@@ -6,7 +6,7 @@
 
 <Method name="GeefVertaling">
 <Abstract>1</Abstract>
-<FormalSpec>Sleutel:%String,Taal:DOM.enu.Taal=""</FormalSpec>
+<FormalSpec>Sleutel:%String,Taal:DOM.enu.Taal="",HoofdletterGevoelig:%Boolean=$$$False</FormalSpec>
 <ReturnType>%String</ReturnType>
 </Method>
 
Index: vhTest/Mock/DOM/common/Transl/Vertaler.cls.xml
===================================================================
diff -u -r29059 -r30745
--- vhTest/Mock/DOM/common/Transl/Vertaler.cls.xml	(.../Vertaler.cls.xml)	(revision 29059)
+++ vhTest/Mock/DOM/common/Transl/Vertaler.cls.xml	(.../Vertaler.cls.xml)	(revision 30745)
@@ -10,9 +10,9 @@
 <Inheritance>right</Inheritance>
 
 <Method name="GeefVertaling">
-<FormalSpec>Sleutel:%String,Taal:DOM.enu.Taal=""</FormalSpec>
+<FormalSpec>Sleutel:%String,Taal:DOM.enu.Taal="",HoofdletterGevoelig:%Boolean=$$$False</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVertaling",Sleutel,Taal)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVertaling",Sleutel,Taal,HoofdletterGevoelig)
 ]]></Implementation>
 </Method>
 
Index: DOM/common/Transl/impl/Vertaler.cls.xml
===================================================================
diff -u -r29059 -r30745
--- DOM/common/Transl/impl/Vertaler.cls.xml	(.../Vertaler.cls.xml)	(revision 29059)
+++ DOM/common/Transl/impl/Vertaler.cls.xml	(.../Vertaler.cls.xml)	(revision 30745)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.common.Transl.impl.Vertaler">
-<Super>DOM.common.Transl.Vertaler,%RegisteredObject</Super>
+<Super>DOM.common.Transl.Vertaler,TECH.RegisteredObject</Super>
 
 <Property name="VertaalGroepen">
 <Type>DOM.common.Transl.enu.VertaalGroep</Type>
@@ -34,7 +34,7 @@
 </Method>
 
 <Method name="GeefVertaling">
-<FormalSpec>Sleutel:%String,Taal:DOM.enu.Taal=""</FormalSpec>
+<FormalSpec>Sleutel:%String,Taal:DOM.enu.Taal="",HoofdletterGevoelig:%Boolean=$$$False</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim OrigineleTaal As DOM.enu.Taal = ..Taal
@@ -51,7 +51,7 @@
 		if VertaalGroep = ##class(DOM.common.Transl.enu.VertaalGroep).KleurCodes() {
 			set Vertaling = ..GeefKleurVertaling(Sleutel)	
 		} else {
-		 	Set Vertaling = ..GeefResVertaling(VertaalGroep,Sleutel)
+		 	Set Vertaling = ..GeefResVertaling(VertaalGroep, Sleutel, HoofdletterGevoelig)
 		}
 	 	If $Length(Vertaling) {
 			Set Gevonden = 1 		
@@ -89,16 +89,25 @@
 </Method>
 
 <Method name="GeefResVertaling">
-<FormalSpec>VertaalGroep:%String,Sleutel:%String</FormalSpec>
+<FormalSpec>VertaalGroep:%String,Sleutel:%String,HoofdletterGevoelig:%Boolean=$$$False</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Vertaling As %String = ""
-	#dim Query As %String = "select Vertaling from Res.VertalingAbstract where groep = ? and %upper(Intern)=%upper(?) and Taal= ?"
-	#dim ResultSet As TECH.ResultSet = ##class(TECH.ResultSet).Create(Query,$listbuild(VertaalGroep,Sleutel,..Taal))
+	#dim Query As %String = ""
+	
+	if (HoofdletterGevoelig) {
+		set Query = "select Vertaling from Res.VertalingAbstract where groep = ? and Intern=? and Taal= ?"	
+	} else {
+		set Query = "select Vertaling from Res.VertalingAbstract where groep = ? and %upper(Intern)=%upper(?) and Taal= ?"	
+	}
+	
+	#dim ResultSet As TECH.ResultSet = ##class(TECH.ResultSet).Create(Query, $listbuild(VertaalGroep, Sleutel, ..Taal))
+	
 	if ResultSet.Next() {
 		set Vertaling = ResultSet.GetData(1)	
 	}
+	
 	quit Vertaling
 ]]></Implementation>
 </Method>