Index: DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler.cls.xml
===================================================================
diff -u -r29416 -r29441
--- DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler.cls.xml	(.../IngegevenKenmerkenInfoDiverseBepaler.cls.xml)	(revision 29416)
+++ DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler.cls.xml	(.../IngegevenKenmerkenInfoDiverseBepaler.cls.xml)	(revision 29441)
@@ -18,13 +18,25 @@
 <Private>1</Private>
 </Property>
 
+<Method name="%OnNew">
+<FormalSpec>Taal:DOM.enu.Taal,StandaardVertaler:DOM.common.Transl.Vertaler="",KleurCodeVertaler:DOM.common.Transl.Vertaler=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..StandaardVertaler = $$$Implementation(StandaardVertaler, ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefStandaardVertaler(Taal))
+	Set ..KleurCodeVertaler = $$$Implementation(KleurCodeVertaler, ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefKleurCodeVertaler(Taal))
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="BepaalInfoDiverseItems">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Taal:DOM.enu.Taal</FormalSpec>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	Set ..InfoDiverseItems = ##class(%ListOfDataTypes).%New()
-	Set ..StandaardVertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefStandaardVertaler(Taal)
-	Set ..KleurCodeVertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefKleurCodeVertaler(Taal)
 
 	Do IngegevenKenmerken.Accept($this)
 	
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler/BepaalInfoDiverseItems/TestBase.cls.xml
===================================================================
diff -u -r29436 -r29441
--- vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler/BepaalInfoDiverseItems/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 29436)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler/BepaalInfoDiverseItems/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 29441)
@@ -22,17 +22,12 @@
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,VerwachteInfoDiverseItems:%ListOfDataTypes</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#Dim Bepaler As DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler).%New()
-	#Dim StandaardVertalerStub = ##class(vhTest.Utils.Vertaler).%New("")
-	#Dim KleurCodeVertalerStub = ##class(vhTest.Utils.Vertaler).%New("")
 	#Dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
-	#Dim VertaalAPIStub As vhTest.Mock.DOM.common.Transl.VertaalAPI = ##class(vhTest.Mock.DOM.common.Transl.VertaalAPI).MockInstance()
+	#Dim StandaardVertalerStub As vhTest.Utils.Vertaler = ##class(vhTest.Utils.Vertaler).%New("")
+	#Dim KleurCodeVertalerStub As vhTest.Utils.Vertaler = ##class(vhTest.Utils.Vertaler).%New("")
+	#Dim InfoDiverseBepaler As DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler).%New(Taal, StandaardVertalerStub, KleurCodeVertalerStub)
+	#Dim InfoDiverseItems As %ListOfDataTypes = InfoDiverseBepaler.BepaalInfoDiverseItems(IngegevenKenmerken)
 	
-	Do VertaalAPIStub.IndienMethodCall("GeefStandaardVertaler", Taal).DanReturn(StandaardVertalerStub)
-	Do VertaalAPIStub.IndienMethodCall("GeefKleurCodeVertaler", Taal).DanReturn(KleurCodeVertalerStub)
-	
-	#Dim InfoDiverseItems As %ListOfDataTypes = Bepaler.BepaalInfoDiverseItems(IngegevenKenmerken, Taal)
-	
 	Do $$$AssertEqualsList(InfoDiverseItems, VerwachteInfoDiverseItems)
 ]]></Implementation>
 </Method>
Index: APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml
===================================================================
diff -u -r29438 -r29441
--- APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml	(.../LijnNaarDtoVisitor.cls.xml)	(revision 29438)
+++ APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml	(.../LijnNaarDtoVisitor.cls.xml)	(revision 29441)
@@ -117,8 +117,8 @@
 	#Dim InfoDiverseItems As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	#Dim Taal As DOM.enu.Taal = ..GeefTaal()
 	
-	#Dim InfoDiverseBepaler As DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler).%New()
-	#Dim InfoDiverseIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(InfoDiverseBepaler.BepaalInfoDiverseItems(MaatwerkLijn.GeefIngegevenKenmerken(), Taal))
+	#Dim InfoDiverseBepaler As DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler).%New(Taal)
+	#Dim InfoDiverseIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(InfoDiverseBepaler.BepaalInfoDiverseItems(MaatwerkLijn.GeefIngegevenKenmerken()))
 	
 	While (InfoDiverseIterator.HasNext()) {
 		Do InfoDiverseItems.Insert(InfoDiverseIterator.Next())