Index: vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/Plaat/Factory/Test.cls.xml
===================================================================
diff -u -r36783 -r36790
--- vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/Plaat/Factory/Test.cls.xml	(.../Test.cls.xml)	(revision 36783)
+++ vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/Plaat/Factory/Test.cls.xml	(.../Test.cls.xml)	(revision 36790)
@@ -1,21 +1,74 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.LadeInfo.impl.Plaat.Factory.Test">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
 
-<Method name="Test: GeefBodemPlaten">
+<Method name="Test: ObjectApi wordt opgeroepen">
 <Implementation><![CDATA[
-	#dim DummyRol As TECH.String = "DummyRol"
-	#dim BodemStub As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Bodem = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Bodem).%New()
+	#dim Rol As DOM.PM.Maatwerk.Calc.HF.enu.TAORRol = ..Enum.Rol.BodemPlaat
 	
-	#dim HalffabItemStub As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("", DummyRol)
-	Do HalffabItemStub.IndienMethodCall("GeefHalffabItem", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).BodemPlaat())
+	#dim ObjectApiMock As vhTest.Mock.TECH.Object.ObjectAPI = ##class(vhTest.Mock.TECH.Object.ObjectAPI).%New()
+	Do ObjectApiMock.VerwachtMethodCall("New", "DOM.PM.Maatwerk.LadeInfo.impl.TAX.BodemPlaat", "", "", "")
+	
+	#dim HalffabItemStub As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("", "DummyRol")
+	Do HalffabItemStub.IndienMethodCall("GeefHalffabItem", Rol)
+	
+	#dim PlaatFactory As DOM.PM.Maatwerk.LadeInfo.impl.Plaat.Factory = ##class(DOM.PM.Maatwerk.LadeInfo.impl.Plaat.Factory).%New(ObjectApiMock)
+	Do PlaatFactory.GeefPlaten(Rol, "", HalffabItemStub, "")
+	
+	Do ObjectApiMock.Verifieer()
+]]></Implementation>
+</Method>
 
