Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/TBX/TestProcom.cls.xml
===================================================================
diff -u -r43142 -r51828
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/TBX/TestProcom.cls.xml	(.../TestProcom.cls.xml)	(revision 43142)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/TBX/TestProcom.cls.xml	(.../TestProcom.cls.xml)	(revision 51828)
@@ -33,6 +33,8 @@
 </Method>
 
 <Method name="Test: Procom met aantal 1 voor VanHoeckeKlant optimapack - exceptie verwacht">
+<Description>
+Voor klant OptimaPack mag wel ProBOX per stuk (!) bestellen.  Daarom deze test, dat dit niet geldig is voor "ProCOM" ! </Description>
 <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 6 LEGRABOX lades bestellen. Om gebruik te maken van het verpakkingstype 'Procom' voor TA'OR BOX, moet u minstens 6 TA'OR BOX lades bestellen. Om gebruik te maken van het verpakkingstype 'Procom' voor TANDEMBOX, moet u minstens 6 TANDEMBOX lades bestellen. De combinatie van meerdere ladetypes in een 'Procom' is niet mogelijk.")
 	
@@ -41,25 +43,16 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Procom met aantal 4 voor VanHoeckeKlant SFS - exceptie verwacht">
+<Method name="Test: Procom met aantal 5 voor eender welke klant -&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 'Procom' voor LEGRABOX, moet u minstens 6 LEGRABOX lades bestellen. Om gebruik te maken van het verpakkingstype 'Procom' voor TA'OR BOX, moet u minstens 6 TA'OR BOX lades bestellen. Om gebruik te maken van het verpakkingstype 'Procom' voor TANDEMBOX, moet u minstens 6 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).SFS(), 4)
-]]></Implementation>
-</Method>
-
-<Method name="Test: Procom met aantal 5 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 'Procom' voor LEGRABOX, moet u minstens 6 LEGRABOX lades bestellen. Om gebruik te maken van het verpakkingstype 'Procom' voor TA'OR BOX, moet u minstens 6 TA'OR BOX lades bestellen. Om gebruik te maken van het verpakkingstype 'Procom' voor TANDEMBOX, moet u minstens 6 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).Keller(), 5)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Procom met aantal 6 voor klant andere klant dan optimapack -&gt; geen exceptie verwacht">
+<Method name="Test: Procom met aantal 6 voor eender welke klant -&gt; geen exceptie verwacht">
 <Implementation><![CDATA[	Do ..ControleerWinkelkar(##class(DOM.VKP.enu.Klant).Keller(), 6)
 ]]></Implementation>
 </Method>