Index: DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.cls.xml
===================================================================
diff -u -r55564 -r55565
--- DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.cls.xml	(.../BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.cls.xml)	(revision 55564)
+++ DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.cls.xml	(.../BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.cls.xml)	(revision 55565)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBulkPerOnderdeelGegroepeerdBepaler">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
 <Method name="GeefBestelEenheidBulkPerOnderdeelGegroepeerd">
 <FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
Index: vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/ValideerBestelEenheid/TAX/Test.cls.xml
===================================================================
diff -u -r55563 -r55565
--- vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/ValideerBestelEenheid/TAX/Test.cls.xml	(.../Test.cls.xml)	(revision 55563)
+++ vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/ValideerBestelEenheid/TAX/Test.cls.xml	(.../Test.cls.xml)	(revision 55565)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BestelEenheidBulkPerOnderdeelGegroepeerdBepaler">
+<Type>DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBulkPerOnderdeelGegroepeerdBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="IngegevenKenmerken">
 <Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
 <Private>1</Private>
@@ -19,41 +24,42 @@
 	Do ##super(aTestName)
 	
 	Set ..BestelEenheidLosseComponentenInBulkBepaler = ##class(vhTest.Mock.DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler).%New()
-	Set ..BestelService = ##class(DOM.VKP.Maatwerk.impl.BestelService).%New("", ..BestelEenheidLosseComponentenInBulkBepaler)
+	Set ..BestelEenheidBulkPerOnderdeelGegroepeerdBepaler = ##class(vhTest.Mock.DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBulkPerOnderdeelGegroepeerdBepaler).%New()
+	Set ..BestelService = ##class(DOM.VKP.Maatwerk.impl.BestelService).%New(..BestelEenheidLosseComponentenInBulkBepaler, ..BestelEenheidBulkPerOnderdeelGegroepeerdBepaler)
 	Set ..IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Exceptie wordt geraised indien aantal bij VerpakkingType BulkPerOnderdeelGegroepeerd kleiner is dan 40 en geen veelvoud van 10">
+<Method name="Test: Veelvoud van aantal bepaald door BestelEenheidBulkPerOnderdeelGegroepeerdBepaler is een geldig aantal bij VerpakkingType BulkPerOnderdeelGegroepeerd">
 <Implementation><![CDATA[
 	Set ..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd
 	
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("geen geldige bestelhoeveelheid")
-	
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidInputException, Substrings))
-	Do ..BestelService.ValideerBestelEenheid(..IngegevenKenmerken, 39)
-]]></Implementation>
-</Method>
+	#dim Aantal As TECH.Integer = 8
 
