Index: WS/TBX/Order.cls.xml
===================================================================
diff -u -r148 -r177
--- WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 148)
+++ WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 177)
@@ -135,8 +135,6 @@
 </Property>
 
 <Property name="TotAantal">
-<Description><![CDATA[
-s i="0"  f  s i=$O(^WS.TBX.OrderD(i)) q:(i="")  w i,!  s:$LL(^WS.TBX.OrderD(i))>14 $LI(^WS.TBX.OrderD(i),14,14)=$LI(^WS.TBX.OrderD(i),14,14)_$LB("")]]></Description>
 <Type>%String</Type>
 <Parameter name="XMLNAME" value="TOTAANTAL"/>
 </Property>
@@ -599,6 +597,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefTotaalAantal">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..TotAantal
+]]></Implementation>
+</Method>
+
+<Method name="HeeftVoldoendeBestelhoeveelheid">
+<Description>
+Validatie van de Bestelhoeveelheid : is afhankelijk van de gekozen verpakking in het order en is Domein-specifiek. </Description>
+<FormalSpec>TBXContext:APPS.TBXWeb.TBXContext</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set IsVoldoende=1
+
+	Set MinimaleBestelhoeveelheid=TBXContext.GeefMinimaleBestelhoeveelheid(..GeefVerpakkingType())
+	If ..GeefTotaalAantal()<MinimaleBestelhoeveelheid {
+		Set IsVoldoende=0
+	}
+	Quit IsVoldoende
+]]></Implementation>
+</Method>
+
 <Method name="DagenVervallen">
 <FormalSpec>RefDatum:%String=$H,AantalDagenGeldig:%Integer=30</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: WV GAProduct DMZ.prj.xml
===================================================================
diff -u -r135 -r177
--- WV GAProduct DMZ.prj.xml	(.../WV GAProduct DMZ.prj.xml)	(revision 135)
+++ WV GAProduct DMZ.prj.xml	(.../WV GAProduct DMZ.prj.xml)	(revision 177)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="WV GAProduct DMZ" LastModified="2012-02-07 16:36:13" Target="ophSendAlertMail^csp" TargetType="2" HttpServer="http://192.168.1.67:1972">
+<Project name="WV GAProduct DMZ" LastModified="2012-03-15 15:41:35" Target="ophSendAlertMail^csp" TargetType="2" HttpServer="http://192.168.1.67:1972">
   <Items>
     <ProjectItem name="/csp/httplog/DLGqueryVH.csp" type="CSP"/>
     <ProjectItem name="/csp/httplog/queryVH.csp" type="CSP"/>
@@ -151,6 +151,7 @@
     <ProjectItem name="vhDeploy.WV.Deploy20120126x1646Actie2012SFS" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.TBXWeb.TestActies" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.TBXWeb.TestTBXContext" type="CLS"/>
+    <ProjectItem name="vhUnitTest.APPS.TBXWeb.TestWSOrder" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.TBXWeb.impl.VHEPNOrderHandler" type="CLS"/>
     <ProjectItem name="vhUnitTest.WS.TBX.OrderService.Verwerker" type="CLS"/>
   </Items>
Index: APPS/TBXWeb/TBXContext.cls.xml
===================================================================
diff -u -r150 -r177
--- APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 150)
+++ APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 177)
@@ -899,6 +899,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefMinimaleBestelhoeveelheid">
+<FormalSpec>Verpakking:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Set MinimaleBestelhoeveelheid=1
+	If (..IsSFS) {
+		If (Verpakking="X")||(Verpakking="Y") {
+			Set MinimaleBestelhoeveelheid=1   ; Zet deze waarde op 6 om de beperking te activeren! 
+		}
+	}
+	Quit MinimaleBestelhoeveelheid
+]]></Implementation>
+</Method>
+
 <Method name="BulkConfigOptiesUitbreiden">
 <Description>
 Is bedoeld voor de verwerker in PROCESS-mode (VHEPN), om de verpakking alsnog te wijzigen alvorens de "Import into Admin" uit te voeren. </Description>
