Index: DOM/common/Transl/impl/Vertaler.cls.xml
===================================================================
diff -u -r34008 -r34077
--- DOM/common/Transl/impl/Vertaler.cls.xml	(.../Vertaler.cls.xml)	(revision 34008)
+++ DOM/common/Transl/impl/Vertaler.cls.xml	(.../Vertaler.cls.xml)	(revision 34077)
@@ -1,7 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="DOM.common.Transl.impl.Vertaler">
 <Super>DOM.common.Transl.Vertaler,TECH.RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="VertaalGroepen">
 <Type>DOM.common.Transl.enu.VertaalGroep</Type>
@@ -37,17 +38,17 @@
 <FormalSpec>Sleutel:%String,Taal:DOM.enu.Taal="",HoofdletterGevoelig:%Boolean=$$$False</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim OrigineleTaal As DOM.enu.Taal = ..Taal
+	set OrigineleTaal = ..Taal
 	if Taal '= "" {
-		Set ..Taal = Taal
+		set ..Taal = Taal
 	}
 
-	#dim Vertaling As %String = ""
-	#dim Gevonden As %Boolean = 0
+	Set Vertaling = ""
+	Set Gevonden  = 0
 	
 	set VertaalGroepIterator = ##class(TECH.ListIterator).%New(..VertaalGroepen)
 	while VertaalGroepIterator.HasNext() && ('Gevonden) {
-		#dim VertaalGroep As DOM.common.Transl.enu.VertaalGroep = VertaalGroepIterator.Next() 
+		Set VertaalGroep = VertaalGroepIterator.Next() 
 		if VertaalGroep = ##class(DOM.common.Transl.enu.VertaalGroep).KleurCodes() {
 			set Vertaling = ..GeefKleurVertaling(Sleutel)	
 		} else {
@@ -67,7 +68,7 @@
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	set Vertalingen = ##class(%ListOfDataTypes).%New()
-	#dim SleutelsIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Sleutels)
+	set SleutelsIterator = ##class(TECH.ListIterator).%New(Sleutels)
 	while SleutelsIterator.HasNext() {
 		do Vertalingen.Insert(..GeefVertaling(SleutelsIterator.Next(),..Taal))
 	}
@@ -79,8 +80,8 @@
 <FormalSpec>Sleutel:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim Vertaling As %String = Sleutel
-	#dim KleurCode As %String = $J(Sleutel,4)_" "
+	set Vertaling = Sleutel
+	set KleurCode = $J(Sleutel,4)_" "
 	If $data(^KCOL(KleurCode,..Taal)){
 		Set Vertaling = ^KCOL(KleurCode,..Taal)
 	}
@@ -93,16 +94,16 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim Vertaling As %String = ""
-	#dim Query As %String = ""
+	set Vertaling = ""
+	set Query = ""
 	
 	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))
+	set ResultSet = ##class(TECH.ResultSet).Create(Query, $listbuild(VertaalGroep, Sleutel, ..Taal))
 	
 	if ResultSet.Next() {
 		set Vertaling = ResultSet.GetData(1)	
@@ -112,6 +113,4 @@
 ]]></Implementation>
 </Method>
 </Class>
-
-
 </Export>