Index: DOM/PM/Maatwerk/impl/LadeInfoAPI.cls.xml
===================================================================
diff -u -r29928 -r30114
--- DOM/PM/Maatwerk/impl/LadeInfoAPI.cls.xml	(.../LadeInfoAPI.cls.xml)	(revision 29928)
+++ DOM/PM/Maatwerk/impl/LadeInfoAPI.cls.xml	(.../LadeInfoAPI.cls.xml)	(revision 30114)
@@ -3,22 +3,6 @@
 <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>
@@ -27,13 +11,12 @@
 </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>
+<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenLadeKenmerken,LosseComponent:DOM.PM.Maatwerk.Lade.enu.LosseComponent</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)
+	set LosseComponentFactory = ##class(DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory).%New()
+	set LosseComponent = LosseComponentFactory.MaakLosseComponent(HalffabItemsBoom,IngegevenKenmerken,LosseComponent)
+	quit LosseComponent
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/DOM/PM/Maatwerk/impl/LadeInfoAPI/GeefLosseComponent/Test.cls.xml
===================================================================
diff -u -r29928 -r30114
--- vhUnitTest/DOM/PM/Maatwerk/impl/LadeInfoAPI/GeefLosseComponent/Test.cls.xml	(.../Test.cls.xml)	(revision 29928)
+++ vhUnitTest/DOM/PM/Maatwerk/impl/LadeInfoAPI/GeefLosseComponent/Test.cls.xml	(.../Test.cls.xml)	(revision 30114)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.DOM.PM.Maatwerk.impl.LadeInfoAPI.GeefLosseComponent.Test">
 <Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
 
-<Method name="Test: GeefLosseComponent type bodem">
+<Method name="Test: 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()
@@ -13,10 +13,11 @@
 	do $$$AssertEquals(LosseComponent.GeefRol(), ..Enum.Rol.Bodem)
 	do $$$AssertEquals(LosseComponent.GeefBodemPlaten().Count(), 1)
 	do $$$AssertEquals(LosseComponent.GeefKleur(), ..Enum.LadeKleur.NatuurNotenhout)
+	do $$$AssertEquals(LosseComponent.GeefKleuren().GetAt(1), ..Enum.LadeKleur.NatuurNotenhout)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: GeefLosseComponent type rug">
+<Method name="Test: 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()
@@ -25,9 +26,79 @@
 	
 	do $$$AssertEquals(LosseComponent.GeefRol(), ..Enum.Rol.Rug)
 	do $$$AssertEquals(LosseComponent.GeefRugPlaten().Count(), 1)
