Index: vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/ValideerBestelEenheid/TAX/Test.cls.xml
===================================================================
diff -u -r55513 -r55562
--- vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/ValideerBestelEenheid/TAX/Test.cls.xml	(.../Test.cls.xml)	(revision 55513)
+++ vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/ValideerBestelEenheid/TAX/Test.cls.xml	(.../Test.cls.xml)	(revision 55562)
@@ -3,8 +3,8 @@
 <Class name="vhUnitTest.DOM.VKP.Maatwerk.impl.BestelService.ValideerBestelEenheid.TAX.Test">
 <Super>vhUnitTest.DOM.VKP.Maatwerk.impl.BestelService.ValideerBestelEenheid.TestBase,DOM.PM.Maatwerk.TAX.impl.Base</Super>
 
-<Property name="DoosAfmetingenBepalerFactory">
-<Type>vhTest.Mock.zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepalerFactory</Type>
+<Property name="BestelEenheidLosseComponentenInBulkBepaler">
+<Type>DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler</Type>
 <Private>1</Private>
 </Property>
 
@@ -18,9 +18,9 @@
 <Implementation><![CDATA[
 	do ##super(aTestName)
 	
-	set ..DoosAfmetingenBepalerFactory = ##class(vhTest.Mock.zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepalerFactory).%New()
-	set ..BestelService = ##class(DOM.VKP.Maatwerk.impl.BestelService).%New("", "", ..DoosAfmetingenBepalerFactory)
-	set ..IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	Set ..BestelEenheidLosseComponentenInBulkBepaler = ##class(vhTest.Mock.DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler).%New()
+	Set ..BestelService = ##class(DOM.VKP.Maatwerk.impl.BestelService).%New("", ..BestelEenheidLosseComponentenInBulkBepaler)
+	Set ..IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
 ]]></Implementation>
 </Method>
 
