Index: APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml
===================================================================
diff -u -r39712 -r40440
--- APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml	(.../WinkelkarControleur.cls.xml)	(revision 39712)
+++ APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml	(.../WinkelkarControleur.cls.xml)	(revision 40440)
@@ -35,13 +35,10 @@
 <Method name="ControleerWinkelkar">
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
 <Implementation><![CDATA[
-	#dim WinkelkarService As APPS.EC.Winkelkar.impl.WinkelkarService = ##class(APPS.EC.Winkelkar.impl.ExterneWinkelkarService).%New()
-	
 	Set ..VerpakkingControleur = ##class(APPS.EC.Winkelkar.impl.VerpakkingControleurWinkelkarVisitor).%New()
 	Do Winkelkar.Accept(..VerpakkingControleur)
 	
-	#dim Taal As DOM.enu.Taal = WinkelkarService.GeefTaal(Winkelkar)
-	#dim Vertaler As DOM.common.Transl.Vertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefVertaler(Taal, ##class(DOM.common.Transl.enu.VertaalGroep).Unishop())
+	#dim Vertaler As DOM.common.Transl.Vertaler = ..GeefVertaler(Winkelkar)
 	#dim WinkelkarNietBesteld As %String = Vertaler.GeefVertaling("WinkelkarNietBesteld")
 	
 	Do ..ControleerInput(Winkelkar,'..HeeftMeerdereVerpakkingTypes(), WinkelkarNietBesteld _ " " _ Vertaler.GeefVertaling("NietMogelijkVerpakkingTypesCombineren"))
@@ -73,6 +70,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVertaler">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.common.Transl.Vertaler</ReturnType>
+<Implementation><![CDATA[
+	#dim WinkelkarService As APPS.EC.Winkelkar.impl.WinkelkarService = ##class(APPS.EC.Winkelkar.impl.ExterneWinkelkarService).%New()
+	#dim Taal As DOM.enu.Taal = WinkelkarService.GeefTaal(Winkelkar)
+	Quit ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefVertaler(Taal, ##class(DOM.common.Transl.enu.VertaalGroep).Unishop())
+]]></Implementation>
+</Method>
+
 <Method name="GeefVerpakkingIterator">
 <Private>1</Private>
 <ReturnType>TECH.Iterator</ReturnType>