Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/TBX/TestProcom.cls.xml
===================================================================
diff -u -r51828 -r51829
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/TBX/TestProcom.cls.xml	(.../TestProcom.cls.xml)	(revision 51828)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/TBX/TestProcom.cls.xml	(.../TestProcom.cls.xml)	(revision 51829)
@@ -56,6 +56,20 @@
 <Implementation><![CDATA[	Do ..ControleerWinkelkar(##class(DOM.VKP.enu.Klant).Keller(), 6)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Procom met aantal 20 voor klant Intos -&gt; geen exceptie verwacht">
+<Implementation><![CDATA[	Do ..ControleerWinkelkar(##class(DOM.VKP.enu.Klant).IntosBV(), 20)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Procom met aantal 19 voor klant Intos - exceptie verwacht">
+<Implementation><![CDATA[
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("De winkelkar is niet besteld. Om gebruik te maken van het verpakkingstype 'Procom' voor LEGRABOX, moet u minstens 20 LEGRABOX lades bestellen. Om gebruik te maken van het verpakkingstype 'Procom' voor TA'OR BOX, moet u minstens 20 TA'OR BOX lades bestellen. Om gebruik te maken van het verpakkingstype 'Procom' voor TANDEMBOX, moet u minstens 20 TANDEMBOX lades bestellen. De combinatie van meerdere ladetypes in een 'Procom' is niet mogelijk.")
+	
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidUserInputException", Substrings))
+	Do ..ControleerWinkelkar(##class(DOM.VKP.enu.Klant).IntosBV(), 19)
+]]></Implementation>
+</Method>
 </Class>