Index: vhUnitTest/APPS/TBXWeb/TestTBXContext.cls.xml
===================================================================
diff -u -r91 -r658
--- vhUnitTest/APPS/TBXWeb/TestTBXContext.cls.xml	(.../TestTBXContext.cls.xml)	(revision 91)
+++ vhUnitTest/APPS/TBXWeb/TestTBXContext.cls.xml	(.../TestTBXContext.cls.xml)	(revision 658)
@@ -67,6 +67,54 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestMinBestelVoorVHKlanten">
+<Implementation><![CDATA[
+	Set TBXContext=..GeefTBXContextVHEPN()
+	Do $$$AssertEquals(TBXContext.GeefMinimaleBestelhoeveelheid(##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen(),""),1)
+
+	Do $$$AssertEquals(TBXContext.GeefMinimaleBestelhoeveelheid(##class(DOM.PM.enu.TBXVerpakking).ProboxMetOnderdelen(),""),6)
+	Do $$$AssertEquals(TBXContext.GeefMinimaleBestelhoeveelheid(##class(DOM.PM.enu.TBXVerpakking).ProboxZonderOnderdelen(),""),6)
+
+	Do $$$AssertEquals(TBXContext.GeefMinimaleBestelhoeveelheid(##class(DOM.PM.enu.TBXVerpakking).CommissieMetOnderdelen(),""),6)
+	Do $$$AssertEquals(TBXContext.GeefMinimaleBestelhoeveelheid(##class(DOM.PM.enu.TBXVerpakking).CommissieZonderOnderdelen(),""),6)
+]]></Implementation>
+</Method>
+
+<Method name="TestMinBestelVoorKlantOptima">
+<Implementation><![CDATA[
+	#define VHxKlantNrOptimaPack   6279
+
+	Set TBXContext=..GeefTBXContextVHEPN()
+	Do $$$AssertEquals(TBXContext.GeefMinimaleBestelhoeveelheid(##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen(),$$$VHxKlantNrOptimaPack),1)
+	Do $$$AssertEquals(TBXContext.GeefMinimaleBestelhoeveelheid(##class(DOM.PM.enu.TBXVerpakking).ProboxMetOnderdelen(),$$$VHxKlantNrOptimaPack),1)
+	Do $$$AssertEquals(TBXContext.GeefMinimaleBestelhoeveelheid(##class(DOM.PM.enu.TBXVerpakking).CommissieZonderOnderdelen(),$$$VHxKlantNrOptimaPack),6)
+]]></Implementation>
+</Method>
+
+<Method name="TestMinBestelVoorKlantSFS">
+<Implementation><![CDATA[
+	#define VHxKlantNrSFS   12486
+
+	Set TBXContext=..GeefTBXContextVHEPN()
+	Do $$$AssertEquals(TBXContext.GeefMinimaleBestelhoeveelheid(##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen(),$$$VHxKlantNrSFS),1)
+	Do $$$AssertEquals(TBXContext.GeefMinimaleBestelhoeveelheid(##class(DOM.PM.enu.TBXVerpakking).ProboxMetOnderdelen(),$$$VHxKlantNrSFS),5)
+	Do $$$AssertEquals(TBXContext.GeefMinimaleBestelhoeveelheid(##class(DOM.PM.enu.TBXVerpakking).ProboxZonderOnderdelen(),$$$VHxKlantNrSFS),5)
+]]></Implementation>
+</Method>
+
+<Method name="TestMinBestelVoorHandelSFS">
+<Implementation><![CDATA[
+	Set TBXContext=..GeefTBXContextSFS()
+	Do $$$AssertEquals(TBXContext.GeefMinimaleBestelhoeveelheid(##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen(),""),1)
+
+	Do $$$AssertEquals(TBXContext.GeefMinimaleBestelhoeveelheid(##class(DOM.PM.enu.TBXVerpakking).ProboxMetOnderdelen(),""),5)
+	Do $$$AssertEquals(TBXContext.GeefMinimaleBestelhoeveelheid(##class(DOM.PM.enu.TBXVerpakking).ProboxZonderOnderdelen(),""),5)
+
+	Do $$$AssertEquals(TBXContext.GeefMinimaleBestelhoeveelheid(##class(DOM.PM.enu.TBXVerpakking).CommissieMetOnderdelen(),""),6)
+	Do $$$AssertEquals(TBXContext.GeefMinimaleBestelhoeveelheid(##class(DOM.PM.enu.TBXVerpakking).CommissieZonderOnderdelen(),""),6)
+]]></Implementation>
+</Method>
+
 <Method name="GeefTBXContextVHEPN">
 <Private>1</Private>
 <Implementation><![CDATA[
Index: APPS/TBXWeb/TBXContext.cls.xml
===================================================================
diff -u -r656 -r658
--- APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 656)
+++ APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 658)
@@ -1043,21 +1043,28 @@
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
 	#define VHxKlantNrOptimaPack   6279
+	#define VHxKlantNrSFS          12486
+	#define MinBestelAantalSFS     5
 	#define SFSxKlantNrAlpnach     100112
 	
 	Set MinimaleBestelhoeveelheid=1
-	If (Verpakking="X")||(Verpakking="Y")||(Verpakking="O")||(Verpakking="C") {
+	If (Verpakking="X")||(Verpakking="Y") {
 		Set MinimaleBestelhoeveelheid=6
 		If (..IsVHEPN) {
 			If KLNr=$$$VHxKlantNrOptimaPack {
 				Set MinimaleBestelhoeveelheid=1
 			}
+			ElseIf KLNr=$$$VHxKlantNrSFS {
+				Set MinimaleBestelhoeveelheid=$$$MinBestelAantalSFS
+			}
 		}
 		ElseIf (..IsSFS) {
-			Set MinimaleBestelhoeveelheid=5
+			Set MinimaleBestelhoeveelheid=$$$MinBestelAantalSFS
 		}
-
 	}
+	ElseIf (Verpakking="O")||(Verpakking="C") {
+		Set MinimaleBestelhoeveelheid=6
+	}
 	Quit MinimaleBestelhoeveelheid
 ]]></Implementation>
 </Method>