@@ -53,30 +53,33 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Veelvoud van aantal bepaalt door DoosAfmetingenBepaler is een geldig aantal bij VerpakkingType LosseComponentenInBulk">
+<Method name="Test: Veelvoud van aantal bepaalt door BestelEenheidLosseComponentenInBulkBepaler is een geldig aantal bij VerpakkingType LosseComponentenInBulk">
 <Implementation><![CDATA[
-	set ..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.LosseComponentenInBulk
-	set ..IngegevenKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem
+	Set ..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.LosseComponentenInBulk
+	Set ..IngegevenKenmerken.ProductieWijze = ..Enum.ProductieWijze.ZijkantLinks
+	
+	#dim Aantal As TECH.Integer = 8
 
-	#dim DoosAfmetingenBepaler As zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepaler = ##class(zTryout.PBO.TAXBOG.impl.DoosAfmetingenBodemBepaler).%New()
+	Do ..BestelEenheidLosseComponentenInBulkBepaler.VerwachtMethodCall("GeefBestelEenheidLosseComponentenInBulk", ..IngegevenKenmerken).ExactAantalKeer(1).DanReturn(Aantal)
 
-	do ..DoosAfmetingenBepalerFactory.VerwachtMethodCall("MaakDoosAfmetingenBepaler", $$$ElkeWaarde).DanReturn(DoosAfmetingenBepaler)
-	do ..BestelService.ValideerBestelEenheid(..IngegevenKenmerken, 10)
-	do ..DoosAfmetingenBepalerFactory.Verifieer()
+	Do ..BestelService.ValideerBestelEenheid(..IngegevenKenmerken, Aantal * 3)
+	Do ..BestelEenheidLosseComponentenInBulkBepaler.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Exceptie wordt geraised indien aantal bepaald door DoosAfmetingenBepaler niet deelbaar is door opgegeven aantal bij VerpakkingType LosseComponentenInBulk">
+<Method name="Test: Exceptie wordt geraised indien 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.Bodem
+	Set ..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.LosseComponentenInBulk
+	Set ..IngegevenKenmerken.ProductieWijze = ..Enum.ProductieWijze.ZijkantLinks
+	
+	#dim Aantal As TECH.Integer = 8
 
-	#dim DoosAfmetingenBepaler As zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepaler = ##class(zTryout.PBO.TAXBOG.impl.DoosAfmetingenBodemBepaler).%New()
+	Do ..BestelEenheidLosseComponentenInBulkBepaler.IndienMethodCall("GeefBestelEenheidLosseComponentenInBulk", ..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 ..DoosAfmetingenBepalerFactory.IndienMethodCall("MaakDoosAfmetingenBepaler", $$$ElkeWaarde).DanReturn(DoosAfmetingenBepaler)
-	do ..BestelService.ValideerBestelEenheid(..IngegevenKenmerken, 16)
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
+	Do ..BestelService.ValideerBestelEenheid(..IngegevenKenmerken, Aantal * 3 + 2)
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/VKP/Maatwerk/impl/BestelService.cls.xml
===================================================================
diff -u -r55514 -r55562
--- DOM/VKP/Maatwerk/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 55514)
+++ DOM/VKP/Maatwerk/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 55562)
@@ -3,36 +3,25 @@
 <Class name="DOM.VKP.Maatwerk.impl.BestelService">
 <Super>TECH.RegisteredObject,DOM.VKP.Maatwerk.BestelService</Super>
 
-<Property name="DoosAfmetingenBepaler">
-<Type>zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepaler</Type>
+<Property name="BestelEenheidLosseComponentenInBulkBepaler">
+<Type>DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="DoosAfmetingenBepalerFactory">
-<Type>zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepalerFactory</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="LosseComponentFactory">
-<Type>DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="MaatwerkCalcAPI">
 <Type>DOM.PM.MaatwerkCalcAPI</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>MaatwerkCalcAPI:DOM.PM.MaatwerkCalcAPI="",LosseComponentFactory:DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory="",DoosAfmetingenBepalerFactory:zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepalerFactory=""</FormalSpec>
+<FormalSpec>MaatwerkCalcAPI:DOM.PM.MaatwerkCalcAPI="",BestelEenheidLosseComponentenInBulkBepaler:DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler=""</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 ..LosseComponentFactory = $$$Implementation(LosseComponentFactory, ##class(DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory).%New())
-	Set ..DoosAfmetingenBepalerFactory = $$$Implementation(DoosAfmetingenBepalerFactory, ##class(zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepalerFactory).%New())
+	Set ..BestelEenheidLosseComponentenInBulkBepaler = $$$Inject(BestelEenheidLosseComponentenInBulkBepaler, ##class(DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -48,10 +37,7 @@
 		#dim VerpakkingType As DOM.PM.enu.TAORVerpakkingType.AutoComplete = ##class(DOM.PM.enu.TAORVerpakkingType.AutoComplete).%New()
 		
 		If ((Kenmerken.VerpakkingType = VerpakkingType.LosseComponentenInBulk) && $$$Not(Kenmerken.ProductieWijze = "")) {
-			#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel  = ..MaakLosseComponent(Kenmerken)
-
-			Set ..DoosAfmetingenBepaler = ..DoosAfmetingenBepalerFactory.MaakDoosAfmetingenBepaler(LadeOnderdeel)
-			Set BestelEenheid = ..DoosAfmetingenBepaler.GeefMaximaalAantalOnderdelen(LadeOnderdeel)
+			Set BestelEenheid = ..BestelEenheidLosseComponentenInBulkBepaler.GeefBestelEenheidLosseComponentenInBulk(Kenmerken)
 		} ElseIf (Kenmerken.VerpakkingType = VerpakkingType.BulkPerOnderdeelGegroepeerd) {
 			Set:(Aantal <= 40) BestelEenheid = 10
 		}
@@ -68,18 +54,6 @@
 	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>
-
-<Method name="MaakLosseComponent">
-<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</ReturnType>
-<Implementation><![CDATA[
-	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..MaatwerkCalcAPI.GeefHalffabItemsBoom(Kenmerken)
-	#dim LosseComponent As DOM.PM.Maatwerk.Lade.enu.LosseComponent = ##class(DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter).%New().Convert(Kenmerken.ProductieWijze)
-	
-	Quit ..LosseComponentFactory.MaakLosseComponent(HalffabItemsBoom, Kenmerken, LosseComponent)
-]]></Implementation>
-</Method>
 </Class>