-<Method name="Test: Veelvoud van 10 is een geldig aantal bij VerpakkingType BulkPerOnderdeelGegroepeerd">
-<Implementation><![CDATA[
-	Set ..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd
-	
-	Do ..BestelService.ValideerBestelEenheid(..IngegevenKenmerken, 40)
+	Do ..BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.VerwachtMethodCall("GeefBestelEenheidBulkPerOnderdeelGegroepeerd", ..IngegevenKenmerken).ExactAantalKeer(1).DanReturn(Aantal)
+
+	Do ..BestelService.ValideerBestelEenheid(..IngegevenKenmerken, Aantal * 3)
 	Do $$$AssertFalse(..IsExceptieVerwacht())
+	Do ..BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Aantal groter dan 40 is een geldig aantal bij VerpakkingType BulkPerOnderdeelGegroepeerd">
+<Method name="Test: Exceptie geraised als aantal bepaald door BestelEenheidBulkPerOnderdeelGegroepeerdBepaler niet deelbaar door opgegeven aantal bij VerpakkingType BulkPerOnderdeelGegroepeerd">
 <Implementation><![CDATA[
 	Set ..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd
 	
-	Do ..BestelService.ValideerBestelEenheid(..IngegevenKenmerken, 41)
-	Do $$$AssertFalse(..IsExceptieVerwacht())
+	#dim Aantal As TECH.Integer = 8
+
+	Do ..BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.IndienMethodCall("GeefBestelEenheidBulkPerOnderdeelGegroepeerd", ..IngegevenKenmerken).DanReturn(Aantal)
+
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Het opgegeven aantal", "is geen geldige bestelhoeveelheid (Minimum =", ", anders een veelvoud hiervan).")
+	
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
+	Do ..BestelService.ValideerBestelEenheid(..IngegevenKenmerken, Aantal * 3 + 2)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Veelvoud van aantal bepaalt door BestelEenheidLosseComponentenInBulkBepaler is een geldig aantal bij VerpakkingType LosseComponentenInBulk">
+<Method name="Test: Veelvoud van aantal bepaald door BestelEenheidLosseComponentenInBulkBepaler is een geldig aantal bij VerpakkingType LosseComponentenInBulk">
 <Implementation><![CDATA[
 	Set ..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.LosseComponentenInBulk
 	Set ..IngegevenKenmerken.ProductieWijze = ..Enum.ProductieWijze.ZijkantLinks
@@ -63,11 +69,12 @@
 	Do ..BestelEenheidLosseComponentenInBulkBepaler.VerwachtMethodCall("GeefBestelEenheidLosseComponentenInBulk", ..IngegevenKenmerken).ExactAantalKeer(1).DanReturn(Aantal)
 
 	Do ..BestelService.ValideerBestelEenheid(..IngegevenKenmerken, Aantal * 3)
+	Do $$$AssertFalse(..IsExceptieVerwacht())
 	Do ..BestelEenheidLosseComponentenInBulkBepaler.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Exceptie wordt geraised indien aantal bepaald door BestelEenheidLosseComponentenInBulkBepaler niet deelbaar door opgegeven aantal bij VerpakkingType LosseComponentenInBulk">
+<Method name="Test: Exceptie geraised als aantal bepaald door BestelEenheidLosseComponentenInBulkBepaler niet deelbaar door opgegeven aantal bij VerpakkingType LosseComponentenInBulk">
 <Implementation><![CDATA[
 	Set ..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.LosseComponentenInBulk
 	Set ..IngegevenKenmerken.ProductieWijze = ..Enum.ProductieWijze.ZijkantLinks
Index: DOM/VKP/Maatwerk/impl/BestelService.cls.xml
===================================================================
diff -u -r55562 -r55565
--- DOM/VKP/Maatwerk/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 55562)
+++ DOM/VKP/Maatwerk/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 55565)
@@ -8,27 +8,27 @@
 <Private>1</Private>
 </Property>
 
-<Property name="MaatwerkCalcAPI">
-<Type>DOM.PM.MaatwerkCalcAPI</Type>
+<Property name="BestelEenheidBulkPerOnderdeelGegroepeerdBepaler">
+<Type>DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBulkPerOnderdeelGegroepeerdBepaler</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>MaatwerkCalcAPI:DOM.PM.MaatwerkCalcAPI="",BestelEenheidLosseComponentenInBulkBepaler:DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler=""</FormalSpec>
+<FormalSpec>BestelEenheidLosseComponentenInBulkBepaler:DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler="",BestelEenheidBulkPerOnderdeelGegroepeerdBepaler:DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBulkPerOnderdeelGegroepeerdBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..MaatwerkCalcAPI = $$$Implementation(MaatwerkCalcAPI, ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI())
 	Set ..BestelEenheidLosseComponentenInBulkBepaler = $$$Inject(BestelEenheidLosseComponentenInBulkBepaler, ##class(DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler).%New())
+	Set ..BestelEenheidBulkPerOnderdeelGegroepeerdBepaler = $$$Inject(BestelEenheidBulkPerOnderdeelGegroepeerdBepaler, ##class(DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBulkPerOnderdeelGegroepeerdBepaler).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="GeefBestelEenheid">
-<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Aantal:TECH.Integer=0</FormalSpec>
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>TECH.Integer</ReturnType>
 <Implementation><![CDATA[
 	#dim BestelEenheid As TECH.Integer = 1
@@ -39,7 +39,7 @@
 		If ((Kenmerken.VerpakkingType = VerpakkingType.LosseComponentenInBulk) && $$$Not(Kenmerken.ProductieWijze = "")) {
 			Set BestelEenheid = ..BestelEenheidLosseComponentenInBulkBepaler.GeefBestelEenheidLosseComponentenInBulk(Kenmerken)
 		} ElseIf (Kenmerken.VerpakkingType = VerpakkingType.BulkPerOnderdeelGegroepeerd) {
-			Set:(Aantal <= 40) BestelEenheid = 10
+			Set BestelEenheid = ..BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.GeefBestelEenheidBulkPerOnderdeelGegroepeerd(Kenmerken)
 		}
 	}
 		
@@ -50,7 +50,7 @@
 <Method name="ValideerBestelEenheid">
 <FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Aantal:TECH.Integer</FormalSpec>
 <Implementation><![CDATA[
-	#dim BestelEenheid As TECH.Integer = ..GeefBestelEenheid(Kenmerken, Aantal)
+	#dim BestelEenheid As TECH.Integer = ..GeefBestelEenheid(Kenmerken)
 	Do:($$$Not(Aantal # BestelEenheid = 0)) ##class(TECH.Exceptions.InvalidInputException).Throw("Het opgegeven aantal '" _ Aantal _ "' is geen geldige bestelhoeveelheid (Minimum = '" _ BestelEenheid _ "', anders een veelvoud hiervan).")
 ]]></Implementation>
 </Method>
Index: vhTest/Mock/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.cls.xml	(revision 55565)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBulkPerOnderdeelGegroepeerdBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBulkPerOnderdeelGegroepeerdBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefBestelEenheidBulkPerOnderdeelGegroepeerd">
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBestelEenheidBulkPerOnderdeelGegroepeerd",Kenmerken)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.cls.xml	(revision 55565)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBulkPerOnderdeelGegroepeerdBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBulkPerOnderdeelGegroepeerdBepaler</Super>
+
+<Method name="GeefBestelEenheidBulkPerOnderdeelGegroepeerd">
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>