Index: vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler/Test.cls.xml	(revision 55546)
@@ -0,0 +1,139 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<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="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 ..HalffabItemsBoom = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#ProductId)
+ 	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor de Zijkant bij LadeHoogte N is de BestelEenheid 24">
+<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).N()
+	
+	Do ..AssertBestelEenheid(IngegevenKenmerken, "24")
+]]></Implementation>
+</Method>
+
+<Method name="AssertBestelEenheid">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,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)
+	
+	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)
+]]></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 vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = ##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[	Quit ..HalffabItemsBoom
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler.cls.xml
===================================================================
diff -u -r55523 -r55546
--- DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler.cls.xml	(.../BestelEenheidLosseComponentenInBulkBepaler.cls.xml)	(revision 55523)
+++ DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler.cls.xml	(.../BestelEenheidLosseComponentenInBulkBepaler.cls.xml)	(revision 55546)
@@ -31,7 +31,7 @@
 <FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>TECH.Integer</ReturnType>
 <Implementation><![CDATA[
-	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel  = ..MaakLosseComponent(Kenmerken)
+	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ..MaakLosseComponent(Kenmerken)
 	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = LadeOnderdeel.GeefRol()
 	
 	Quit ..GeefBestelEenheidVoorRol(Kenmerken, Rol)