Index: DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler.cls.xml
===================================================================
diff -u -r55546 -r55550
--- DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler.cls.xml	(.../BestelEenheidLosseComponentenInBulkBepaler.cls.xml)	(revision 55546)
+++ DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler.cls.xml	(.../BestelEenheidLosseComponentenInBulkBepaler.cls.xml)	(revision 55550)
@@ -101,7 +101,7 @@
 	
 	If (Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N()) {
 		Set BestelEenheid = 24
-	} ElseIf ((Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M()) ||
+	} ElseIf ((Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M()) || 
 		(Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).K())) {
 		Set BestelEenheid = 16
 	} ElseIf ((Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()) || 
@@ -122,7 +122,7 @@
 <Implementation><![CDATA[
 	#dim BestelEenheid As TECH.Integer
 	
-	If ((Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N()) ||
+	If ((Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N()) || 
 		(Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M())) {
 		Set BestelEenheid = 20
 	} ElseIf ((Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).K()) || 
Index: vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler/Test.cls.xml
===================================================================
diff -u -r55547 -r55550
--- vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 55547)
+++ vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 55550)
@@ -66,7 +66,10 @@
 	#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()
 	
-	Do ..AssertBestelEenheid(IngegevenKenmerken, "24")
+	#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.Zijkant).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
+		
+	Do ..AssertBestelEenheid(IngegevenKenmerken, LadeOnderdeel, "24")
 ]]></Implementation>
 </Method>
 
@@ -77,7 +80,10 @@
 	#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()
 	
-	Do ..AssertBestelEenheid(IngegevenKenmerken, "16")
+	#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.Zijkant).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
+	
+	Do ..AssertBestelEenheid(IngegevenKenmerken, LadeOnderdeel, "16")
 ]]></Implementation>
 </Method>
 
@@ -88,7 +94,10 @@
 	#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()
 	
-	Do ..AssertBestelEenheid(IngegevenKenmerken, "8")
+	#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.Zijkant).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
+	
+	Do ..AssertBestelEenheid(IngegevenKenmerken, LadeOnderdeel, "8")
 ]]></Implementation>
 </Method>
 
@@ -99,7 +108,10 @@
 	#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()
 	
-	Do ..AssertBestelEenheid(IngegevenKenmerken, "8")
+	#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.Zijkant).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
+	
+	Do ..AssertBestelEenheid(IngegevenKenmerken, LadeOnderdeel, "8")
 ]]></Implementation>
 </Method>
 
@@ -110,19 +122,91 @@
 	#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()
 	
-	Do ..AssertBestelEenheid(IngegevenKenmerken, "8")
+	#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.Zijkant).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
+	
+	Do ..AssertBestelEenheid(IngegevenKenmerken, LadeOnderdeel, "8")
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Voor de Rug bij LadeHoogte N is de BestelEenheid 24">
+<Implementation><![CDATA[
+	Set ..Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Rug()
+	
+	#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()
+	
+	#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.Rug).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
+	
+	Do ..AssertBestelEenheid(IngegevenKenmerken, LadeOnderdeel, "24")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor de Rug bij LadeHoogte M is de BestelEenheid 16">
+<Implementation><![CDATA[
+	Set ..Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Rug()
+	
+	#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()
+	
+	#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.Rug).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
+	
+	Do ..AssertBestelEenheid(IngegevenKenmerken, LadeOnderdeel, "16")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor de Rug bij LadeHoogte K is de BestelEenheid 16">
+<Implementation><![CDATA[
+	Set ..Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Rug()
+	
+	#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 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.Rug).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
+	
+	Do ..AssertBestelEenheid(IngegevenKenmerken, LadeOnderdeel, "16")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor de Rug bij LadeHoogte C is de BestelEenheid 8">
+<Implementation><![CDATA[
+	Set ..Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Rug()
+	
+	#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()
+	
+	#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.Rug).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
+	
+	Do ..AssertBestelEenheid(IngegevenKenmerken, LadeOnderdeel, "8")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor de Rug bij LadeHoogte F is de BestelEenheid 8">
+<Implementation><![CDATA[
+	Set ..Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Rug()
+	
+	#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()
+	
+	#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.Rug).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
+	
+	Do ..AssertBestelEenheid(IngegevenKenmerken, LadeOnderdeel, "8")
+]]></Implementation>
+</Method>
+
 <Method name="AssertBestelEenheid">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,VerwachteWaarde:TECH.Integer</FormalSpec>
+<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 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.Zijkant).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
 	#dim LosseComponentFactoryStub As LosseComponentFactory = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory).%New()
 	Do LosseComponentFactoryStub.IndienMethodCall("MaakLosseComponent", ..GeefHalffabItemsBoom(), IngegevenKenmerken, $$$ElkeWaarde).DanReturn(LadeOnderdeel)
 	
@@ -174,7 +258,9 @@
 <Method name="GeefHalffabItemsBoom">
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
-<Implementation><![CDATA[	Quit ..HalffabItemsBoom
+<Implementation><![CDATA[
+	Do ..HalffabItemsBoom.IndienMethodCall("GeefHalffabItem", ..Rol).DanReturn(..GeefHalffabItem())
+	Quit ..HalffabItemsBoom
 ]]></Implementation>
 </Method>
 </Class>