Index: vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBepaler/Test.cls.xml	(revision 55878)
@@ -0,0 +1,194 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Voor LosseComponentenInBulk wordt voor Bodem GeefBestelEenheidBodemLosseComponentenInBulk van BestelEenheidLosseComponentenInBulkBepaler aangesproken">
+<Implementation><![CDATA[
+	#dim LadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Bodem).%New()
+	Do LadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Bodem())
+	
+	#dim BestelEenheidLosseComponentenInBulkBepalerStub As DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler.BestelEenheidLosseComponentenInBulkBepaler = ##class(vhTest.Mock.DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler.BestelEenheidLosseComponentenInBulkBepaler).%New()
+	Do BestelEenheidLosseComponentenInBulkBepalerStub.VerwachtMethodCall("GeefBestelEenheidBodemLosseComponentenInBulk", LadeOnderdeelStub).ExactAantalKeer(1)
+	
+	#dim BestelEenheidBepaler As DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler = ##class(DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler).%New(BestelEenheidLosseComponentenInBulkBepalerStub)
+	#dim BestelEenheid As TECH.Integer = BestelEenheidBepaler.GeefBestelEenheidLosseComponentenInBulk(LadeOnderdeelStub)
+	
+	Do BestelEenheidLosseComponentenInBulkBepalerStub.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor LosseComponentenInBulk wordt voor Zijkant GeefBestelEenheidZRFLosseComponentenInBulk van BestelEenheidLosseComponentenInBulkBepaler aangesproken">
+<Implementation><![CDATA[
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Zijkant()
+	#dim Hoogte As %String = ##class(DOM.PM.enu.TAORZijkantHoogte).N()
+	
+	#dim LadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Zijkant).%New()
+	Do LadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(Rol)
+	Do LadeOnderdeelStub.IndienMethodCall("GeefHoogte").DanReturn(Hoogte)
+	
+	#dim BestelEenheidLosseComponentenInBulkBepalerStub As DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler.BestelEenheidLosseComponentenInBulkBepaler = ##class(vhTest.Mock.DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler.BestelEenheidLosseComponentenInBulkBepaler).%New()
+	Do BestelEenheidLosseComponentenInBulkBepalerStub.VerwachtMethodCall("GeefBestelEenheidZRFLosseComponentenInBulk", Rol, Hoogte).ExactAantalKeer(1)
+	
+	#dim BestelEenheidBepaler As DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler = ##class(DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler).%New(BestelEenheidLosseComponentenInBulkBepalerStub)
+	#dim BestelEenheid As TECH.Integer = BestelEenheidBepaler.GeefBestelEenheidLosseComponentenInBulk(LadeOnderdeelStub)
+	
+	Do BestelEenheidLosseComponentenInBulkBepalerStub.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor LosseComponentenInBulk wordt voor Front GeefBestelEenheidZRFLosseComponentenInBulk van BestelEenheidLosseComponentenInBulkBepaler aangesproken">
+<Implementation><![CDATA[
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front()
+	#dim Hoogte As %String = ##class(DOM.PM.enu.TAORZijkantHoogte).N()
+	
+	#dim LadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Front).%New()
+	Do LadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(Rol)
+	Do LadeOnderdeelStub.IndienMethodCall("GeefHoogte").DanReturn(Hoogte)
+	
+	#dim BestelEenheidLosseComponentenInBulkBepalerStub As DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler.BestelEenheidLosseComponentenInBulkBepaler = ##class(vhTest.Mock.DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler.BestelEenheidLosseComponentenInBulkBepaler).%New()
+	Do BestelEenheidLosseComponentenInBulkBepalerStub.VerwachtMethodCall("GeefBestelEenheidZRFLosseComponentenInBulk", Rol, Hoogte).ExactAantalKeer(1)
+	
+	#dim BestelEenheidBepaler As DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler = ##class(DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler).%New(BestelEenheidLosseComponentenInBulkBepalerStub)
+	#dim BestelEenheid As TECH.Integer = BestelEenheidBepaler.GeefBestelEenheidLosseComponentenInBulk(LadeOnderdeelStub)
+	
+	Do BestelEenheidLosseComponentenInBulkBepalerStub.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor LosseComponentenInBulk wordt voor Rug GeefBestelEenheidZRFLosseComponentenInBulk van BestelEenheidLosseComponentenInBulkBepaler aangesproken">
+<Implementation><![CDATA[
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug()
+	#dim Hoogte As %String = ##class(DOM.PM.enu.TAORRugHoogte).N()
+	
+	#dim LadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Rug).%New()
+	Do LadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(Rol)
+	Do LadeOnderdeelStub.IndienMethodCall("GeefHoogte").DanReturn(Hoogte)
+	
+	#dim BestelEenheidLosseComponentenInBulkBepalerStub As DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler.BestelEenheidLosseComponentenInBulkBepaler = ##class(vhTest.Mock.DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler.BestelEenheidLosseComponentenInBulkBepaler).%New()
+	Do BestelEenheidLosseComponentenInBulkBepalerStub.VerwachtMethodCall("GeefBestelEenheidZRFLosseComponentenInBulk", Rol, Hoogte).ExactAantalKeer(1)
+	
+	#dim BestelEenheidBepaler As DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler = ##class(DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler).%New(BestelEenheidLosseComponentenInBulkBepalerStub)
+	#dim BestelEenheid As TECH.Integer = BestelEenheidBepaler.GeefBestelEenheidLosseComponentenInBulk(LadeOnderdeelStub)
+	
+	Do BestelEenheidLosseComponentenInBulkBepalerStub.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor BulkPerOnderdeelGegroepeerd -&gt; Rug hoogte N =&gt; 24">
+<Implementation><![CDATA[
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug()
+	#dim Hoogte As %String = ##class(DOM.PM.enu.TAORRugHoogte).N()
+	#dim LadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Rug).%New()
+	
+	Do ..AssertBulkPerOnderdeelGegroepeerd(LadeOnderdeelStub, Rol, Hoogte, 24)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor BulkPerOnderdeelGegroepeerd -&gt; Rug hoogte M =&gt; 16">
+<Implementation><![CDATA[
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug()
+	#dim Hoogte As %String = ##class(DOM.PM.enu.TAORRugHoogte).M()
+	#dim LadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Rug).%New()
+	
+	Do ..AssertBulkPerOnderdeelGegroepeerd(LadeOnderdeelStub, Rol, Hoogte, 16)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor BulkPerOnderdeelGegroepeerd -&gt; Rug hoogte K =&gt; 16">
+<Implementation><![CDATA[
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug()
+	#dim Hoogte As %String = ##class(DOM.PM.enu.TAORRugHoogte).K()
+	#dim LadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Rug).%New()
+	
+	Do ..AssertBulkPerOnderdeelGegroepeerd(LadeOnderdeelStub, Rol, Hoogte, 16)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor BulkPerOnderdeelGegroepeerd -&gt; Rug hoogte C =&gt; 8">
+<Implementation><![CDATA[
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug()
+	#dim Hoogte As %String = ##class(DOM.PM.enu.TAORRugHoogte).C()
+	#dim LadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Rug).%New()
+	
+	Do ..AssertBulkPerOnderdeelGegroepeerd(LadeOnderdeelStub, Rol, Hoogte, 8)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor BulkPerOnderdeelGegroepeerd -&gt; Rug hoogte F =&gt; 8">
+<Implementation><![CDATA[
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug()
+	#dim Hoogte As %String = ##class(DOM.PM.enu.TAORRugHoogte).F()
+	#dim LadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Rug).%New()
+	
+	Do ..AssertBulkPerOnderdeelGegroepeerd(LadeOnderdeelStub, Rol, Hoogte, 8)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor BulkPerOnderdeelGegroepeerd -&gt; Niet-Rug hoogte N =&gt; 24">
+<Implementation><![CDATA[
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front()
+	#dim Hoogte As %String = ##class(DOM.PM.enu.TAORZijkantHoogte).N()
+	#dim LadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Front).%New()
+	
+	Do ..AssertBulkPerOnderdeelGegroepeerd(LadeOnderdeelStub, Rol, Hoogte, 24)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor BulkPerOnderdeelGegroepeerd -&gt; Niet-Rug hoogte M =&gt; 16">
+<Implementation><![CDATA[
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front()
+	#dim Hoogte As %String = ##class(DOM.PM.enu.TAORZijkantHoogte).M()
+	#dim LadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Front).%New()
+	
+	Do ..AssertBulkPerOnderdeelGegroepeerd(LadeOnderdeelStub, Rol, Hoogte, 16)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor BulkPerOnderdeelGegroepeerd -&gt; Niet-Rug hoogte K =&gt; 8">
+<Implementation><![CDATA[
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front()
+	#dim Hoogte As %String = ##class(DOM.PM.enu.TAORZijkantHoogte).K()
+	#dim LadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Front).%New()
+	
+	Do ..AssertBulkPerOnderdeelGegroepeerd(LadeOnderdeelStub, Rol, Hoogte, 8)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor BulkPerOnderdeelGegroepeerd -&gt; Niet-Rug hoogte C =&gt; 8">
+<Implementation><![CDATA[
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front()
+	#dim Hoogte As %String = ##class(DOM.PM.enu.TAORZijkantHoogte).C()
+	#dim LadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Front).%New()
+	
+	Do ..AssertBulkPerOnderdeelGegroepeerd(LadeOnderdeelStub, Rol, Hoogte, 8)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor BulkPerOnderdeelGegroepeerd -&gt; Niet-Rug hoogte F =&gt; 8">
+<Implementation><![CDATA[
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front()
+	#dim Hoogte As %String = ##class(DOM.PM.enu.TAORZijkantHoogte).F()
+	#dim LadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Front).%New()
+	
+	Do ..AssertBulkPerOnderdeelGegroepeerd(LadeOnderdeelStub, Rol, Hoogte, 8)
+]]></Implementation>
+</Method>
+
+<Method name="AssertBulkPerOnderdeelGegroepeerd">
+<FormalSpec>LadeOnderdeelStub:DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel,Rol:DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel,Hoogte:%String,VerwachteWaarde:TECH.Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do LadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(Rol)
+	Do LadeOnderdeelStub.IndienMethodCall("GeefHoogte").DanReturn(Hoogte)
+	
+	#dim BestelEenheidBepaler As DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler = ##class(DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler).%New()
+	#dim BestelEenheid As TECH.Integer = BestelEenheidBepaler.GeefBestelEenheidBulkPerOnderdeelGegroepeerd(LadeOnderdeelStub)
+	
+	Do $$$AssertEquals(BestelEenheid, VerwachteWaarde)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBepaler.cls.xml
===================================================================
diff -u -r55877 -r55878
--- vhTest/Mock/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBepaler.cls.xml	(.../BestelEenheidBepaler.cls.xml)	(revision 55877)
+++ vhTest/Mock/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBepaler.cls.xml	(.../BestelEenheidBepaler.cls.xml)	(revision 55878)
@@ -9,7 +9,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>BestelEenheidLosseComponentenInBulkBepaler:DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler.BestelEenheidLosseComponentenInBulkBepaler="",BestelEenheidBulkPerOnderdeelGegroepeerdBepaler:DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler.BestelEenheidBulkPerOnderdeelGegroepeerdBepaler=""</FormalSpec>
+<FormalSpec>BestelEenheidLosseComponentenInBulkBepaler:DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler.BestelEenheidLosseComponentenInBulkBepaler=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
Index: DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBepaler.cls.xml
===================================================================
diff -u -r55877 -r55878
--- DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBepaler.cls.xml	(.../BestelEenheidBepaler.cls.xml)	(revision 55877)
+++ DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBepaler.cls.xml	(.../BestelEenheidBepaler.cls.xml)	(revision 55878)
@@ -8,20 +8,14 @@
 <Private>1</Private>
 </Property>
 
-<Property name="BestelEenheidBulkPerOnderdeelGegroepeerdBepaler">
-<Type>DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler.BestelEenheidBulkPerOnderdeelGegroepeerdBepaler</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>BestelEenheidLosseComponentenInBulkBepaler:DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler.BestelEenheidLosseComponentenInBulkBepaler="",BestelEenheidBulkPerOnderdeelGegroepeerdBepaler:DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler.BestelEenheidBulkPerOnderdeelGegroepeerdBepaler=""</FormalSpec>
+<FormalSpec>BestelEenheidLosseComponentenInBulkBepaler:DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler.BestelEenheidLosseComponentenInBulkBepaler=""</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.BestelEenheidBepaler.BestelEenheidLosseComponentenInBulkBepaler).%New())
-	Set ..BestelEenheidBulkPerOnderdeelGegroepeerdBepaler = $$$Inject(BestelEenheidBulkPerOnderdeelGegroepeerdBepaler, ##class(DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler.BestelEenheidBulkPerOnderdeelGegroepeerdBepaler).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -33,11 +27,11 @@
 <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 {
+		#dim Hoogte As %String = LadeOnderdeel.GeefHoogte()
 		Set BestelEenheid = ..BestelEenheidLosseComponentenInBulkBepaler.GeefBestelEenheidZRFLosseComponentenInBulk(Rol, Hoogte)
 	}