Index: APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml
===================================================================
diff -u -r40444 -r40445
--- APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml	(.../WinkelkarControleur.cls.xml)	(revision 40444)
+++ APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml	(.../WinkelkarControleur.cls.xml)	(revision 40445)
@@ -14,6 +14,16 @@
 <Type>APPS.EC.Winkelkar.impl.VerpakkingControleurWinkelkarVisitor</Type>
 </Property>
 
+<Property name="Winkelkar">
+<Type>DOM.EC.Winkelkar.Winkelkar</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Vertaler">
+<Type>DOM.common.Transl.Vertaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>KlantInstellingenService:APPS.common.KlantInstellingenService</FormalSpec>
 <Private>1</Private>
@@ -35,45 +45,46 @@
 <Method name="ControleerWinkelkar">
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
 <Implementation><![CDATA[
+	Set ..Winkelkar = Winkelkar
 	Set ..VerpakkingControleur = ##class(APPS.EC.Winkelkar.impl.VerpakkingControleurWinkelkarVisitor).%New()
-	Do Winkelkar.Accept(..VerpakkingControleur)
+	Do ..Winkelkar.Accept(..VerpakkingControleur)
 	
-	#dim Vertaler As DOM.common.Transl.Vertaler = ..GeefVertaler(Winkelkar)
-	#dim WinkelkarNietBesteld As %String = Vertaler.GeefVertaling("WinkelkarNietBesteld")
-	Do ..ControleerInput(Winkelkar,'..HeeftMeerdereVerpakkingTypes(), WinkelkarNietBesteld _ " " _ Vertaler.GeefVertaling("NietMogelijkVerpakkingTypesCombineren"))
+	Do ..ZetVertaler()
+	#dim WinkelkarNietBesteld As %String = ..Vertaler.GeefVertaling("WinkelkarNietBesteld")
+	Do ..ControleerInput('..HeeftMeerdereVerpakkingTypes(), WinkelkarNietBesteld _ " " _ ..Vertaler.GeefVertaling("NietMogelijkVerpakkingTypesCombineren"))
 
 	#dim VerpakkingIterator As TECH.Iterator = ..GeefVerpakkingIterator()
 	While VerpakkingIterator.HasNext() {
-		Do ..ControleerInputVoorVerpakking(Winkelkar, VerpakkingIterator.Next(), Vertaler, WinkelkarNietBesteld)
+		Do ..ControleerInputVoorVerpakking(VerpakkingIterator.Next(), WinkelkarNietBesteld)
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="ControleerInputVoorVerpakking">
-<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,VerpakkingType:TECH.String,Vertaler:DOM.common.Transl.Vertaler,WinkelkarNietBesteld:%String</FormalSpec>
+<FormalSpec>VerpakkingType:TECH.String,WinkelkarNietBesteld:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#Dim VerpakkingTypeNietToegelaten As TECH.String = Vertaler.GeefVertaling("VerpakkingTypeNietToegelaten")
+	#Dim VerpakkingTypeNietToegelaten As TECH.String = ..Vertaler.GeefVertaling("VerpakkingTypeNietToegelaten")
 	Set VerpakkingTypeNietToegelaten = ##class(TECH.StringUtils).Replace(VerpakkingTypeNietToegelaten, "::VerpakkingType::", VerpakkingType)
 	
-	Do ..ControleerInput(Winkelkar,..MagKlantVerpakkingTypeBestellen(Winkelkar, VerpakkingType), WinkelkarNietBesteld _ " " _ VerpakkingTypeNietToegelaten)
+	Do ..ControleerInput(..MagKlantVerpakkingTypeBestellen(VerpakkingType), WinkelkarNietBesteld _ " " _ VerpakkingTypeNietToegelaten)
 	
-	#Dim MinimumAantal As %Integer = ..KlantInstellingenService.GeefMinimaleBestelhoeveelheid(Winkelkar.GeefKlantID(), VerpakkingType)
+	#Dim MinimumAantal As %Integer = ..KlantInstellingenService.GeefMinimaleBestelhoeveelheid(..Winkelkar.GeefKlantID(), VerpakkingType)
 	#Dim HeeftMinimumAantal As %Boolean = ..HeeftMinimumAantalVoorVerpakkingType(VerpakkingType, MinimumAantal)
 	
 	If $$$Not(HeeftMinimumAantal) {
-		#Dim Melding As %String = ..MaakMeldingMinimumAantalVanVerpakkingType(Vertaler, MinimumAantal, VerpakkingType, WinkelkarNietBesteld)
-		Do ..ControleerInput(Winkelkar, HeeftMinimumAantal, Melding)
+		#Dim Melding As %String = ..MaakMeldingMinimumAantalVanVerpakkingType(MinimumAantal, VerpakkingType, WinkelkarNietBesteld)
+		Do ..ControleerInput(HeeftMinimumAantal, Melding)
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="MaakMeldingMinimumAantalVanVerpakkingType">
-<FormalSpec>Vertaler:DOM.common.Transl.Vertaler,MinimumAantal:%Integer,VerpakkingType:TECH.String,WinkelkarNietBesteld:%String</FormalSpec>
+<FormalSpec>MinimumAantal:%Integer,VerpakkingType:TECH.String,WinkelkarNietBesteld:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#Dim MinimumAantalVanVerpakkingType As %String = Vertaler.GeefVertaling("MinimumAantalVanVerpakkingType")
+	#Dim MinimumAantalVanVerpakkingType As %String = ..Vertaler.GeefVertaling("MinimumAantalVanVerpakkingType")
 	
 	Set MinimumAantalVanVerpakkingType = ##class(TECH.StringUtils).Replace(MinimumAantalVanVerpakkingType, "::Aantal::", MinimumAantal)
 	Set MinimumAantalVanVerpakkingType = ##class(TECH.StringUtils).Replace(MinimumAantalVanVerpakkingType, "::VerpakkingType::", VerpakkingType)
@@ -82,14 +93,12 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefVertaler">
-<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<Method name="ZetVertaler">
 <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())
+	#dim Taal As DOM.enu.Taal = WinkelkarService.GeefTaal(..Winkelkar)
+	Set ..Vertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefVertaler(Taal, ##class(DOM.common.Transl.enu.VertaalGroep).Unishop())
 ]]></Implementation>
 </Method>
 
@@ -108,7 +117,7 @@
 </Method>
 
 <Method name="MagKlantVerpakkingTypeBestellen">
-<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,VerpakkingTypeTeBestellen:%String</FormalSpec>
+<FormalSpec>VerpakkingTypeTeBestellen:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
@@ -119,13 +128,13 @@
 	#dim AantalVanTAORVerpakkingType As %Integer = ..VerpakkingControleur.GeefAantalVanTAORVerpakkingType(VerpakkingTypeTeBestellen)
 	
 	If (AantalVanLBXVerpakkingType > 0) {		
-		Set MagKlantVerpakkingTypeBestellen = ..KlantInstellingenService.MagKlantLBXVerpakkingTypeBestellen(Winkelkar.GeefKlantID(),VerpakkingTypeTeBestellen)
+		Set MagKlantVerpakkingTypeBestellen = ..KlantInstellingenService.MagKlantLBXVerpakkingTypeBestellen(..Winkelkar.GeefKlantID(),VerpakkingTypeTeBestellen)
 	}
 	If (MagKlantVerpakkingTypeBestellen && (AantalVanTAORVerpakkingType > 0)) {	
-		Set MagKlantVerpakkingTypeBestellen = ..KlantInstellingenService.MagKlantTAORVerpakkingTypeBestellen(Winkelkar.GeefKlantID(),VerpakkingTypeTeBestellen)
+		Set MagKlantVerpakkingTypeBestellen = ..KlantInstellingenService.MagKlantTAORVerpakkingTypeBestellen(..Winkelkar.GeefKlantID(),VerpakkingTypeTeBestellen)
 	}
 	If (MagKlantVerpakkingTypeBestellen && (AantalVanTBXVerpakkingType > 0)) {	
-		Set MagKlantVerpakkingTypeBestellen = ..KlantInstellingenService.MagKlantTBXVerpakkingTypeBestellen(Winkelkar.GeefKlantID(),VerpakkingTypeTeBestellen)
+		Set MagKlantVerpakkingTypeBestellen = ..KlantInstellingenService.MagKlantTBXVerpakkingTypeBestellen(..Winkelkar.GeefKlantID(),VerpakkingTypeTeBestellen)
 	}
 	
 	Quit MagKlantVerpakkingTypeBestellen
@@ -151,12 +160,12 @@
 </Method>
 
 <Method name="ControleerInput">
-<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,InputOK:%Boolean,BerichtIndienNietOK:%String=""</FormalSpec>
+<FormalSpec>InputOK:%Boolean,BerichtIndienNietOK:%String=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	If 'InputOK {
 		Set Exception = ##class(TECH.Exceptions.InvalidUserInputException).%New(BerichtIndienNietOK)
-		Do Exception.VoegToeExtraInfo("WinkelkarID: "_Winkelkar.GeefID())
+		Do Exception.VoegToeExtraInfo("WinkelkarID: "_..Winkelkar.GeefID())
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 ]]></Implementation>