+<Method name="Test: GeefPlaten voor Bodem">
+<Implementation><![CDATA[
+	#dim HalffabItemStub As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("", "DummyRol")
+	Do HalffabItemStub.IndienMethodCall("GeefHalffabItem", ..Enum.Rol.BodemPlaat)
+	
+	Do ..AssertPlaten(..Enum.Rol.BodemPlaat, HalffabItemStub, "DOM.PM.Maatwerk.LadeInfo.impl.TAX.BodemPlaat")
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefPlaten voor Front">
+<Implementation><![CDATA[
+	#dim HalffabItemStub As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("", "DummyRol")
+	Do HalffabItemStub.IndienMethodCall("GeefHalffabItem", ..Enum.Rol.FrontPlaat)
+	
+	Do ..AssertPlaten(..Enum.Rol.FrontPlaat, HalffabItemStub, "DOM.PM.Maatwerk.LadeInfo.impl.TAX.FrontPlaat")
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefPlaten voor Rug">
+<Implementation><![CDATA[
+	#dim HalffabItemStub As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("", "DummyRol")
+	Do HalffabItemStub.IndienMethodCall("GeefHalffabItem", ..Enum.Rol.RugPlaat)
+	
+	Do ..AssertPlaten(..Enum.Rol.RugPlaat, HalffabItemStub, "DOM.PM.Maatwerk.LadeInfo.impl.TAX.RugPlaat")
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefPlaten voor Zijkant">
+<Implementation><![CDATA[
+	#dim KindHalffabItemStub As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("", "DummyRol")
+	Do KindHalffabItemStub.IndienMethodCall("GeefKindIterator").DanReturn(##class(TECH.ListIterator).%New(##class(%ListOfDataTypes).%New()))
+	
+	#dim HalffabItemStub As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("", "DummyRol")
+	Do HalffabItemStub.IndienMethodCall("GeefHalffabItem", ..Enum.Rol.ZijkantPlaat).DanReturn(KindHalffabItemStub)
+	
+	Do ..AssertPlaten(..Enum.Rol.ZijkantPlaat, HalffabItemStub, "DOM.PM.Maatwerk.LadeInfo.impl.TAX.ZijkantPlaat")
+]]></Implementation>
+</Method>
+
+<Method name="AssertPlaten">
+<FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol,HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,VerwachteKlasseNaam:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim LadeOnderdeelStub As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel).%New()
 	#dim PlaatFactory As DOM.PM.Maatwerk.LadeInfo.impl.Plaat.Factory = ##class(DOM.PM.Maatwerk.LadeInfo.impl.Plaat.Factory).%New()
-	#dim Platen As DOM.PM.Maatwerk.LadeInfo.BodemPlaten = PlaatFactory.GeefBodemPlaten(BodemStub, HalffabItemStub, "")
+	#dim Platen As DOM.PM.Maatwerk.LadeInfo.Platen = PlaatFactory.GeefPlaten(Rol, LadeOnderdeelStub, HalffabItem, "")
 	
 	Do $$$AssertEquals(Platen.Count(), 1)
-	Do $$$AssertEquals(Platen.GetAt(1).%ClassName($$$True), "DOM.PM.Maatwerk.LadeInfo.impl.TAX.BodemPlaat")
+	Do $$$AssertEquals(Platen.GetAt(1).%ClassName($$$True), VerwachteKlasseNaam)
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/Maatwerk/LadeInfo/impl/Plaat/Factory.cls.xml
===================================================================
diff -u -r36783 -r36790
--- DOM/PM/Maatwerk/LadeInfo/impl/Plaat/Factory.cls.xml	(.../Factory.cls.xml)	(revision 36783)
+++ DOM/PM/Maatwerk/LadeInfo/impl/Plaat/Factory.cls.xml	(.../Factory.cls.xml)	(revision 36790)
@@ -3,15 +3,48 @@
 <Class name="DOM.PM.Maatwerk.LadeInfo.impl.Plaat.Factory">
 <Super>DOM.PM.Maatwerk.TAX.impl.Base</Super>
 
+<Property name="ObjectApi">
+<Type>TECH.Object.ObjectAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
+<FormalSpec>ObjectApi:TECH.Object.ObjectAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[	Quit $$$OK
+<Implementation><![CDATA[
+	Set ..ObjectApi = $$$Inject(ObjectApi, ##class(TECH.Object.impl.ObjectAPI).%New())
+	
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPlaten">
+<FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol,LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,HalffabItem:DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem,Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Implementation><![CDATA[
+	#dim Platen As DOM.PM.Maatwerk.LadeInfo.Platen = ##class(DOM.PM.Maatwerk.LadeInfo.Platen).%New()
+	
+	Do Platen.Insert(..GeefPlaat(Rol, LadeOnderdeel, HalffabItem, Kenmerken))
+	
+	Quit Platen
+]]></Implementation>
+</Method>
+
+<Method name="GeefPlaat">
+<FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol,LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,HalffabItem:DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem,Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.LadeInfo.Plaat</ReturnType>
+<Implementation><![CDATA[
+	#dim KlasseNaam As TECH.String = "DOM.PM.Maatwerk.LadeInfo.impl.TAX." _ Rol
+	#dim PlaatHalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItem.GeefHalffabItem(Rol)
+	#dim Plaat As DOM.PM.Maatwerk.LadeInfo.Plaat = ..ObjectApi.New(KlasseNaam, LadeOnderdeel, PlaatHalffabItem, Kenmerken)
+	
+	Quit Plaat
+]]></Implementation>
+</Method>
+
 <Method name="GeefBodemPlaten">
 <FormalSpec>Bodem:DOM.PM.Maatwerk.LadeInfo.Bodem,HalffabItem:DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem,Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.LadeInfo.BodemPlaten</ReturnType>
@@ -25,6 +58,48 @@
 	Quit BodemPlaten
 ]]></Implementation>
 </Method>
+
+<Method name="GeefFrontPlaten">
+<FormalSpec>Front:DOM.PM.Maatwerk.LadeInfo.Front,HalffabItem:DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem,Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.LadeInfo.FrontPlaten</ReturnType>
+<Implementation><![CDATA[
+	#dim FrontPlaten As DOM.PM.Maatwerk.LadeInfo.FrontPlaten = ##class(DOM.PM.Maatwerk.LadeInfo.FrontPlaten).%New()
+	#dim FrontPlaatHalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItem.GeefHalffabItem(..Enum.Rol.FrontPlaat)
+	#dim FrontPlaat As DOM.PM.Maatwerk.LadeInfo.FrontPlaat = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.FrontPlaat).%New(Front, FrontPlaatHalffabItem, Kenmerken)
+	
+	Do FrontPlaten.Insert(FrontPlaat)
+	
+	Quit FrontPlaten
+]]></Implementation>
+</Method>
+
+<Method name="GeefRugPlaten">
+<FormalSpec>Rug:DOM.PM.Maatwerk.LadeInfo.Rug,HalffabItem:DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem,Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.LadeInfo.RugPlaten</ReturnType>
+<Implementation><![CDATA[
+	#dim RugPlaten As DOM.PM.Maatwerk.LadeInfo.RugPlaten = ##class(DOM.PM.Maatwerk.LadeInfo.RugPlaten).%New()
+	#dim RugPlaatHalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItem.GeefHalffabItem(..Enum.Rol.RugPlaat)
+	#dim RugPlaat As DOM.PM.Maatwerk.LadeInfo.RugPlaat = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.RugPlaat).%New(Rug, RugPlaatHalffabItem, Kenmerken)
+	
+	Do RugPlaten.Insert(RugPlaat)
+	
+	Quit RugPlaten
+]]></Implementation>
+</Method>
+
+<Method name="GeefZijkantPlaten">
+<FormalSpec>Zijkant:DOM.PM.Maatwerk.LadeInfo.Zijkant,HalffabItem:DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem,Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.LadeInfo.ZijkantPlaten</ReturnType>
+<Implementation><![CDATA[
+	#dim ZijkantPlaten As DOM.PM.Maatwerk.LadeInfo.ZijkantPlaten = ##class(DOM.PM.Maatwerk.LadeInfo.ZijkantPlaten).%New()
+	#dim ZijkantPlaatHalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItem.GeefHalffabItem(..Enum.Rol.ZijkantPlaat)
+	#dim ZijkantPlaat As DOM.PM.Maatwerk.LadeInfo.ZijkantPlaat = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.ZijkantPlaat).%New(Zijkant, ZijkantPlaatHalffabItem, Kenmerken)
+	
+	Do ZijkantPlaten.Insert(ZijkantPlaat)
+	
+	Quit ZijkantPlaten
+]]></Implementation>
+</Method>
 </Class>