-	;do $$$AssertEquals(LosseComponent.GeefKleur(),"NN")
+	do $$$AssertEquals(LosseComponent.GeefKleur(),"NN")
+	do $$$AssertEquals(LosseComponent.GeefKleuren().GetAt(1), ..Enum.LadeKleur.NatuurNotenhout)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Type zijkant links">
+<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.Zijkant = LadeInfoAPI.GeefLosseComponent(HalffabItemsBoom, Kenmerken, ..Enum.LosseComponent.ZijkantLinks)
+	
+	do $$$AssertEquals(LosseComponent.GeefRol(), "Zijkant")
+	do $$$AssertEquals(LosseComponent.GeefZijkantRol(),"Links")
+	do $$$AssertEquals(LosseComponent.GeefKleur(),"NN")
+	do $$$AssertEquals(LosseComponent.GeefKleuren().GetAt(1), ..Enum.LadeKleur.NatuurNotenhout)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Type zijkant Rechts">
+<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.Zijkant = LadeInfoAPI.GeefLosseComponent(HalffabItemsBoom, Kenmerken, ..Enum.LosseComponent.ZijkantRechts)
+	
+	do $$$AssertEquals(LosseComponent.GeefRol(), "Zijkant")
+	do $$$AssertEquals(LosseComponent.GeefZijkantRol(),"Rechts")
+	do $$$AssertEquals(LosseComponent.GeefKleur(),"NN")
+	do $$$AssertEquals(LosseComponent.GeefKleuren().GetAt(1), ..Enum.LadeKleur.NatuurNotenhout)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Type zijkant Rechts voor productie wijze gelijk aan zijkantlinks">
+<Implementation><![CDATA[
+	#dim OmschrijvingSubStrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("HalffabItems boom bevat geen informatie over Zijkant.Rechts")
+	#dim VerwachteExceptie = ##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",OmschrijvingSubStrings)
+	Do ..ZetVerwachteExceptie(VerwachteExceptie)
+	
+	#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).StandaardLadeVerpaktIn(..Enum.VerpakkingType.LosseComponentenInBulk)
+	set Kenmerken.ProductieWijze = ..Enum.ProductieWijze.ZijkantLinks
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(Kenmerken)
+		
+	#dim LosseComponent As DOM.PM.Maatwerk.LadeInfo.Zijkant = LadeInfoAPI.GeefLosseComponent(HalffabItemsBoom, Kenmerken, ..Enum.LosseComponent.ZijkantRechts)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Type front">
+<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).StandaardBinnenlade()
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(Kenmerken)
+	#dim LosseComponent As DOM.PM.Maatwerk.LadeInfo.Front = LadeInfoAPI.GeefLosseComponent(HalffabItemsBoom, Kenmerken, ..Enum.LosseComponent.Front)
+	
+	do $$$AssertEquals(LosseComponent.GeefRol(), "Front")
+	do $$$AssertEquals(LosseComponent.GeefKleur(),"NN")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Exceptie wordt geraised indien front gevraagd wordt voor niet binnenlades">
+<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 Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("HalffabItems boom bevat geen informatie over Front")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidInputException,Substrings))
+	
+	#dim LosseComponent As DOM.PM.Maatwerk.LadeInfo.Front = LadeInfoAPI.GeefLosseComponent(HalffabItemsBoom, Kenmerken, ..Enum.LosseComponent.Front)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/Maatwerk/LadeInfo/impl/LosseComponentFactoryTAX.cls.xml
===================================================================
diff -u -r30026 -r30114
--- DOM/PM/Maatwerk/LadeInfo/impl/LosseComponentFactoryTAX.cls.xml	(.../LosseComponentFactoryTAX.cls.xml)	(revision 30026)
+++ DOM/PM/Maatwerk/LadeInfo/impl/LosseComponentFactoryTAX.cls.xml	(.../LosseComponentFactoryTAX.cls.xml)	(revision 30114)
@@ -8,13 +8,19 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ObjectAPI">
+<Type>TECH.Object.ObjectAPI</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()
+	set ..ObjectAPI = ##class(TECH.Context).Instance().GeefObjectAPI()
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -25,21 +31,34 @@
 <Implementation><![CDATA[
 	#dim LosseComponentCategorie As %String = $piece(LosseComponent, ".")
 	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem
+	#dim Rol As TECH.String
 	
 	if (LosseComponentCategorie = "Zijkant") {
-		#dim Rol As %String = $replace(LosseComponent, ".", "")
-		
-		if (HalffabItemsBoom.BevatRol(Rol)) {
-			set HalffabItem = HalffabItemsBoom.GeefHalffabItem(Rol)
-		}
+		set Rol = $replace(LosseComponent, ".", "")
+		do ..ValideerRol(Rol, HalffabItemsBoom, LosseComponent)
+		set HalffabItem = HalffabItemsBoom.GeefHalffabItem(Rol)
 	} else {
-		#dim Rollen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(LosseComponentCategorie _ "Plaat")	
+		set Rol = LosseComponentCategorie _ "Plaat"
+		do ..ValideerRol(Rol, HalffabItemsBoom, LosseComponent)
+		#dim Rollen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(Rol)	
 		set HalffabItem = ..SamengesteldHalffabItemMaker.MaakSamengesteldHalffabItem("TAOR_" _ LosseComponentCategorie _ "_InMemory", HalffabItemsBoom, Rollen)	
 	}
 	
-	quit ##class(TECH.Context).Instance().GeefObjectAPI().New("DOM.PM.Maatwerk.LadeInfo.impl.TAX." _ LosseComponentCategorie, "", HalffabItem, IngegevenKenmerken)
+	#dim Lade As DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New(HalffabItemsBoom, IngegevenKenmerken)
+	
+	quit ..ObjectAPI.New("DOM.PM.Maatwerk.LadeInfo.impl.TAX." _ LosseComponentCategorie, Lade, HalffabItem, IngegevenKenmerken)
 ]]></Implementation>
 </Method>
+
+<Method name="ValideerRol">
+<FormalSpec>Rol:TECH.String,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,LosseComponent:DOM.PM.Maatwerk.Lade.enu.LosseComponent</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	if $$$Not(HalffabItemsBoom.BevatRol(Rol)) {
+		do ##class(TECH.Exceptions.InvalidInputException).Throw("HalffabItems boom bevat geen informatie over " _ LosseComponent)	
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/Maatwerk/LadeInfoAPI.cls.xml
===================================================================
diff -u -r29059 -r30114
--- DOM/PM/Maatwerk/LadeInfoAPI.cls.xml	(.../LadeInfoAPI.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/LadeInfoAPI.cls.xml	(.../LadeInfoAPI.cls.xml)	(revision 30114)
@@ -10,6 +10,12 @@
 <ReturnType>DOM.PM.Maatwerk.LadeInfo.Lade</ReturnType>
 </Method>
 
+<Method name="GeefLosseComponent">
+<Abstract>1</Abstract>
+<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenLadeKenmerken,LosseComponent:DOM.PM.Maatwerk.Lade.enu.LosseComponent=""</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</ReturnType>
+</Method>
+
 <Method name="GeefBodemInfo">
 <Abstract>1</Abstract>
 <FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem,Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
Index: vhTest/Mock/DOM/PM/Maatwerk/LadeInfoAPI.cls.xml
===================================================================
diff -u -r29059 -r30114
--- vhTest/Mock/DOM/PM/Maatwerk/LadeInfoAPI.cls.xml	(.../LadeInfoAPI.cls.xml)	(revision 29059)
+++ vhTest/Mock/DOM/PM/Maatwerk/LadeInfoAPI.cls.xml	(.../LadeInfoAPI.cls.xml)	(revision 30114)
@@ -30,6 +30,13 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLade",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.Lade.enu.LosseComponent=""</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLosseComponent",HalffabItemsBoom,IngegevenKenmerken,LosseComponent)
+]]></Implementation>
+</Method>
 </Class>