Index: csp/vhisie/TBX/Main/tmpDev.mac.rou
===================================================================
diff -u -r100 -r177
--- csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 100)
+++ csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 177)
@@ -445,7 +445,7 @@
 	Set arShow("NotRegUserInfoOPTIMA","INFO")=(TBXContext.KlantGegevensViaDataOpt())&&(KLNr="")   ; &&('$D(%session.Data("DA TAOPT"))))
 	Quit
 ophMMComplete
-	New WSOrd,blnDynaplugERR,IsDesignBeschikbaar,DS
+	New WSOrd,blnDynaplugERR,IsDesignBeschikbaar,DS,IsSubmitBtnDisabled
 	Set WSOrd=$S($L(wsID):##class(WS.TBX.Order).%OpenId(wsID), 1:0)
  
 	; Show Order Details
@@ -464,8 +464,12 @@
 	Set IsDesignBeschikbaar=('$IsObject(WSOrd))||(WSOrd.IsLadeDesignBeschikbaar(.DS))
 	Set blnOFFVervallen=($IsObject(WSOrd))&&(WSOrd.IsOfferteVervallen($H,.RedenVervallen))
 	If blnOFFVervallen Do  Quit:($G(blnQuit,0))
-	. Set blnQuit=$$ophMMCompleteRecalcOFF()
+	. // Als de "Recalc"-flag (via QueryString) op "1" staat, dan worden de prijzen van het WSOrd herberekend tijdens deze OnPreHTTP()
+	. // In deze situatie wordt dan een page-reload gestuurd.
+	. Set blnQuit=$$ophMMCompleteRecalcOfferte()
  	; Else  Prepare buttons
+ 	Set OnvoldoendeBestelhoeveelheid=$$$Not(WSOrd.HeeftVoldoendeBestelhoeveelheid(TBXContext))
+ 	Do:(OnvoldoendeBestelhoeveelheid) MShowOnvoldoendeBestelhoeveelheidText(WSOrd,TBXContext,Taal)
 	Do MShowNotRegUser
 	Do:(IsDesignBeschikbaar) MShowVervaldagOFFText
  
@@ -480,7 +484,8 @@
 	; Button Show XML
 	Do MShowExportXML((TBXContext.IsBeschikbaarExportXML())&&((KLNr=$$$TBoxWebKlantNrVHEPN)||(KLNr=$$$TBoxWebKlantNrHEIN)) )
 	; Button Submit
-	Do MShowSubmit(1,WSOrd,blnOFFVervallen||blnDynaplugERR)
+	Set IsSubmitBtnDisabled = (blnOFFVervallen||blnDynaplugERR||OnvoldoendeBestelhoeveelheid)
+	Do MShowSubmit(1,WSOrd,IsSubmitBtnDisabled)
 	; Button Modify Order
 	Do MShowModifyOrder(1,"COMPLETE")
 	; Button Create New from Order 
@@ -493,7 +498,7 @@
 	Do ophBuildToggleHistAndOrder()
 	Set WSOrd=""
 	Quit
-ophMMCompleteRecalcOFF()
+ophMMCompleteRecalcOfferte()
 #define IsTextOnly(%v)   (%v'?.E1C.E)
 	New lbResult,tmpAr,sc
 	If $G(%request.Data("RECALC",1))="1" Do  Quit 1
@@ -732,14 +737,14 @@
 	Set arShow("BookmarkPage","BTN")=Visible
 	Set arShow("BookmarkPage","HREF")="javascript:window.external.AddFavorite(location.href,'"_BookmTxt_"');"
 	Quit
-MShowSubmit(Visible,WSOrd,blnOFFVervallen)
+MShowSubmit(Visible,WSOrd,IsSubmitBtnDisabled)
 #If ($$$NSpace="DEMO")
 	Quit   ; Only on namespace "DEMO"
 #EndIf
 	Quit:('$IsObject(WSOrd))
 	Quit:('$G(blnValidKlant,1))
 	Quit:($$$Not(WSOrd.IsBonTypeGeldig()))
-	If $G(blnOFFVervallen,0) Do  Quit
+	If $G(IsSubmitBtnDisabled,0) Do  Quit
 	. Set arShow("Submit","BTN")=Visible
 	. Set arShow("SubmitAgain","BTN")=0
 	. Set arShow("Submit","HREF")=""
@@ -942,8 +947,15 @@
 	}
 	Quit
  
+MShowOnvoldoendeBestelhoeveelheidText(WSOrd,TBXContext,Taal)
+	New Verpakking,VerpakkingOms,MinimaleBestelhoeveelheid
+	Set Verpakking=WSOrd.GeefVerpakkingType()
+	Set VerpakkingOms=##class(cspBasis.GAProdTBox).WebTextValue("VPK_"_Verpakking,Taal,"L")
+	Set MinimaleBestelhoeveelheid=TBXContext.GeefMinimaleBestelhoeveelheid(Verpakking)
+	Set arShow("OnvoldoendeBestelhoeveelheid","INFO")=1
+	Set arShow("OnvoldoendeBestelhoeveelheid","TEXT")=$$$Replace($$$Replace(##class(cspBasis.GAProdTBox).WebTextValue("MinimumBestelhoeveelheidVPK",Taal,"O"),"::Verpakking",VerpakkingOms),"::MinimaleBest",MinimaleBestelhoeveelheid)
+	Quit
 	
-	
  /*
 	<CSP:IF condition='$G(arShow("Submit","BTN"))'>
 	<CSP:IF condition='$G(arShow("SubmitAgain","BTN"))'>
Index: vhUnitTest/APPS/TBXWeb/TestWSOrder.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TBXWeb/TestWSOrder.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TBXWeb/TestWSOrder.cls.xml	(revision 177)
@@ -0,0 +1,92 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.TBXWeb.TestWSOrder">
+<Description>
+Oproepen via 
+	do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.TBXWeb.TestWSOrder") 
+	</Description>
+<IncludeCode>APPS.TBXWeb,PRGACNTs</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestMinBestProboxSFS">
+<Implementation><![CDATA[
+	Set TBXContext=..GeefTBXContextSFS()
+	Set WSOrder=..GeefLegeWSOrderMetEenOrderLijn()
+	Do ..ZetVerpakkingEnTotAantal(WSOrder,"X",6)
+	Do $$$AssertTrue(WSOrder.HeeftVoldoendeBestelhoeveelheid(TBXContext),"Het WSOrder heeft voldoende bestelhoeveelheid (#:6) voor Probox")
+	
+	Do ..ZetVerpakkingEnTotAantal(WSOrder,"X",5)
+	Do $$$AssertFalse(WSOrder.HeeftVoldoendeBestelhoeveelheid(TBXContext),"Het WSOrder heeft NIET voldoende bestelhoeveelheid (#:5) voor Probox")
+]]></Implementation>
+</Method>
+
+<Method name="TestMinBestProboxVHEPN">
+<Implementation><![CDATA[
+	Set TBXContext=..GeefTBXContextVHEPN()
+	Set WSOrder=..GeefLegeWSOrderMetEenOrderLijn()
+	Do ..ZetVerpakkingEnTotAantal(WSOrder,"X",1)
+	Do $$$AssertTrue(WSOrder.HeeftVoldoendeBestelhoeveelheid(TBXContext),"Het WSOrder heeft voldoende bestelhoeveelheid (#=1) voor Probox")
+]]></Implementation>
+</Method>
+
+<Method name="TestMinBestStukVerpakVHEPN">
+<Implementation><![CDATA[
+	Set TBXContext=..GeefTBXContextVHEPN()
+	Set WSOrder=..GeefLegeWSOrderMetEenOrderLijn()
+	Do ..ZetVerpakkingEnTotAantal(WSOrder,"S",1)
+	Do $$$AssertTrue(WSOrder.HeeftVoldoendeBestelhoeveelheid(TBXContext),"Het WSOrder heeft voldoende bestelhoeveelheid (#:1) voor stuk-verpakking")
+
+	Do ..ZetVerpakkingEnTotAantal(WSOrder,"S",0)
+	Do $$$AssertFalse(WSOrder.HeeftVoldoendeBestelhoeveelheid(TBXContext),"Het WSOrder heeft NIET voldoende bestelhoeveelheid (#:0) voor stuk-verpakking")
+]]></Implementation>
+</Method>
+
+<Method name="GeefLegeWSOrder">
+<Private>1</Private>
+<ReturnType>WS.TBX.Order</ReturnType>
+<Implementation><![CDATA[	Quit ##class(WS.TBX.Order).%New()
+]]></Implementation>
+</Method>
+
+<Method name="GeefLegeWSOrderMetEenOrderLijn">
+<Private>1</Private>
+<ReturnType>WS.TBX.Order</ReturnType>
+<Implementation><![CDATA[
+	Set WSOrder=..GeefLegeWSOrder()
+	Set WSLijn=##class(WS.TBX.EM.OrderLijn).%New()
+	Do WSOrder.Lijnen.SetAt(WSLijn,1)
+	Quit WSOrder
+]]></Implementation>
+</Method>
+
+<Method name="ZetVerpakkingEnTotAantal">
+<Description>
+Verwacht een WSOrder met één WSLijn.</Description>
+<FormalSpec>WSOrder:WS.TBX.Order,VerpakkingType:%String,TotAantal:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set WSOrder.TotAantal=TotAantal
+	Set WSLijn=WSOrder.Lijnen.GetNext("")
+	Set WSLijn.ItemVPK=VerpakkingType
+]]></Implementation>
+</Method>
+
+<Method name="GeefTBXContextVHEPN">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set TBXContext=##class(APPS.TBXWeb.TBXContext).%New($$$TBoxWebDomeinVHEPN)
+	Quit TBXContext
+]]></Implementation>
+</Method>
+
+<Method name="GeefTBXContextSFS">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set TBXContext=##class(APPS.TBXWeb.TBXContext).%New($$$TBoxWebDomeinSFS)
+	Quit TBXContext
+]]></Implementation>
+</Method>
+</Class>
+</Export>