Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/LBX/Test.cls.xml
===================================================================
diff -u -r39676 -r39926
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/LBX/Test.cls.xml	(.../Test.cls.xml)	(revision 39676)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/LBX/Test.cls.xml	(.../Test.cls.xml)	(revision 39926)
@@ -33,17 +33,21 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Probox met aantal 5 voor klant andere klant dan optimapack -&gt; exceptie verwacht">
+<Method name="Test: Probox met aantal 4 voor klant andere klant dan optimapack -&gt; exceptie verwacht">
 <Implementation><![CDATA[
-	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("De winkelkar is niet besteld. Om gebruik te maken van het verpakkingstype 'Probox' voor LEGRABOX, moet u minstens 6 LEGRABOX lades bestellen. Om gebruik te maken van het verpakkingstype 'Probox' voor TA'OR BOX, moet u minstens 6 TA'OR BOX lades bestellen. Om gebruik te maken van het verpakkingstype 'Probox' voor TANDEMBOX, moet u minstens 6 TANDEMBOX lades bestellen. De combinatie van de 2 ladetypes in een 'Probox' is niet mogelijk.")
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("De winkelkar is niet besteld. "
+		_"Om gebruik te maken van het verpakkingstype 'Probox' voor LEGRABOX, moet u minstens 5 LEGRABOX lades bestellen. "
+		_"Om gebruik te maken van het verpakkingstype 'Probox' voor TA'OR BOX, moet u minstens 5 TA'OR BOX lades bestellen. "
+		_"Om gebruik te maken van het verpakkingstype 'Probox' voor TANDEMBOX, moet u minstens 5 TANDEMBOX lades bestellen. "
+		_"De combinatie van de 2 ladetypes in een 'Probox' is niet mogelijk.")
 	
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidUserInputException", Substrings))
-	Do ..ControleerWinkelkar(##class(DOM.VKP.enu.Klant).Keller(), 5)
+	Do ..ControleerWinkelkar(##class(DOM.VKP.enu.Klant).Keller(), 4)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Probox met aantal 6 voor klant andere klant dan optimapack -&gt; geen exceptie verwacht">
-<Implementation><![CDATA[	Do ..ControleerWinkelkar(##class(DOM.VKP.enu.Klant).Keller(), 6)
+<Method name="Test: Probox met aantal 5 voor klant andere klant dan optimapack -&gt; geen exceptie verwacht">
+<Implementation><![CDATA[	Do ..ControleerWinkelkar(##class(DOM.VKP.enu.Klant).Keller(), 5)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/common/impl/KlantInstellingenService.cls.xml
===================================================================
diff -u -r39707 -r39926
--- APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 39707)
+++ APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 39926)
@@ -103,7 +103,7 @@
 		} ElseIf KlantID = ##class(DOM.VKP.enu.Klant).SFS() {
 			Set MinimumAantal = 4
 		} Else {
-			Set MinimumAantal = 6
+			Set MinimumAantal = 5
 		}
     } ElseIf (##class(TECH.StringUtils).ToUpper(VerpakkingType) = "PROCOM") {
 		Set MinimumAantal = 6
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/TBX/Test.cls.xml
===================================================================
diff -u -r39675 -r39926
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/TBX/Test.cls.xml	(.../Test.cls.xml)	(revision 39675)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/TBX/Test.cls.xml	(.../Test.cls.xml)	(revision 39926)
@@ -33,17 +33,21 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Probox met aantal 5 voor klant andere klant dan optimapack -&gt; exceptie verwacht">
+<Method name="Test: Probox met aantal 4 voor klant andere klant dan optimapack -&gt; exceptie verwacht">
 <Implementation><![CDATA[
-	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("De winkelkar is niet besteld. Om gebruik te maken van het verpakkingstype 'Probox' voor LEGRABOX, moet u minstens 6 LEGRABOX lades bestellen. Om gebruik te maken van het verpakkingstype 'Probox' voor TA'OR BOX, moet u minstens 6 TA'OR BOX lades bestellen. Om gebruik te maken van het verpakkingstype 'Probox' voor TANDEMBOX, moet u minstens 6 TANDEMBOX lades bestellen. De combinatie van de 2 ladetypes in een 'Probox' is niet mogelijk.")
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("De winkelkar is niet besteld. "
+		_"Om gebruik te maken van het verpakkingstype 'Probox' voor LEGRABOX, moet u minstens 5 LEGRABOX lades bestellen. "
+		_"Om gebruik te maken van het verpakkingstype 'Probox' voor TA'OR BOX, moet u minstens 5 TA'OR BOX lades bestellen. "
+		_"Om gebruik te maken van het verpakkingstype 'Probox' voor TANDEMBOX, moet u minstens 5 TANDEMBOX lades bestellen. "
+		_"De combinatie van de 2 ladetypes in een 'Probox' is niet mogelijk.")
 	
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidUserInputException", Substrings))
-	Do ..ControleerWinkelkar(##class(DOM.VKP.enu.Klant).Keller(), 5)
+	Do ..ControleerWinkelkar(##class(DOM.VKP.enu.Klant).Keller(), 4)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Probox met aantal 6 voor klant andere klant dan optimapack -&gt; geen exceptie verwacht">
-<Implementation><![CDATA[	Do ..ControleerWinkelkar(##class(DOM.VKP.enu.Klant).Keller(), 6)
+<Method name="Test: Probox met aantal 5 voor klant andere klant dan optimapack -&gt; geen exceptie verwacht">
+<Implementation><![CDATA[	Do ..ControleerWinkelkar(##class(DOM.VKP.enu.Klant).Keller(), 5)
 ]]></Implementation>
 </Method>
 </Class>