Index: vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler/Test.cls.xml
===================================================================
diff -u -r55546 -r55547
--- vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 55546)
+++ vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 55547)
@@ -70,6 +70,50 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Voor de Zijkant bij LadeHoogte M is de BestelEenheid 16">
+<Implementation><![CDATA[
+	Set ..Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).ZijkantLinks()
+	
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor de Zijkant bij LadeHoogte K is de BestelEenheid 8">
+<Implementation><![CDATA[
+	Set ..Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).ZijkantLinks()
+	
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor de Zijkant bij LadeHoogte C is de BestelEenheid 8">
+<Implementation><![CDATA[
+	Set ..Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).ZijkantLinks()
+	
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor de Zijkant bij LadeHoogte F is de BestelEenheid 8">
+<Implementation><![CDATA[
+	Set ..Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).ZijkantLinks()
+	
+	#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")
+]]></Implementation>
+</Method>
+
 <Method name="AssertBestelEenheid">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,VerwachteWaarde:TECH.Integer</FormalSpec>
 <Private>1</Private>