Index: vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler/Test.cls.xml
===================================================================
diff -u -r55550 -r55551
--- vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 55550)
+++ vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 55551)
@@ -200,6 +200,63 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Voor de Front bij LadeHoogte N is de BestelEenheid 20">
+<Implementation><![CDATA[
+	Set ..Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Front()
+	
+	#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.Front).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
+	
+	Do ..AssertBestelEenheid(IngegevenKenmerken, LadeOnderdeel, "20")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor de Front bij LadeHoogte M is de BestelEenheid 20">
+<Implementation><![CDATA[
+	Set ..Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Front()
+	
+	#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.Front).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
+	
+	Do ..AssertBestelEenheid(IngegevenKenmerken, LadeOnderdeel, "20")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor de Front bij LadeHoogte K is de BestelEenheid 10">
+<Implementation><![CDATA[
+	Set ..Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Front()
+	
+	#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.Front).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
+	
+	Do ..AssertBestelEenheid(IngegevenKenmerken, LadeOnderdeel, "10")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor de Front bij LadeHoogte C is de BestelEenheid 10">
+<Implementation><![CDATA[
+	Set ..Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Front()
+	
+	#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.Front).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
+	
+	Do ..AssertBestelEenheid(IngegevenKenmerken, LadeOnderdeel, "10")
+]]></Implementation>
+</Method>
+
 <Method name="AssertBestelEenheid">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,VerwachteWaarde:TECH.Integer</FormalSpec>
 <Private>1</Private>