Index: APPS/common/impl/KlantInstellingenService.cls.xml
===================================================================
diff -u -r31276 -r32831
--- APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 31276)
+++ APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 32831)
@@ -98,6 +98,8 @@
 	#dim MinimumAantalVoorProbox As %Integer
 	If KlantID = ##class(DOM.VKP.enu.Klant).OptimaPack() {
 		Set MinimumAantalVoorProbox = 1
+	} ElseIf KlantID = ##class(DOM.VKP.enu.Klant).SFS() {
+		Set MinimumAantalVoorProbox = 4
 	} Else {
 		Set MinimumAantalVoorProbox = 6
 	}
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/Base.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/Base.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/Base.cls.xml	(revision 32831)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Winkelkar.WinkelkarControleur.ControleerWinkelkar.Base">
+<Abstract>1</Abstract>
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="WinkelkarControleur">
+<Type>APPS.EC.Winkelkar.impl.WinkelkarControleur</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+
+	Set ..WinkelkarControleur = ##class(APPS.EC.Winkelkar.impl.WinkelkarControleur).%New(..GeefKlantInstellingenService())
+]]></Implementation>
+</Method>
+
+<Method name="GeefPersonalityID">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<ReturnType>DOM.common.enu.Personality</ReturnType>
+</Method>
+
+<Method name="GeefKlantInstellingenService">
+<Abstract>1</Abstract>
+<Private>1</Private>
+</Method>
+
+<Method name="ControleerWinkelkar">
+<FormalSpec>KlantID:DOM.VKP.enu.Klant,Aantal:TECH.Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLadeVerpaktIn(##class(DOM.PM.enu.LBXVerpakkingType).Probox())
+	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
+	#dim Winkelkar As DOM.EC.Winkelkar.InterneWinkelkar = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New("UnitTest")
+	
+	Do MaatwerkLijn.ZetIngegevenKenmerken(LBXKenmerken)
+	Do MaatwerkLijn.ZetAantal(Aantal)
+
+	Do Winkelkar.ZetPersonalityID(..GeefPersonalityID())
+	Do Winkelkar.ZetKlantID(KlantID)
+	Do Winkelkar.VoegToe(MaatwerkLijn)
+	
+	Do ..WinkelkarControleur.ControleerWinkelkar(Winkelkar)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/Test.cls.xml
===================================================================
diff -u -r32488 -r32831
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/Test.cls.xml	(.../Test.cls.xml)	(revision 32488)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/Test.cls.xml	(.../Test.cls.xml)	(revision 32831)
@@ -1,19 +1,18 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.EC.Winkelkar.WinkelkarControleur.ControleerWinkelkar.Test">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.APPS.EC.Winkelkar.WinkelkarControleur.ControleerWinkelkar.Base</Super>
 
-<Property name="WinkelkarControleur">
-<Type>APPS.EC.Winkelkar.impl.WinkelkarControleur</Type>
+<Method name="GeefPersonalityID">
 <Private>1</Private>
-</Property>
+<ReturnType>DOM.common.enu.Personality</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.common.enu.Personality).VanHoecke()
+]]></Implementation>
+</Method>
 
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[
-	Do ##super(aTestName)
-
-	Set ..WinkelkarControleur = ##class(APPS.EC.Winkelkar.impl.WinkelkarControleur).%New(##class(APPS.OV.impl.KlantInstellingenServiceVanHoecke).%New())
+<Method name="GeefKlantInstellingenService">
+<Private>1</Private>
+<Implementation><![CDATA[	Quit ##class(APPS.OV.impl.KlantInstellingenServiceVanHoecke).%New()
 ]]></Implementation>
 </Method>
 
@@ -22,6 +21,11 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Probox met aantal 1 voor klant SFS -&gt; geen exceptie verwacht">
+<Implementation><![CDATA[	Do ..ControleerWinkelkar(##class(DOM.VKP.enu.Klant).SFS(), 4)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Probox 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 'Probox' voor LEGRABOX, moet u minstens 6 LEGRABOX lades bestellen. Om gebruik te maken van het verpakkingstype 'Probox' voor TA'OR BOX, moet u minstens 6 TA'OR BOX lades bestellen. De combinatie van de 2 ladetypes in een 'Probox' is niet mogelijk.")
@@ -35,25 +39,6 @@
 <Implementation><![CDATA[	Do ..ControleerWinkelkar(##class(DOM.VKP.enu.Klant).Keller(), 6)
 ]]></Implementation>
 </Method>
-
-<Method name="ControleerWinkelkar">
-<FormalSpec>KlantID:DOM.VKP.enu.Klant,Aantal:TECH.Integer</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLadeVerpaktIn(##class(DOM.PM.enu.LBXVerpakkingType).Probox())
-	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
-	#dim Winkelkar As DOM.EC.Winkelkar.InterneWinkelkar = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New("UnitTest")
-	
-	Do MaatwerkLijn.ZetIngegevenKenmerken(LBXKenmerken)
-	Do MaatwerkLijn.ZetAantal(Aantal)
-
-	Do Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
-	Do Winkelkar.ZetKlantID(KlantID)
-	Do Winkelkar.VoegToe(MaatwerkLijn)
-	
-	Do ..WinkelkarControleur.ControleerWinkelkar(Winkelkar)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: APPS/EC/impl/KlantInstellingenServiceSFS.cls.xml
===================================================================
diff -u -r29059 -r32831
--- APPS/EC/impl/KlantInstellingenServiceSFS.cls.xml	(.../KlantInstellingenServiceSFS.cls.xml)	(revision 29059)
+++ APPS/EC/impl/KlantInstellingenServiceSFS.cls.xml	(.../KlantInstellingenServiceSFS.cls.xml)	(revision 32831)
@@ -46,6 +46,15 @@
 	Quit SFSKlantNaamParser.ParseKlantNummer(KlantData.Naam)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefMinimimAantalProductLijnenVoorProbox">
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim MinimumAantalVoorProbox As %Integer = 4
+	Quit MinimumAantalVoorProbox
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/TestHandelSFS.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/TestHandelSFS.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/TestHandelSFS.cls.xml	(revision 32831)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Winkelkar.WinkelkarControleur.ControleerWinkelkar.TestHandelSFS">
+<Super>vhUnitTest.APPS.EC.Winkelkar.WinkelkarControleur.ControleerWinkelkar.Base</Super>
+
+<Method name="GeefPersonalityID">
+<Private>1</Private>
+<ReturnType>DOM.common.enu.Personality</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.common.enu.Personality).SFS()
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantInstellingenService">
+<Private>1</Private>
+<Implementation><![CDATA[	Quit ##class(APPS.EC.impl.KlantInstellingenServiceSFS).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Probox met aantal 3 -&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 'Probox' voor LEGRABOX, moet u minstens 4 LEGRABOX lades bestellen. Om gebruik te maken van het verpakkingstype 'Probox' voor TA'OR BOX, moet u minstens 4 TA'OR BOX lades bestellen. De combinatie van de 2 ladetypes in een 'Probox' is niet mogelijk.")
+	
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidUserInputException", Substrings))
+	Do ..ControleerWinkelkar("", 3)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Probox met aantal 4 -&gt; geen exceptie verwacht">
+<Implementation><![CDATA[	Do ..ControleerWinkelkar("", 4)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>