Index: vhUnitTest/APPS/TBXWeb/TestWSOrder.cls.xml
===================================================================
diff -u -r177 -r218
--- vhUnitTest/APPS/TBXWeb/TestWSOrder.cls.xml	(.../TestWSOrder.cls.xml)	(revision 177)
+++ vhUnitTest/APPS/TBXWeb/TestWSOrder.cls.xml	(.../TestWSOrder.cls.xml)	(revision 218)
@@ -26,6 +26,15 @@
 <Implementation><![CDATA[
 	Set TBXContext=..GeefTBXContextVHEPN()
 	Set WSOrder=..GeefLegeWSOrderMetEenOrderLijn()
+	Do ..ZetVerpakkingEnTotAantal(WSOrder,"X",5)
+	Do $$$AssertFalse(WSOrder.HeeftVoldoendeBestelhoeveelheid(TBXContext),"Het WSOrder heeft NIET voldoende bestelhoeveelheid (#:5) voor Probox")
+]]></Implementation>
+</Method>
+
+<Method name="TestMinBestProboxMBHO">
+<Implementation><![CDATA[
+	Set TBXContext=..GeefTBXContextMBHO()
+	Set WSOrder=..GeefLegeWSOrderMetEenOrderLijn()
 	Do ..ZetVerpakkingEnTotAantal(WSOrder,"X",1)
 	Do $$$AssertTrue(WSOrder.HeeftVoldoendeBestelhoeveelheid(TBXContext),"Het WSOrder heeft voldoende bestelhoeveelheid (#=1) voor Probox")
 ]]></Implementation>
@@ -43,6 +52,29 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestMinBestLijstTBXOrders">
+<Implementation><![CDATA[
+	Set TBXContext=..GeefTBXContextVHEPN()
+	
+	Set WSOrderA=..GeefLegeWSOrderMetEenOrderLijn()
+	Do ..ZetVerpakkingEnTotAantal(WSOrderA,"X",2)
+	Set WSOrderB=..GeefLegeWSOrderMetEenOrderLijn()
+	Do ..ZetVerpakkingEnTotAantal(WSOrderB,"X",3)
+	Set WSOrderC=..GeefLegeWSOrderMetEenOrderLijn()
+	Do ..ZetVerpakkingEnTotAantal(WSOrderC,"X",1)
+	
+	Set LijstTBXOrders=##class(TECH.ListUtils).CreateListOfObjects(WSOrderA,WSOrderB)
+	Set TBXOrdersDto=##class(APPS.TBXWeb.dto.TBXOrderLijst).%New(LijstTBXOrders,TBXContext)
+	
+	Set TotaalAantalIsVoldoende=TBXOrdersDto.HeeftVoldoendeBestelhoeveelheid()
+	Do $$$AssertFalse(TotaalAantalIsVoldoende,"De lijst van TBXOrders heeft NIET voldoende bestelhoeveelheid (#:5) voor Probox")
+
+	Do LijstTBXOrders.Insert(WSOrderC)
+	Set TotaalAantalIsVoldoende=TBXOrdersDto.HeeftVoldoendeBestelhoeveelheid()
+	Do $$$AssertTrue(TotaalAantalIsVoldoende,"De lijst van TBXOrders  heeft voldoende bestelhoeveelheid (#:6) voor Probox")
+]]></Implementation>
+</Method>
+
 <Method name="GeefLegeWSOrder">
 <Private>1</Private>
 <ReturnType>WS.TBX.Order</ReturnType>
@@ -88,5 +120,13 @@
 	Quit TBXContext
 ]]></Implementation>
 </Method>
+
+<Method name="GeefTBXContextMBHO">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set TBXContext=##class(APPS.TBXWeb.TBXContext).%New($$$TBoxWebDomeinMBHO)
+	Quit TBXContext
+]]></Implementation>
+</Method>
 </Class>
 </Export>