Index: APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml
===================================================================
diff -u -r40440 -r40443
--- APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml	(.../WinkelkarControleur.cls.xml)	(revision 40440)
+++ APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml	(.../WinkelkarControleur.cls.xml)	(revision 40443)
@@ -40,32 +40,36 @@
 	
 	#dim Vertaler As DOM.common.Transl.Vertaler = ..GeefVertaler(Winkelkar)
 	#dim WinkelkarNietBesteld As %String = Vertaler.GeefVertaling("WinkelkarNietBesteld")
-	
 	Do ..ControleerInput(Winkelkar,'..HeeftMeerdereVerpakkingTypes(), WinkelkarNietBesteld _ " " _ Vertaler.GeefVertaling("NietMogelijkVerpakkingTypesCombineren"))
 
 	#dim VerpakkingIterator As TECH.Iterator = ..GeefVerpakkingIterator()
-	
 	While VerpakkingIterator.HasNext() {
-		#Dim VerpakkingType As TECH.String = VerpakkingIterator.Next()
-		#Dim VerpakkingTypeNietToegelaten As TECH.String = Vertaler.GeefVertaling("VerpakkingTypeNietToegelaten")
+		Do ..ControleerInputVoorVerpakking(Winkelkar, VerpakkingIterator.Next(), Vertaler, WinkelkarNietBesteld)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ControleerInputVoorVerpakking">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,VerpakkingType:TECH.String,Vertaler:DOM.common.Transl.Vertaler,WinkelkarNietBesteld:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#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)
+	
+	#Dim MinimumAantal As %Integer = ..KlantInstellingenService.GeefMinimaleBestelhoeveelheid(Winkelkar.GeefKlantID(), VerpakkingType)
+	#Dim HeeftMinimumAantal As %Boolean = ..HeeftMinimumAantalVoorVerpakkingType(VerpakkingType, MinimumAantal)
+	
+	If $$$Not(HeeftMinimumAantal) {
+		#Dim MinimumAantalVanVerpakkingType As %String = Vertaler.GeefVertaling("MinimumAantalVanVerpakkingType")
 		
-		Set VerpakkingTypeNietToegelaten = ##class(TECH.StringUtils).Replace(VerpakkingTypeNietToegelaten, "::VerpakkingType::", VerpakkingType)
+		Set MinimumAantalVanVerpakkingType = ##class(TECH.StringUtils).Replace(MinimumAantalVanVerpakkingType, "::Aantal::", MinimumAantal)
+		Set MinimumAantalVanVerpakkingType = ##class(TECH.StringUtils).Replace(MinimumAantalVanVerpakkingType, "::VerpakkingType::", VerpakkingType)
 		
-		Do ..ControleerInput(Winkelkar,..MagKlantVerpakkingTypeBestellen(Winkelkar, VerpakkingType), WinkelkarNietBesteld _ " " _ VerpakkingTypeNietToegelaten)
+		#Dim Melding As %String = WinkelkarNietBesteld _ " " _ MinimumAantalVanVerpakkingType
 		
-		#Dim MinimumAantal As %Integer = ..KlantInstellingenService.GeefMinimaleBestelhoeveelheid(Winkelkar.GeefKlantID(), VerpakkingType)
-		#Dim HeeftMinimumAantal As %Boolean = ..HeeftMinimumAantalVoorVerpakkingType(VerpakkingType,MinimumAantal)
-		
-		If $$$Not(HeeftMinimumAantal) {
-			#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)
-			
-			#Dim Melding As %String = WinkelkarNietBesteld _ " " _ MinimumAantalVanVerpakkingType
-			
-			Do ..ControleerInput(Winkelkar, HeeftMinimumAantal, Melding)
-		}
+		Do ..ControleerInput(Winkelkar, HeeftMinimumAantal, Melding)
 	}
 ]]></Implementation>
 </Method>