Index: DOM/common/Transl/impl/Vertaler.cls.xml
===================================================================
diff -u -r30745 -r35661
--- DOM/common/Transl/impl/Vertaler.cls.xml	(.../Vertaler.cls.xml)	(revision 30745)
+++ DOM/common/Transl/impl/Vertaler.cls.xml	(.../Vertaler.cls.xml)	(revision 35661)
@@ -18,17 +18,9 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	// Als eerste parameter te plaatsen in de %OnNew :  
-	//   Taal As DOM.enu.Taal = "" 
-
- /*
-	If Taal = "" { 
-		Set Taal = ##class(DOM.enu.Taal).Nederlands()
-	}
-	Set ..Taal = Taal
- */
 	Set ..VertaalGroepen = VertaalGroepen
 	Set ..Taal = Taal
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -38,26 +30,31 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim OrigineleTaal As DOM.enu.Taal = ..Taal
-	if Taal '= "" {
+	
+	If $$$Not(Taal = "") {
 		Set ..Taal = Taal
 	}
 
 	#dim Vertaling As %String = ""
-	#dim Gevonden As %Boolean = 0
+	#dim Gevonden As %Boolean = $$$False
+	#dim VertaalGroepIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..VertaalGroepen)
 	
-	set VertaalGroepIterator = ##class(TECH.ListIterator).%New(..VertaalGroepen)
-	while VertaalGroepIterator.HasNext() && ('Gevonden) {
+	While (VertaalGroepIterator.HasNext() && $$$Not(Gevonden)) {
 		#dim VertaalGroep As DOM.common.Transl.enu.VertaalGroep = VertaalGroepIterator.Next() 
-		if VertaalGroep = ##class(DOM.common.Transl.enu.VertaalGroep).KleurCodes() {
-			set Vertaling = ..GeefKleurVertaling(Sleutel)	
-		} else {
+		
+		If (VertaalGroep = ##class(DOM.common.Transl.enu.VertaalGroep).KleurCodes()) {
+			Set Vertaling = ..GeefKleurVertaling(Sleutel)	
+		} Else {
 		 	Set Vertaling = ..GeefResVertaling(VertaalGroep, Sleutel, HoofdletterGevoelig)
 		}
+		
 	 	If $Length(Vertaling) {
-			Set Gevonden = 1 		
+			Set Gevonden = $$$True
 		}
 	}
+	
 	Set ..Taal = OrigineleTaal
+	
 	Quit Vertaling
 ]]></Implementation>
 </Method>
@@ -66,12 +63,14 @@
 <FormalSpec>Sleutels:%ListOfDataTypes,Taal:DOM.enu.Taal=""</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	set Vertalingen = ##class(%ListOfDataTypes).%New()
+	#dim Vertalingen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	#dim SleutelsIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Sleutels)
-	while SleutelsIterator.HasNext() {
-		do Vertalingen.Insert(..GeefVertaling(SleutelsIterator.Next(),..Taal))
+	
+	While (SleutelsIterator.HasNext()) {
+		Do Vertalingen.Insert(..GeefVertaling(SleutelsIterator.Next(), ..Taal))
 	}
-	quit Vertalingen
+	
+	Quit Vertalingen
 ]]></Implementation>
 </Method>
 
@@ -80,10 +79,12 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim Vertaling As %String = Sleutel
-	#dim KleurCode As %String = $J(Sleutel,4)_" "
-	If $data(^KCOL(KleurCode,..Taal)){
-		Set Vertaling = ^KCOL(KleurCode,..Taal)
+	#dim KleurCode As %String = $Justify(Sleutel, 4) _ " "
+	
+	If ($data(^KCOL(KleurCode, ..Taal))){
+		Set Vertaling = ^KCOL(KleurCode, ..Taal)
 	}
+	
 	Quit Vertaling
 ]]></Implementation>
 </Method>
@@ -96,19 +97,19 @@
 	#dim Vertaling As %String = ""
 	#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= ?"	
+	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)	
+	If (ResultSet.Next()) {
+		Set Vertaling = ResultSet.GetData(1)	
 	}
 	
-	quit Vertaling
+	Quit Vertaling
 ]]></Implementation>
 </Method>
 </Class>