Index: vhUnitTest/DOM/PM/Maatwerk/impl/LadeInfoAPI/GeefLosseComponent/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/impl/LadeInfoAPI/GeefLosseComponent/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/impl/LadeInfoAPI/GeefLosseComponent/Test.cls.xml	(revision 29928)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.impl.LadeInfoAPI.GeefLosseComponent.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<Method name="Test: GeefLosseComponent type bodem">
+<Implementation><![CDATA[
+	#dim LadeInfoAPI As DOM.PM.Maatwerk.impl.LadeInfoAPI = ##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New()
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(Kenmerken)
+	#dim LosseComponent As DOM.PM.Maatwerk.LadeInfo.Bodem = LadeInfoAPI.GeefLosseComponent(HalffabItemsBoom, Kenmerken, ..Enum.LosseComponent.Bodem)
+	
+	do $$$AssertEquals(LosseComponent.GeefRol(), ..Enum.Rol.Bodem)
+	do $$$AssertEquals(LosseComponent.GeefBodemPlaten().Count(), 1)
+	do $$$AssertEquals(LosseComponent.GeefKleur(), ..Enum.LadeKleur.NatuurNotenhout)
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefLosseComponent type rug">
+<Implementation><![CDATA[
+	#dim LadeInfoAPI As DOM.PM.Maatwerk.impl.LadeInfoAPI = ##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New()
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(Kenmerken)
+	#dim LosseComponent As DOM.PM.Maatwerk.LadeInfo.Rug = LadeInfoAPI.GeefLosseComponent(HalffabItemsBoom, Kenmerken, ..Enum.LosseComponent.Rug)
+	
+	do $$$AssertEquals(LosseComponent.GeefRol(), ..Enum.Rol.Rug)
+	do $$$AssertEquals(LosseComponent.GeefRugPlaten().Count(), 1)
+	;do $$$AssertEquals(LosseComponent.GeefKleur(),"NN")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/impl/LadeInfoAPI.cls.xml
===================================================================
diff -u -r29059 -r29928
--- DOM/PM/Maatwerk/impl/LadeInfoAPI.cls.xml	(.../LadeInfoAPI.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/impl/LadeInfoAPI.cls.xml	(.../LadeInfoAPI.cls.xml)	(revision 29928)
@@ -3,17 +3,46 @@
 <Class name="DOM.PM.Maatwerk.impl.LadeInfoAPI">
 <Super>TECH.RegisteredObject,DOM.PM.Maatwerk.LadeInfoAPI</Super>
 
+<Property name="SamengesteldHalffabItemMaker">
+<Type>DOM.PM.Maatwerk.Calc.HF.impl.SamengesteldHalffabItemMaker</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..SamengesteldHalffabItemMaker = ##class(DOM.PM.Maatwerk.Calc.HF.impl.SamengesteldHalffabItemMaker).%New()
+	quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefLade">
 <FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenLadeKenmerken</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.LadeInfo.Lade</ReturnType>
 <Implementation><![CDATA[	quit ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New(HalffabItemsBoom,IngegevenKenmerken)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLosseComponent">
+<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenLadeKenmerken,LosseComponent:DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel=""</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</ReturnType>
+<Implementation><![CDATA[
+	#dim Rollen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(LosseComponent _ "Plaat")	
+	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = ..SamengesteldHalffabItemMaker.MaakSamengesteldHalffabItem("TAOR_" _ LosseComponent _ "_InMemory", HalffabItemsBoom, Rollen)	
+	
+	quit ##class(TECH.Context).Instance().GeefObjectAPI().New("DOM.PM.Maatwerk.LadeInfo.impl.TAX." _ LosseComponent, "", HalffabItem, IngegevenKenmerken)
+]]></Implementation>
+</Method>
+
 <Method name="GeefBodemInfo">
 <FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem,Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.LadeInfo.Bodem</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem).%New(HalffabItem, Kenmerken)
+<Implementation><![CDATA[
+	// kan vervangen worden door bovenstaande method geefladeonderdeel -> GeefLadeOnderdeel(hfitem, ik, "Bodem")
+	quit ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem).%New(HalffabItem, Kenmerken)
 ]]></Implementation>
 </Method>
 </Class>