Index: vhTest/Fake/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler.cls.xml
===================================================================
diff -u -r55560 -r55874
--- vhTest/Fake/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler.cls.xml	(.../BestelEenheidLosseComponentenInBulkBepaler.cls.xml)	(revision 55560)
+++ vhTest/Fake/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler.cls.xml	(.../BestelEenheidLosseComponentenInBulkBepaler.cls.xml)	(revision 55874)
@@ -7,12 +7,40 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler</Super>
 
+<Method name="GeefBestelEenheidBodemLosseComponentenInBulk">
+<FormalSpec>LosseComponent:DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem</FormalSpec>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="GeefBestelEenheidLosseComponentenInBulk">
 <FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>TECH.Integer</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBestelEenheidLosseComponentenInBulkBodem">
+<FormalSpec>LosseComponent:DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem</FormalSpec>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestelEenheidLosseComponentenInBulkZRF">
+<FormalSpec>Rol:DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel,LadeHoogte:DOM.PM.enu.TAORLadeHoogte</FormalSpec>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestelEenheidZRFLosseComponentenInBulk">
+<FormalSpec>Rol:DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel,LadeHoogte:DOM.PM.enu.TAORLadeHoogte</FormalSpec>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/VKP/Maatwerk/impl/BestelEenheidBepaler.cls.xml
===================================================================
diff -u
--- DOM/VKP/Maatwerk/impl/BestelEenheidBepaler.cls.xml	(revision 0)
+++ DOM/VKP/Maatwerk/impl/BestelEenheidBepaler.cls.xml	(revision 55874)
@@ -0,0 +1,84 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.Maatwerk.impl.BestelEenheidBepaler">
+<Super>TECH.Mockable</Super>
+
+<Property name="BestelEenheidLosseComponentenInBulkBepaler">
+<Type>DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BestelEenheidBulkPerOnderdeelGegroepeerdBepaler">
+<Type>DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBulkPerOnderdeelGegroepeerdBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<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 ..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="GeefBestelEenheidLosseComponentenInBulk">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim BestelEenheid As TECH.Integer = 1
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = LadeOnderdeel.GeefRol()
+	#dim Hoogte As %String = LadeOnderdeel.GeefHoogte()
+	
+	If (Rol = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Bodem()) {
+		Set BestelEenheid = ..BestelEenheidLosseComponentenInBulkBepaler.GeefBestelEenheidBodemLosseComponentenInBulk(LadeOnderdeel)
+	} Else {
+		Set BestelEenheid = ..BestelEenheidLosseComponentenInBulkBepaler.GeefBestelEenheidZRFLosseComponentenInBulk(Rol, Hoogte)
+	}
+	
+	Quit BestelEenheid
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestelEenheidBulkPerOnderdeelGegroepeerd">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim BestelEenheid As TECH.Integer = 0
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = LadeOnderdeel.GeefRol()
+	#dim Hoogte As %CacheString = LadeOnderdeel.GeefHoogte()
+	
+	If (Rol = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug()) {
+		If (Hoogte = ##class(DOM.PM.enu.TAORRugHoogte).N()) {
+			Set BestelEenheid = 24
+		} ElseIf ((Hoogte = ##class(DOM.PM.enu.TAORRugHoogte).M()) || 
+			(Hoogte = ##class(DOM.PM.enu.TAORRugHoogte).K())) {
+			Set BestelEenheid = 16
+		} ElseIf ((Hoogte = ##class(DOM.PM.enu.TAORRugHoogte).C()) || 
+			(Hoogte = ##class(DOM.PM.enu.TAORRugHoogte).F())) {
+			Set BestelEenheid = 8
+		}
+	} Else {
+		If (Hoogte = ##class(DOM.PM.enu.TAORZijkantHoogte).N()) {
+			Set BestelEenheid = 24
+		} ElseIf (Hoogte = ##class(DOM.PM.enu.TAORZijkantHoogte).M()) {
+			Set BestelEenheid = 16
+		} ElseIf ((Hoogte = ##class(DOM.PM.enu.TAORZijkantHoogte).K()) || 
+			(Hoogte = ##class(DOM.PM.enu.TAORZijkantHoogte).C()) || 
+			(Hoogte = ##class(DOM.PM.enu.TAORZijkantHoogte).F())) {
+			Set BestelEenheid = 8
+		} 
+	}
+	
+	Quit BestelEenheid
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler.cls.xml
===================================================================
diff -u -r55583 -r55874
--- vhTest/Mock/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler.cls.xml	(.../BestelEenheidLosseComponentenInBulkBepaler.cls.xml)	(revision 55583)
+++ vhTest/Mock/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler.cls.xml	(.../BestelEenheidLosseComponentenInBulkBepaler.cls.xml)	(revision 55874)
@@ -9,18 +9,25 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>MaatwerkCalcAPI:DOM.PM.MaatwerkCalcAPI="",LosseComponentFactory:DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory="",DoosAfmetingenBodemBepaler:DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponenten.DoosAfmetingenBodemBepaler=""</FormalSpec>
+<FormalSpec>DoosAfmetingenBodemBepaler:DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponenten.DoosAfmetingenBodemBepaler=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="GeefBestelEenheidLosseComponentenInBulk">
-<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Method name="GeefBestelEenheidBodemLosseComponentenInBulk">
+<FormalSpec>LosseComponent:DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem</FormalSpec>
 <ReturnType>TECH.Integer</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBestelEenheidLosseComponentenInBulk",Kenmerken)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBestelEenheidBodemLosseComponentenInBulk",LosseComponent)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBestelEenheidZRFLosseComponentenInBulk">
+<FormalSpec>Rol:DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel,Hoogte:%CacheString</FormalSpec>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBestelEenheidZRFLosseComponentenInBulk",Rol,Hoogte)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/DOM/VKP/Maatwerk/impl/BestelEenheidBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/DOM/VKP/Maatwerk/impl/BestelEenheidBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/DOM/VKP/Maatwerk/impl/BestelEenheidBepaler.cls.xml	(revision 55874)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.DOM.VKP.Maatwerk.impl.BestelEenheidBepaler">
+<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.BestelEenheidBepaler</Super>
+
+<Method name="GeefBestelEenheidBulkPerOnderdeelGegroepeerd">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestelEenheidLosseComponentenInBulk">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/DOM/VKP/Maatwerk/impl/BestelEenheidBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/VKP/Maatwerk/impl/BestelEenheidBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/VKP/Maatwerk/impl/BestelEenheidBepaler.cls.xml	(revision 55874)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.VKP.Maatwerk.impl.BestelEenheidBepaler">
+<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.BestelEenheidBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<FormalSpec>BestelEenheidLosseComponentenInBulkBepaler:DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler="",BestelEenheidBulkPerOnderdeelGegroepeerdBepaler:DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBulkPerOnderdeelGegroepeerdBepaler=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestelEenheidBulkPerOnderdeelGegroepeerd">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBestelEenheidBulkPerOnderdeelGegroepeerd",LadeOnderdeel)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestelEenheidLosseComponentenInBulk">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBestelEenheidLosseComponentenInBulk",LadeOnderdeel)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/ValideerBestelEenheid/TAX/Test.cls.xml
===================================================================
diff -u -r55565 -r55874
--- vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/ValideerBestelEenheid/TAX/Test.cls.xml	(.../Test.cls.xml)	(revision 55565)
+++ vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/ValideerBestelEenheid/TAX/Test.cls.xml	(.../Test.cls.xml)	(revision 55874)
@@ -3,92 +3,199 @@
 <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="BestelEenheidLosseComponentenInBulkBepaler">
-<Type>DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler</Type>
+<Parameter name="ProductId">
+<Type>%String</Type>
+<Default>1000</Default>
+</Parameter>
+
+<Parameter name="RandomOmschrijving">
+<Type>%String</Type>
+<Default>RandomOmschrijving</Default>
+</Parameter>
+
+<Property name="MaatwerkCalcAPI">
+<Type>DOM.PM.MaatwerkCalcAPI</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="BestelEenheidBulkPerOnderdeelGegroepeerdBepaler">
-<Type>DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBulkPerOnderdeelGegroepeerdBepaler</Type>
+<Property name="LosseComponentFactory">
+<Type>DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="BestelEenheidBepaler">
+<Type>DOM.VKP.Maatwerk.impl.BestelEenheidBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="IngegevenKenmerken">
 <Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="HalffabItemsBoom">
+<Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Rol">
+<Type>DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#ProductId)
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).CreeerProduct(..#ProductId)
+]]></Implementation>
+</Method>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
 	
-	Set ..BestelEenheidLosseComponentenInBulkBepaler = ##class(vhTest.Mock.DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler).%New()
-	Set ..BestelEenheidBulkPerOnderdeelGegroepeerdBepaler = ##class(vhTest.Mock.DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBulkPerOnderdeelGegroepeerdBepaler).%New()
-	Set ..BestelService = ##class(DOM.VKP.Maatwerk.impl.BestelService).%New(..BestelEenheidLosseComponentenInBulkBepaler, ..BestelEenheidBulkPerOnderdeelGegroepeerdBepaler)
+	Set ..MaatwerkCalcAPI = ##class(vhTest.Mock.DOM.PM.MaatwerkCalcAPI).%New()
+	Set ..LosseComponentFactory = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory).%New()
+	Set ..BestelEenheidBepaler = ##class(vhTest.Mock.DOM.VKP.Maatwerk.impl.BestelEenheidBepaler).%New()
+	Set ..BestelService = ##class(DOM.VKP.Maatwerk.impl.BestelService).%New(..MaatwerkCalcAPI, ..LosseComponentFactory, ..BestelEenheidBepaler)
 	Set ..IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	Set ..HalffabItemsBoom = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Veelvoud van aantal bepaald door BestelEenheidBulkPerOnderdeelGegroepeerdBepaler is een geldig aantal bij VerpakkingType BulkPerOnderdeelGegroepeerd">
+<Method name="OnAfterAllTests">
 <Implementation><![CDATA[
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#ProductId)
+ 	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Veelvoud van aantal bepaald door BestelEenheidBepaler is een geldig aantal bij VerpakkingType BulkPerOnderdeelGegroepeerd">
+<Implementation><![CDATA[
+	Set ..Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Bodem()
 	Set ..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd
+	Set ..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Bodem()
 	
+	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New(..GeefHalffabItem(), ..IngegevenKenmerken)
+	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem).%New(Lade, ..GeefHalffabItem(), ..IngegevenKenmerken)
+	
+	Do ..MaatwerkCalcAPI.IndienMethodCall("GeefHalffabItemsBoom", ..IngegevenKenmerken).DanReturn(..GeefHalffabItemsBoom())
+	Do ..LosseComponentFactory.IndienMethodCall("MaakLosseComponent", ..GeefHalffabItemsBoom(), ..IngegevenKenmerken, $$$ElkeWaarde).DanReturn(LadeOnderdeel)
+	
 	#dim Aantal As TECH.Integer = 8
-
-	Do ..BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.VerwachtMethodCall("GeefBestelEenheidBulkPerOnderdeelGegroepeerd", ..IngegevenKenmerken).ExactAantalKeer(1).DanReturn(Aantal)
-
+	Do ..BestelEenheidBepaler.VerwachtMethodCall("GeefBestelEenheidBulkPerOnderdeelGegroepeerd", LadeOnderdeel).ExactAantalKeer(1).DanReturn(Aantal)
+	
 	Do ..BestelService.ValideerBestelEenheid(..IngegevenKenmerken, Aantal * 3)
 	Do $$$AssertFalse(..IsExceptieVerwacht())
-	Do ..BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.Verifieer()
+	Do ..BestelEenheidBepaler.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Exceptie geraised als aantal bepaald door BestelEenheidBulkPerOnderdeelGegroepeerdBepaler niet deelbaar door opgegeven aantal bij VerpakkingType BulkPerOnderdeelGegroepeerd">
+<Method name="Test: Exceptie geraised als aantal bepaald door BestelEenheidBepaler niet deelbaar door opgegeven aantal bij VerpakkingType BulkPerOnderdeelGegroepeerd">
 <Implementation><![CDATA[
+	Set ..Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Bodem()
 	Set ..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd
+	Set ..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Bodem()
 	
+	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New(..GeefHalffabItem(), ..IngegevenKenmerken)
+	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem).%New(Lade, ..GeefHalffabItem(), ..IngegevenKenmerken)
+	
+	Do ..MaatwerkCalcAPI.IndienMethodCall("GeefHalffabItemsBoom", ..IngegevenKenmerken).DanReturn(..GeefHalffabItemsBoom())
+	Do ..LosseComponentFactory.IndienMethodCall("MaakLosseComponent", ..GeefHalffabItemsBoom(), ..IngegevenKenmerken, $$$ElkeWaarde).DanReturn(LadeOnderdeel)
+	
 	#dim Aantal As TECH.Integer = 8
+	Do ..BestelEenheidBepaler.IndienMethodCall("GeefBestelEenheidBulkPerOnderdeelGegroepeerd", LadeOnderdeel).DanReturn(Aantal)
 
-	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 bepaald door BestelEenheidLosseComponentenInBulkBepaler is een geldig aantal bij VerpakkingType LosseComponentenInBulk">
+<Method name="Test: Veelvoud van aantal bepaald door BestelEenheidBepaler is een geldig aantal bij VerpakkingType LosseComponentenInBulk">
 <Implementation><![CDATA[
+	Set ..Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Bodem()
 	Set ..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.LosseComponentenInBulk
-	Set ..IngegevenKenmerken.ProductieWijze = ..Enum.ProductieWijze.ZijkantLinks
+	Set ..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Bodem()
 	
+	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New(..GeefHalffabItem(), ..IngegevenKenmerken)
+	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem).%New(Lade, ..GeefHalffabItem(), ..IngegevenKenmerken)
+	
+	Do ..MaatwerkCalcAPI.IndienMethodCall("GeefHalffabItemsBoom", ..IngegevenKenmerken).DanReturn(..GeefHalffabItemsBoom())
+	Do ..LosseComponentFactory.IndienMethodCall("MaakLosseComponent", ..GeefHalffabItemsBoom(), ..IngegevenKenmerken, $$$ElkeWaarde).DanReturn(LadeOnderdeel)
+	
 	#dim Aantal As TECH.Integer = 8
-
-	Do ..BestelEenheidLosseComponentenInBulkBepaler.VerwachtMethodCall("GeefBestelEenheidLosseComponentenInBulk", ..IngegevenKenmerken).ExactAantalKeer(1).DanReturn(Aantal)
-
+	Do ..BestelEenheidBepaler.VerwachtMethodCall("GeefBestelEenheidLosseComponentenInBulk", LadeOnderdeel).ExactAantalKeer(1).DanReturn(Aantal)
+	
 	Do ..BestelService.ValideerBestelEenheid(..IngegevenKenmerken, Aantal * 3)
 	Do $$$AssertFalse(..IsExceptieVerwacht())
-	Do ..BestelEenheidLosseComponentenInBulkBepaler.Verifieer()
+	Do ..BestelEenheidBepaler.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Exceptie geraised als aantal bepaald door BestelEenheidLosseComponentenInBulkBepaler niet deelbaar door opgegeven aantal bij VerpakkingType LosseComponentenInBulk">
+<Method name="Test: Exceptie geraised als aantal bepaald door BestelEenheidBepaler niet deelbaar door opgegeven aantal bij VerpakkingType LosseComponentenInBulk">
 <Implementation><![CDATA[
+	Set ..Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Bodem()
 	Set ..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.LosseComponentenInBulk
-	Set ..IngegevenKenmerken.ProductieWijze = ..Enum.ProductieWijze.ZijkantLinks
+	Set ..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Bodem()
 	
+	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New(..GeefHalffabItem(), ..IngegevenKenmerken)
+	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem).%New(Lade, ..GeefHalffabItem(), ..IngegevenKenmerken)
+	
+	Do ..MaatwerkCalcAPI.IndienMethodCall("GeefHalffabItemsBoom", ..IngegevenKenmerken).DanReturn(..GeefHalffabItemsBoom())
+	Do ..LosseComponentFactory.IndienMethodCall("MaakLosseComponent", ..GeefHalffabItemsBoom(), ..IngegevenKenmerken, $$$ElkeWaarde).DanReturn(LadeOnderdeel)
+	
 	#dim Aantal As TECH.Integer = 8
+	Do ..BestelEenheidBepaler.IndienMethodCall("GeefBestelEenheidLosseComponentenInBulk", LadeOnderdeel).DanReturn(Aantal)
 
-	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 ..BestelService.ValideerBestelEenheid(..IngegevenKenmerken, Aantal * 3 + 2)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefHalffab">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.Halffab</ReturnType>
+<Implementation><![CDATA[
+	#dim HalffabStub As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.Halffab = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.Halffab).%New(..#ProductId)
+	
+	Do HalffabStub.IndienMethodCall("GeefProductID").DanReturn(..#ProductId)
+	Do HalffabStub.IndienMethodCall("GeefOmschrijvingVoorDocs").DanReturn(..#RandomOmschrijving)
+	Do HalffabStub.IndienMethodCall("GeefOmschrijvingVoorPicking").DanReturn(..#RandomOmschrijving)
+	
+	Quit HalffabStub
+]]></Implementation>
+</Method>
+
+<Method name="GeefHalffabItem">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
+<Implementation><![CDATA[
+	#dim Familie As DOM.PM.enu.Familie = ##class(DOM.PM.enu.Familie).Lade()
+	#dim Variant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Taorbox()
+	#dim BerekeningsSpecificatieDummy As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1, ##class(DOM.VKP.enu.Klant).Halux(), ##class(DOM.common.VanHoeckePersonality).Instance())
+	
+	#dim HalffabContextFake As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(Familie, Variant, BerekeningsSpecificatieDummy)
+	
+	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(HalffabContextFake, ..Rol, ..GeefHalffab())
+	
+	Quit HalffabItem
+]]></Implementation>
+</Method>
+
+<Method name="GeefHalffabItemsBoom">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
+<Implementation><![CDATA[
+	Do ..HalffabItemsBoom.IndienMethodCall("GeefHalffabItem", ..Rol).DanReturn(..GeefHalffabItem())
+	Quit ..HalffabItemsBoom
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler.cls.xml
===================================================================
diff -u -r55751 -r55874
--- DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler.cls.xml	(.../BestelEenheidLosseComponentenInBulkBepaler.cls.xml)	(revision 55751)
+++ DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler.cls.xml	(.../BestelEenheidLosseComponentenInBulkBepaler.cls.xml)	(revision 55874)
@@ -3,82 +3,68 @@
 <Class name="DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler">
 <Super>TECH.Mockable</Super>
 
-<Property name="MaatwerkCalcAPI">
-<Type>DOM.PM.MaatwerkCalcAPI</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="LosseComponentFactory">
-<Type>DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="DoosAfmetingenBodemBepaler">
 <Type>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponenten.DoosAfmetingenBodemBepaler</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>MaatwerkCalcAPI:DOM.PM.MaatwerkCalcAPI="",LosseComponentFactory:DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory="",DoosAfmetingenBodemBepaler:DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponenten.DoosAfmetingenBodemBepaler=""</FormalSpec>
+<FormalSpec>DoosAfmetingenBodemBepaler:DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponenten.DoosAfmetingenBodemBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..MaatwerkCalcAPI = $$$Inject(MaatwerkCalcAPI, ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI())
-	Set ..LosseComponentFactory = $$$Inject(LosseComponentFactory, ##class(DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory).%New())
 	Set ..DoosAfmetingenBodemBepaler = $$$Inject(DoosAfmetingenBodemBepaler, ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponenten.DoosAfmetingenBodemBepaler).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="GeefBestelEenheidLosseComponentenInBulk">
-<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Method name="GeefBestelEenheidBodemLosseComponentenInBulk">
+<FormalSpec>LosseComponent:DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem</FormalSpec>
 <ReturnType>TECH.Integer</ReturnType>
 <Implementation><![CDATA[
-	#dim BestelEenheid As TECH.Integer = 0
+	#dim BestelEenheid As TECH.Integer
 	
-	If ##class(TECH.StringUtils).Equals(Kenmerken.ProductieWijze, ##class(DOM.PM.enu.TAORProductieWijze).ZijkantLinks(), ##class(DOM.PM.enu.TAORProductieWijze).ZijkantRechts()) {
-		Set BestelEenheid = ..GeefBestelEenheidVoorZijkant(Kenmerken)
-	} ElseIf Kenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Rug() {
-		Set BestelEenheid = ..GeefBestelEenheidVoorRug(Kenmerken)
-	} ElseIf Kenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Front() {
-		Set BestelEenheid = ..GeefBestelEenheidVoorFront(Kenmerken)
-	} ElseIf Kenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Bodem() {
-		Set BestelEenheid = ..GeefBestelEenheidVoorBodem(..MaakLosseComponent(Kenmerken))
-	}
+	Set BestelEenheid = ..DoosAfmetingenBodemBepaler.GeefMaximaalAantalOnderdelen(LosseComponent)
 	
 	Quit BestelEenheid
 ]]></Implementation>
 </Method>
 
-<Method name="MaakLosseComponent">
-<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</ReturnType>
+<Method name="GeefBestelEenheidZRFLosseComponentenInBulk">
+<FormalSpec>Rol:DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel,Hoogte:%CacheString</FormalSpec>
+<ReturnType>TECH.Integer</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)
+	#dim BestelEenheid As TECH.Integer = 0
 	
-	Quit ..LosseComponentFactory.MaakLosseComponent(HalffabItemsBoom, Kenmerken, LosseComponent)
+	If (Rol = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Zijkant()) {
+		Set BestelEenheid = ..GeefBestelEenheidVoorZijkant(Hoogte)
+	} ElseIf (Rol = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug()) {
+		Set BestelEenheid = ..GeefBestelEenheidVoorRug(Hoogte)
+	} ElseIf (Rol = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front()) {
+		Set BestelEenheid = ..GeefBestelEenheidVoorFront(Hoogte)
+	}
+	
+	Quit BestelEenheid
 ]]></Implementation>
 </Method>
 
 <Method name="GeefBestelEenheidVoorZijkant">
-<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<FormalSpec>Hoogte:DOM.PM.enu.TAORZijkantHoogte</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.Integer</ReturnType>
 <Implementation><![CDATA[
 	#dim BestelEenheid As TECH.Integer = 0
 	
-	If (Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N()) {
+	If (Hoogte = ##class(DOM.PM.enu.TAORZijkantHoogte).N()) {
 		Set BestelEenheid = 24
-	} ElseIf (Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M()) {
+	} ElseIf (Hoogte = ##class(DOM.PM.enu.TAORZijkantHoogte).M()) {
 		Set BestelEenheid = 16
-	} ElseIf ((Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).K()) || 
-		(Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()) || 
-		(Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).F())) {
+	} ElseIf ((Hoogte = ##class(DOM.PM.enu.TAORZijkantHoogte).K()) || 
+		(Hoogte = ##class(DOM.PM.enu.TAORZijkantHoogte).C()) || 
+		(Hoogte = ##class(DOM.PM.enu.TAORZijkantHoogte).F())) {
 		Set BestelEenheid = 8
 	}
 	
@@ -87,19 +73,19 @@
 </Method>
 
 <Method name="GeefBestelEenheidVoorRug">
-<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<FormalSpec>Hoogte:DOM.PM.enu.TAORRugHoogte</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.Integer</ReturnType>
 <Implementation><![CDATA[
 	#dim BestelEenheid As TECH.Integer = 0
 	
-	If (Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N()) {
+	If (Hoogte = ##class(DOM.PM.enu.TAORRugHoogte).N()) {
 		Set BestelEenheid = 24
-	} ElseIf ((Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M()) || 
-		(Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).K())) {
+	} ElseIf ((Hoogte = ##class(DOM.PM.enu.TAORRugHoogte).M()) || 
+		(Hoogte = ##class(DOM.PM.enu.TAORRugHoogte).K())) {
 		Set BestelEenheid = 16
-	} ElseIf ((Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()) || 
-		(Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).F())) {
+	} ElseIf ((Hoogte = ##class(DOM.PM.enu.TAORRugHoogte).C()) || 
+		(Hoogte = ##class(DOM.PM.enu.TAORRugHoogte).F())) {
 		Set BestelEenheid = 8
 	}
 	
@@ -108,36 +94,23 @@
 </Method>
 
 <Method name="GeefBestelEenheidVoorFront">
-<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<FormalSpec>Hoogte:DOM.PM.enu.TAORZijkantHoogte</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.Integer</ReturnType>
 <Implementation><![CDATA[
 	#dim BestelEenheid As TECH.Integer = 0
 	
-	If ((Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N()) || 
-		(Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M())) {
+	If ((Hoogte = ##class(DOM.PM.enu.TAORZijkantHoogte).N()) || 
+		(Hoogte = ##class(DOM.PM.enu.TAORZijkantHoogte).M())) {
 		Set BestelEenheid = 20
-	} ElseIf ((Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).K()) || 
-		(Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C())) {
+	} ElseIf ((Hoogte = ##class(DOM.PM.enu.TAORZijkantHoogte).K()) || 
+		(Hoogte = ##class(DOM.PM.enu.TAORZijkantHoogte).C())) {
 		Set BestelEenheid = 10
 	}
 	
 	Quit BestelEenheid
 ]]></Implementation>
 </Method>
-
-<Method name="GeefBestelEenheidVoorBodem">
-<FormalSpec>LosseComponent:DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.Integer</ReturnType>
-<Implementation><![CDATA[
-	#dim BestelEenheid As TECH.Integer = 0
-	
-	Set BestelEenheid = ..DoosAfmetingenBodemBepaler.GeefMaximaalAantalOnderdelen(LosseComponent)
-	
-	Quit BestelEenheid
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler/Test.cls.xml
===================================================================
diff -u -r55751 -r55874
--- vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 55751)
+++ vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 55874)
@@ -3,323 +3,214 @@
 <Class name="vhUnitTest.DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Parameter name="ProductId">
-<Type>%String</Type>
-<Default>1000</Default>
-</Parameter>
-
-<Parameter name="RandomOmschrijving">
-<Type>%String</Type>
-<Default>RandomOmschrijving</Default>
-</Parameter>
-
-<Property name="MaatwerkCalcAPI">
-<Type>DOM.PM.MaatwerkCalcAPI</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="LosseComponentFactory">
-<Type>DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="DoosAfmetingenBodemBepaler">
 <Type>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponenten.DoosAfmetingenBodemBepaler</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="HalffabItemsBoom">
-<Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="Rol">
-<Type>DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="OnBeforeAllTests">
-<Implementation><![CDATA[
- 	Do ##super()
- 	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#ProductId)
- 	Do ##class(vhTest.Utils.DOM.PM.Product).CreeerProduct(..#ProductId)
-]]></Implementation>
-</Method>
-
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
 	
-	Set ..MaatwerkCalcAPI = ##class(vhTest.Mock.DOM.PM.MaatwerkCalcAPI).%New()
-	Set ..LosseComponentFactory = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory).%New()
 	Set ..DoosAfmetingenBodemBepaler = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponenten.DoosAfmetingenBodemBepaler).%New()
-	Set ..HalffabItemsBoom = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
 ]]></Implementation>
 </Method>
 
-<Method name="OnAfterAllTests">
+<Method name="Test: Voor het bepalen van de BestelEenheid voor de bodem wordt GeefMaximaalAantalOnderdelen van de DoosAfmetingenBodemBepaler aangeroepen">
 <Implementation><![CDATA[
- 	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#ProductId)
- 	Do ##super()
+	#dim LosseComponent As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem).%New()
+	#dim MaximaalAantalOnderdelen As TECH.Integer = 123
+	
+	Do ..DoosAfmetingenBodemBepaler.VerwachtMethodCall("GeefMaximaalAantalOnderdelen", LosseComponent).ExactAantalKeer(1).DanReturn(MaximaalAantalOnderdelen)
+	
+	#dim BestelEenheidLosseComponentenInBulkBepaler As DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler = ..GeefBestelEenheidLosseComponentenInBulkBepaler()
+	#dim BestelEenheid As TECH.Integer = BestelEenheidLosseComponentenInBulkBepaler.GeefBestelEenheidBodemLosseComponentenInBulk(LosseComponent)
+	
+	Do $$$AssertEquals(BestelEenheid, MaximaalAantalOnderdelen)
+	Do ..DoosAfmetingenBodemBepaler.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: BestelEenheid is default 0 als LadeHoogte leeg is">
+<Method name="Test: BestelEenheid BestelEenheidZRF is default 0 als Rol leeg is">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set IngegevenKenmerken.LadeHoogte = ""
-	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).ZijkantLinks()
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ""
+	#dim Hoogte As %CacheString = ##class(DOM.PM.enu.TAORZijkantHoogte).N()
 		
-	Do ..AssertBestelEenheidZRF(IngegevenKenmerken, 0)
+	Do ..AssertBestelEenheidZRF(Rol, Hoogte, 0)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: BestelEenheid is default 0 als LadeHoogte onbekend is">
+<Method name="Test: BestelEenheid BestelEenheidZRF is default 0 als Rol onbekend is">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set IngegevenKenmerken.LadeHoogte = "Onbekende LadeHoogte"
-	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).ZijkantLinks()
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = "Onbekende Rol"
+	#dim Hoogte As %CacheString = ##class(DOM.PM.enu.TAORZijkantHoogte).N()
 		
-	Do ..AssertBestelEenheidZRF(IngegevenKenmerken, 0)
+	Do ..AssertBestelEenheidZRF(Rol, Hoogte, 0)
 ]]></Implementation>
 </Method>
 
+<Method name="Test: BestelEenheid BestelEenheidZRF is default 0 als Hoogte leeg is">
+<Implementation><![CDATA[
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Zijkant()
+	#dim Hoogte As %CacheString = ""
+		
+	Do ..AssertBestelEenheidZRF(Rol, Hoogte, 0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: BestelEenheid BestelEenheidZRF is default 0 als Hoogte onbekend is">
+<Implementation><![CDATA[
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Zijkant()
+	#dim Hoogte As %CacheString = "Onbekende Hoogte"
+		
+	Do ..AssertBestelEenheidZRF(Rol, Hoogte, 0)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Voor de Zijkant bij LadeHoogte N is de BestelEenheid 24">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N()
-	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).ZijkantLinks()
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Zijkant()
+	#dim Hoogte As %CacheString = ##class(DOM.PM.enu.TAORZijkantHoogte).N()
 		
-	Do ..AssertBestelEenheidZRF(IngegevenKenmerken, 24)
+	Do ..AssertBestelEenheidZRF(Rol, Hoogte, 24)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Voor de Zijkant bij LadeHoogte M is de BestelEenheid 16">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M()
-	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).ZijkantLinks()
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Zijkant()
+	#dim Hoogte As %CacheString = ##class(DOM.PM.enu.TAORZijkantHoogte).M()
 	
-	Do ..AssertBestelEenheidZRF(IngegevenKenmerken, 16)
+	Do ..AssertBestelEenheidZRF(Rol, Hoogte, 16)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Voor de Zijkant bij LadeHoogte K is de BestelEenheid 8">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).K()
-	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).ZijkantLinks()
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Zijkant()
+	#dim Hoogte As %CacheString = ##class(DOM.PM.enu.TAORZijkantHoogte).K()
 	
-	Do ..AssertBestelEenheidZRF(IngegevenKenmerken, 8)
+	Do ..AssertBestelEenheidZRF(Rol, Hoogte, 8)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Voor de Zijkant bij LadeHoogte C is de BestelEenheid 8">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()
-	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).ZijkantLinks()
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Zijkant()
+	#dim Hoogte As %CacheString = ##class(DOM.PM.enu.TAORZijkantHoogte).C()
 	
-	Do ..AssertBestelEenheidZRF(IngegevenKenmerken, 8)
+	Do ..AssertBestelEenheidZRF(Rol, Hoogte, 8)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Voor de Zijkant bij LadeHoogte F is de BestelEenheid 8">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).F()
-	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).ZijkantLinks()
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Zijkant()
+	#dim Hoogte As %CacheString = ##class(DOM.PM.enu.TAORZijkantHoogte).F()
 	
-	Do ..AssertBestelEenheidZRF(IngegevenKenmerken, 8)
+	Do ..AssertBestelEenheidZRF(Rol, Hoogte, 8)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Voor de Rug bij LadeHoogte N is de BestelEenheid 24">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N()
-	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Rug()
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug()
+	#dim Hoogte As %CacheString = ##class(DOM.PM.enu.TAORZijkantHoogte).N()
 	
-	Do ..AssertBestelEenheidZRF(IngegevenKenmerken, 24)
+	Do ..AssertBestelEenheidZRF(Rol, Hoogte, 24)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Voor de Rug bij LadeHoogte M is de BestelEenheid 16">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M()
-	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Rug()
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug()
+	#dim Hoogte As %CacheString = ##class(DOM.PM.enu.TAORZijkantHoogte).M()
 	
-	Do ..AssertBestelEenheidZRF(IngegevenKenmerken, 16)
+	Do ..AssertBestelEenheidZRF(Rol, Hoogte, 16)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Voor de Rug bij LadeHoogte K is de BestelEenheid 16">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).K()
-	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Rug()
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug()
+	#dim Hoogte As %CacheString = ##class(DOM.PM.enu.TAORZijkantHoogte).K()
 	
-	Do ..AssertBestelEenheidZRF(IngegevenKenmerken, 16)
+	Do ..AssertBestelEenheidZRF(Rol, Hoogte, 16)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Voor de Rug bij LadeHoogte C is de BestelEenheid 8">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()
-	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Rug()
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug()
+	#dim Hoogte As %CacheString = ##class(DOM.PM.enu.TAORZijkantHoogte).C()
 	
-	Do ..AssertBestelEenheidZRF(IngegevenKenmerken, 8)
+	Do ..AssertBestelEenheidZRF(Rol, Hoogte, 8)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Voor de Rug bij LadeHoogte F is de BestelEenheid 8">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).F()
-	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Rug()
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug()
+	#dim Hoogte As %CacheString = ##class(DOM.PM.enu.TAORZijkantHoogte).F()
 	
-	Do ..AssertBestelEenheidZRF(IngegevenKenmerken, 8)
+	Do ..AssertBestelEenheidZRF(Rol, Hoogte, 8)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Voor het Front bij LadeHoogte N is de BestelEenheid 20">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N()
-	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Front()
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front()
+	#dim Hoogte As %CacheString = ##class(DOM.PM.enu.TAORZijkantHoogte).N()
 	
-	Do ..AssertBestelEenheidZRF(IngegevenKenmerken, 20)
+	Do ..AssertBestelEenheidZRF(Rol, Hoogte, 20)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Voor het Front bij LadeHoogte M is de BestelEenheid 20">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M()
-	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Front()
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front()
+	#dim Hoogte As %CacheString = ##class(DOM.PM.enu.TAORZijkantHoogte).M()
 	
-	Do ..AssertBestelEenheidZRF(IngegevenKenmerken, 20)
+	Do ..AssertBestelEenheidZRF(Rol, Hoogte, 20)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Voor het Front bij LadeHoogte K is de BestelEenheid 10">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).K()
-	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Front()
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front()
+	#dim Hoogte As %CacheString = ##class(DOM.PM.enu.TAORZijkantHoogte).K()
 	
-	Do ..AssertBestelEenheidZRF(IngegevenKenmerken, 10)
+	Do ..AssertBestelEenheidZRF(Rol, Hoogte, 10)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Voor het Front bij LadeHoogte C is de BestelEenheid 10">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()
-	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Front()
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front()
+	#dim Hoogte As %CacheString = ##class(DOM.PM.enu.TAORZijkantHoogte).C()
 	
-	Do ..AssertBestelEenheidZRF(IngegevenKenmerken, 10)
+	Do ..AssertBestelEenheidZRF(Rol, Hoogte, 10)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Voor het bepalen van de BestelEenheid voor de bodem wordt GeefMaximaalAantalOnderdelen van de DoosAfmetingenBodemBepaler aangeroepen">
-<Implementation><![CDATA[
-	Set ..Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Bodem()
-	
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Bodem()
-	
-	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New(..GeefHalffabItem(), IngegevenKenmerken)
-	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
-	
-	#dim MaximaalAantalOnderdelen As TECH.Integer = 123
-	
-	Do ..DoosAfmetingenBodemBepaler.VerwachtMethodCall("GeefMaximaalAantalOnderdelen", LadeOnderdeel).ExactAantalKeer(1).DanReturn(MaximaalAantalOnderdelen)
-	
-	Do ..AssertBestelEenheidBodem(IngegevenKenmerken, LadeOnderdeel, MaximaalAantalOnderdelen)
-	Do ..DoosAfmetingenBodemBepaler.Verifieer()
-]]></Implementation>
-</Method>
-
 <Method name="AssertBestelEenheidZRF">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,VerwachteWaarde:TECH.Integer</FormalSpec>
+<FormalSpec>Rol:DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel,Hoogte:%CacheString,VerwachteWaarde:TECH.Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim BestelEenheidLosseComponentenInBulkBepaler As DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler = ..GeefBestelEenheidLosseComponentenInBulkBepaler()
-	#dim BestelEenheid As TECH.Integer = BestelEenheidLosseComponentenInBulkBepaler.GeefBestelEenheidLosseComponentenInBulk(IngegevenKenmerken)
+	#dim BestelEenheid As TECH.Integer = BestelEenheidLosseComponentenInBulkBepaler.GeefBestelEenheidZRFLosseComponentenInBulk(Rol, Hoogte)
 	
 	Do $$$AssertEquals(BestelEenheid, VerwachteWaarde)
 ]]></Implementation>
 </Method>
 
-<Method name="AssertBestelEenheidBodem">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,VerwachteWaarde:TECH.Integer</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim MaatwerkCalcAPIStub As DOM.PM.MaatwerkCalcAPI = ##class(vhTest.Mock.DOM.PM.MaatwerkCalcAPI).%New()
-	Do MaatwerkCalcAPIStub.IndienMethodCall("GeefHalffabItemsBoom", IngegevenKenmerken).DanReturn(..GeefHalffabItemsBoom())
-	
-	#dim LosseComponentFactoryStub As LosseComponentFactory = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory).%New()
-	Do LosseComponentFactoryStub.IndienMethodCall("MaakLosseComponent", ..GeefHalffabItemsBoom(), IngegevenKenmerken, $$$ElkeWaarde).DanReturn(LadeOnderdeel)
-	
-	Set ..MaatwerkCalcAPI = MaatwerkCalcAPIStub
-	Set ..LosseComponentFactory = LosseComponentFactoryStub
-	
-	#dim BestelEenheidLosseComponentenInBulkBepaler As DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler = ..GeefBestelEenheidLosseComponentenInBulkBepaler()
-	#dim BestelEenheid As TECH.Integer = BestelEenheidLosseComponentenInBulkBepaler.GeefBestelEenheidLosseComponentenInBulk(IngegevenKenmerken)
-	
-	Do $$$AssertEquals(BestelEenheid, VerwachteWaarde)
-]]></Implementation>
-</Method>
-
 <Method name="GeefBestelEenheidLosseComponentenInBulkBepaler">
 <Private>1</Private>
 <ReturnType>DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler).%New(..MaatwerkCalcAPI, ..LosseComponentFactory, ..DoosAfmetingenBodemBepaler)
+<Implementation><![CDATA[	Quit ##class(DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler).%New(..DoosAfmetingenBodemBepaler)
 ]]></Implementation>
 </Method>
-
-<Method name="GeefHalffab">
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.Halffab</ReturnType>
-<Implementation><![CDATA[
-	#dim HalffabStub As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.Halffab = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.Halffab).%New(..#ProductId)
-	
-	Do HalffabStub.IndienMethodCall("GeefProductID").DanReturn(..#ProductId)
-	Do HalffabStub.IndienMethodCall("GeefOmschrijvingVoorDocs").DanReturn(..#RandomOmschrijving)
-	Do HalffabStub.IndienMethodCall("GeefOmschrijvingVoorPicking").DanReturn(..#RandomOmschrijving)
-	
-	Quit HalffabStub
-]]></Implementation>
-</Method>
-
-<Method name="GeefHalffabItem">
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
-<Implementation><![CDATA[
-	#dim Familie As DOM.PM.enu.Familie = ##class(DOM.PM.enu.Familie).Lade()
-	#dim Variant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Taorbox()
-	#dim BerekeningsSpecificatieDummy As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1, ##class(DOM.VKP.enu.Klant).Halux(), ##class(DOM.common.VanHoeckePersonality).Instance())
-	
-	#dim HalffabContextFake As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(Familie, Variant, BerekeningsSpecificatieDummy)
-	
-	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(HalffabContextFake, ..Rol, ..GeefHalffab())
-	
-	Quit HalffabItem
-]]></Implementation>
-</Method>
-
-<Method name="GeefHalffabItemsBoom">
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
-<Implementation><![CDATA[
-	Do ..HalffabItemsBoom.IndienMethodCall("GeefHalffabItem", ..Rol).DanReturn(..GeefHalffabItem())
-	Quit ..HalffabItemsBoom
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: DOM/VKP/Maatwerk/impl/BestelService.cls.xml
===================================================================
diff -u -r55565 -r55874
--- DOM/VKP/Maatwerk/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 55565)
+++ DOM/VKP/Maatwerk/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 55874)
@@ -3,25 +3,31 @@
 <Class name="DOM.VKP.Maatwerk.impl.BestelService">
 <Super>TECH.RegisteredObject,DOM.VKP.Maatwerk.BestelService</Super>
 
-<Property name="BestelEenheidLosseComponentenInBulkBepaler">
-<Type>DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler</Type>
+<Property name="MaatwerkCalcAPI">
+<Type>DOM.PM.MaatwerkCalcAPI</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="BestelEenheidBulkPerOnderdeelGegroepeerdBepaler">
-<Type>DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBulkPerOnderdeelGegroepeerdBepaler</Type>
+<Property name="LosseComponentFactory">
+<Type>DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="BestelEenheidBepaler">
+<Type>DOM.VKP.Maatwerk.impl.BestelEenheidBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>BestelEenheidLosseComponentenInBulkBepaler:DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler="",BestelEenheidBulkPerOnderdeelGegroepeerdBepaler:DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBulkPerOnderdeelGegroepeerdBepaler=""</FormalSpec>
+<FormalSpec>MaatwerkCalcAPI:DOM.PM.MaatwerkCalcAPI="",LosseComponentFactory:DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory="",BestelEenheidBepaler:DOM.VKP.Maatwerk.impl.BestelEenheidBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..BestelEenheidLosseComponentenInBulkBepaler = $$$Inject(BestelEenheidLosseComponentenInBulkBepaler, ##class(DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler).%New())
-	Set ..BestelEenheidBulkPerOnderdeelGegroepeerdBepaler = $$$Inject(BestelEenheidBulkPerOnderdeelGegroepeerdBepaler, ##class(DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBulkPerOnderdeelGegroepeerdBepaler).%New())
+	Set ..MaatwerkCalcAPI = $$$Inject(MaatwerkCalcAPI, ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI())
+	Set ..LosseComponentFactory = $$$Inject(LosseComponentFactory, ##class(DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory).%New())
+	Set ..BestelEenheidBepaler = $$$Inject(BestelEenheidBepaler, ##class(DOM.VKP.Maatwerk.impl.BestelEenheidBepaler).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -35,14 +41,15 @@
 	
 	If (Kenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox()) {
 		#dim VerpakkingType As DOM.PM.enu.TAORVerpakkingType.AutoComplete = ##class(DOM.PM.enu.TAORVerpakkingType.AutoComplete).%New()
+		#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ..MaakLosseComponent(Kenmerken)
 		
 		If ((Kenmerken.VerpakkingType = VerpakkingType.LosseComponentenInBulk) && $$$Not(Kenmerken.ProductieWijze = "")) {
-			Set BestelEenheid = ..BestelEenheidLosseComponentenInBulkBepaler.GeefBestelEenheidLosseComponentenInBulk(Kenmerken)
+			Set BestelEenheid = ..BestelEenheidBepaler.GeefBestelEenheidLosseComponentenInBulk(LadeOnderdeel)
 		} ElseIf (Kenmerken.VerpakkingType = VerpakkingType.BulkPerOnderdeelGegroepeerd) {
-			Set BestelEenheid = ..BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.GeefBestelEenheidBulkPerOnderdeelGegroepeerd(Kenmerken)
+			Set BestelEenheid = ..BestelEenheidBepaler.GeefBestelEenheidBulkPerOnderdeelGegroepeerd(LadeOnderdeel)
 		}
 	}
-		
+	
 	Quit BestelEenheid
 ]]></Implementation>
 </Method>
@@ -54,6 +61,18 @@
 	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>