Index: APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml
===================================================================
diff -u -r39678 -r39679
--- APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml	(.../WinkelkarControleur.cls.xml)	(revision 39678)
+++ APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml	(.../WinkelkarControleur.cls.xml)	(revision 39679)
@@ -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.GeefMinimaleBestelhoeveelheid(Winkelkar.GeefKlantID(), VerpakkingType)
-	#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 MinimumAantalVoorProbox As %Integer = ..KlantInstellingenService.GeefMinimaleBestelhoeveelheid(Winkelkar.GeefKlantID(), VerpakkingType)
+		#Dim HeeftMinimumAantalIndienProbox As %Boolean = ..HeeftMinimumAantalVoorVerpakkingType(VerpakkingType,MinimumAantalVoorProbox)
+		
+		If $$$Not(HeeftMinimumAantalIndienProbox) {
+			#Dim MinimumAantalVanVerpakkingType As %String = Vertaler.GeefVertaling("MinimumAantalVanVerpakkingType")
+			
+			Set MinimumAantalVanVerpakkingType = ##class(TECH.StringUtils).Replace(MinimumAantalVanVerpakkingType, "::Aantal::", MinimumAantalVoorProbox)
+			Set MinimumAantalVanVerpakkingType = ##class(TECH.StringUtils).Replace(MinimumAantalVanVerpakkingType, "::VerpakkingType::", VerpakkingType)
+			
+			#Dim Melding As %String = WinkelkarNietBesteld _ " " _ MinimumAantalVanVerpakkingType
+			
+			Do ..ControleerInput(Winkelkar, HeeftMinimumAantalIndienProbox, 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>
Index: APPS/common/impl/KlantInstellingenService.cls.xml
===================================================================
diff -u -r39678 -r39679
--- APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 39678)
+++ APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 39679)
@@ -95,14 +95,20 @@
 <FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,VerpakkingType:TECH.String</FormalSpec>
 <ReturnType>TECH.Integer</ReturnType>
 <Implementation><![CDATA[
-	#dim MinimumAantalVoorProbox As %Integer
-	If KlantID = ##class(DOM.VKP.enu.Klant).OptimaPack() {
-		Set MinimumAantalVoorProbox = 1
-	} ElseIf KlantID = ##class(DOM.VKP.enu.Klant).SFS() {
-		Set MinimumAantalVoorProbox = 4
-	} Else {
+	#dim MinimumAantalVoorProbox As %Integer = 1
+	
+    If (##class(TECH.StringUtils).ToUpper(VerpakkingType) = "PROBOX") {
+		If KlantID = ##class(DOM.VKP.enu.Klant).OptimaPack() {
+			Set MinimumAantalVoorProbox = 1
+		} ElseIf KlantID = ##class(DOM.VKP.enu.Klant).SFS() {
+			Set MinimumAantalVoorProbox = 4
+		} Else {
+			Set MinimumAantalVoorProbox = 6
+		}
+    } ElseIf (##class(TECH.StringUtils).ToUpper(VerpakkingType) = "PROCOM") {
 		Set MinimumAantalVoorProbox = 6
 	}
+	
 	Quit MinimumAantalVoorProbox
 ]]></Implementation>
 </Method>
Index: APPS/EC/impl/KlantInstellingenServiceSFS.cls.xml
===================================================================
diff -u -r39678 -r39679
--- APPS/EC/impl/KlantInstellingenServiceSFS.cls.xml	(.../KlantInstellingenServiceSFS.cls.xml)	(revision 39678)
+++ APPS/EC/impl/KlantInstellingenServiceSFS.cls.xml	(.../KlantInstellingenServiceSFS.cls.xml)	(revision 39679)
@@ -51,8 +51,8 @@
 <FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,VerpakkingType:TECH.String</FormalSpec>
 <ReturnType>TECH.Integer</ReturnType>
 <Implementation><![CDATA[
-	#dim MinimumAantalVoorProbox As %Integer = 4
-	Quit MinimumAantalVoorProbox
+	Quit:(##class(TECH.StringUtils).ToUpper(VerpakkingType) = "PROCOM") 6
+	Quit 4
 ]]></Implementation>
 </Method>
 </Class>