Index: APPS/common/impl/KlantInstellingenService.cls.xml
===================================================================
diff -u -r39941 -r40356
--- APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 39941)
+++ APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 40356)
@@ -102,6 +102,8 @@
 			Set MinimumAantal = 1
 		} ElseIf KlantID = ##class(DOM.VKP.enu.Klant).SFS() {
 			Set MinimumAantal = 4
+		} ElseIf KlantID = ##class(DOM.VKP.enu.Klant).Hein() {
+			Set MinimumAantal = 4
 		} Else {
 			Set MinimumAantal = 5
 		}
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/LBX/Test.cls.xml
===================================================================
diff -u -r39936 -r40356
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/LBX/Test.cls.xml	(.../Test.cls.xml)	(revision 39936)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/LBX/Test.cls.xml	(.../Test.cls.xml)	(revision 40356)
@@ -50,6 +50,24 @@
 <Implementation><![CDATA[	Do ..ControleerWinkelkar(##class(DOM.VKP.enu.Klant).Keller(), 5)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Probox met aantal 4 voor klant Hein -&gt; geen exceptie verwacht">
+<Implementation><![CDATA[	Do ..ControleerWinkelkar(##class(DOM.VKP.enu.Klant).Hein(), 4)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Probox met aantal 3 voor klant Hein -&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 4 LEGRABOX lades bestellen. "
+		_"Om gebruik te maken van het verpakkingstype 'Probox' voor TA'OR BOX, moet u minstens 4 TA'OR BOX lades bestellen. "
+		_"Om gebruik te maken van het verpakkingstype 'Probox' voor TANDEMBOX, moet u minstens 4 TANDEMBOX lades bestellen. "
+		_"De combinatie van meerdere 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).Hein(), 3)
+]]></Implementation>
+</Method>
 </Class>