Index: APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml
===================================================================
diff -u -r33405 -r39712
--- APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml	(.../WinkelkarControleur.cls.xml)	(revision 33405)
+++ APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml	(.../WinkelkarControleur.cls.xml)	(revision 39712)
@@ -45,30 +45,41 @@
 	#dim WinkelkarNietBesteld As %String = Vertaler.GeefVertaling("WinkelkarNietBesteld")
 	
 	Do ..ControleerInput(Winkelkar,'..HeeftMeerdereVerpakkingTypes(), WinkelkarNietBesteld _ " " _ Vertaler.GeefVertaling("NietMogelijkVerpakkingTypesCombineren"))
+
+	#dim VerpakkingIterator As TECH.Iterator = ..GeefVerpakkingIterator()
 	
-	#Dim VerpakkingType As TECH.String = "Probox"
-	#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 MinimumAantalVoorProbox As %Integer = ..KlantInstellingenService.GeefMinimimAantalProductLijnenVoorProbox(Winkelkar.GeefKlantID())
-	#Dim HeeftMinimumAantalIndienProbox As %Boolean = ..HeeftMinimumAantalVoorVerpakkingType(VerpakkingType,MinimumAantalVoorProbox)
-	
-	If $$$Not(HeeftMinimumAantalIndienProbox) {
-		#Dim MinimumAantalVanVerpakkingType As %String = Vertaler.GeefVertaling("MinimumAantalVanVerpakkingType")
+	While VerpakkingIterator.HasNext() {
+		#Dim VerpakkingType As TECH.String = VerpakkingIterator.Next()
+		#Dim VerpakkingTypeNietToegelaten As TECH.String = Vertaler.GeefVertaling("VerpakkingTypeNietToegelaten")
 		
-		Set MinimumAantalVanVerpakkingType = ##class(TECH.StringUtils).Replace(MinimumAantalVanVerpakkingType, "::Aantal::", MinimumAantalVoorProbox)
-		Set MinimumAantalVanVerpakkingType = ##class(TECH.StringUtils).Replace(MinimumAantalVanVerpakkingType, "::VerpakkingType::", VerpakkingType)
+		Set VerpakkingTypeNietToegelaten = ##class(TECH.StringUtils).Replace(VerpakkingTypeNietToegelaten, "::VerpakkingType::", VerpakkingType)
 		
-		#Dim Melding As %String = WinkelkarNietBesteld _ " " _ MinimumAantalVanVerpakkingType
+		Do ..ControleerInput(Winkelkar,..MagKlantVerpakkingTypeBestellen(Winkelkar, VerpakkingType), WinkelkarNietBesteld _ " " _ VerpakkingTypeNietToegelaten)
 		
-		Do ..ControleerInput(Winkelkar, HeeftMinimumAantalIndienProbox, Melding)
+		#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)
+		}
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVerpakkingIterator">
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListbuildIterator).%New($ListBuild("Probox","Procom"))
+]]></Implementation>
+</Method>
+
 <Method name="HeeftMeerdereVerpakkingTypes">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
@@ -83,6 +94,7 @@
 <Implementation><![CDATA[
 	#dim MagKlantVerpakkingTypeBestellen As %Boolean = 1
 			
+	#dim AantalVanTBXVerpakkingType As %Integer = ..VerpakkingControleur.GeefAantalVanTBXVerpakkingType(VerpakkingTypeTeBestellen)
 	#dim AantalVanLBXVerpakkingType As %Integer = ..VerpakkingControleur.GeefAantalVanLBXVerpakkingType(VerpakkingTypeTeBestellen)
 	#dim AantalVanTAORVerpakkingType As %Integer = ..VerpakkingControleur.GeefAantalVanTAORVerpakkingType(VerpakkingTypeTeBestellen)
 	
@@ -92,6 +104,9 @@
 	If (MagKlantVerpakkingTypeBestellen && (AantalVanTAORVerpakkingType > 0)) {	
 		Set MagKlantVerpakkingTypeBestellen = ..KlantInstellingenService.MagKlantTAORVerpakkingTypeBestellen(Winkelkar.GeefKlantID(),VerpakkingTypeTeBestellen)
 	}
+	If (MagKlantVerpakkingTypeBestellen && (AantalVanTBXVerpakkingType > 0)) {	
+		Set MagKlantVerpakkingTypeBestellen = ..KlantInstellingenService.MagKlantTBXVerpakkingTypeBestellen(Winkelkar.GeefKlantID(),VerpakkingTypeTeBestellen)
+	}
 	
 	Quit MagKlantVerpakkingTypeBestellen
 ]]></Implementation>