Index: DOM/PM/Maatwerk/LadeInfo/impl/TAX/Front.cls.xml
===================================================================
diff -u -r34400 -r36791
--- DOM/PM/Maatwerk/LadeInfo/impl/TAX/Front.cls.xml	(.../Front.cls.xml)	(revision 34400)
+++ DOM/PM/Maatwerk/LadeInfo/impl/TAX/Front.cls.xml	(.../Front.cls.xml)	(revision 36791)
@@ -18,18 +18,6 @@
 <Private>1</Private>
 </Property>
 
-<Method name="%OnNew">
-<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,HalffabItem:DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem,Kenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,ProductAPI:DOM.PM.ProductAPI=""</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-	Do ##super(Lade, HalffabItem, Kenmerken, ProductAPI)
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
 <Method name="GeefBreedteInMM">
 <ReturnType>TECH.Decimal</ReturnType>
 <Implementation><![CDATA[
@@ -65,22 +53,10 @@
 	do Kleuren.SetAt(..GeefKleur(), "1")
 	do Kleuren.SetAt(..HalffabItem.GeefHalffabItem(..TAORRol.KantenBand).GeefHalffab().LadeKleur, "3")
 	
-	quit Kleuren
-	
-	quit Kleuren
+	Quit Kleuren
 ]]></Implementation>
 </Method>
 
-<Method name="GeefPlaten">
-<ReturnType>DOM.PM.Maatwerk.LadeInfo.FrontPlaten</ReturnType>
-<Implementation><![CDATA[
-	set FrontPlaten = ##class(DOM.PM.Maatwerk.LadeInfo.FrontPlaten).%New()
-	#dim HalffabItemFrontPlaat As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ..HalffabItem.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).FrontPlaat())
-	do FrontPlaten.Insert(##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.FrontPlaat).%New($this,HalffabItemFrontPlaat,..Kenmerken))
-	quit FrontPlaten
-]]></Implementation>
-</Method>
-
 <Method name="GeefAantalBodemOndersteuningen">
 <ReturnType>TECH.Integer</ReturnType>
 <Implementation><![CDATA[	quit ##class(DOM.PM.Maatwerk.TAX.impl.BodemOndersteuningAantalBepaler).%New().Bepaal(..Kenmerken)
@@ -99,17 +75,10 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefHalffabItemFrontPlaat">
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem</ReturnType>
-<Implementation><![CDATA[	Quit ..HalffabItem.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).FrontPlaat())
-]]></Implementation>
-</Method>
-
 <Method name="GeefFrontPlaat">
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.LadeInfo.impl.TAX.FrontPlaat</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.FrontPlaat).%New($this,..GeefHalffabItemFrontPlaat(),..Kenmerken)
+<Implementation><![CDATA[	Quit ..GeefPlaten().GetAt(1)
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/Maatwerk/LadeInfo/impl/TAX/Zijkant.cls.xml
===================================================================
diff -u -r36639 -r36791
--- DOM/PM/Maatwerk/LadeInfo/impl/TAX/Zijkant.cls.xml	(.../Zijkant.cls.xml)	(revision 36639)
+++ DOM/PM/Maatwerk/LadeInfo/impl/TAX/Zijkant.cls.xml	(.../Zijkant.cls.xml)	(revision 36791)
@@ -23,19 +23,6 @@
 <Private>1</Private>
 </Property>
 
-<Method name="%OnNew">
-<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,HalffabItem:DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem,Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,ProductAPI:DOM.PM.ProductAPI="",GewichtBepaler:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel.GewichtBepaler=""</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-	Do ##super(Lade, HalffabItem, Kenmerken, ProductAPI, GewichtBepaler)
-	
-	quit $$$OK
-]]></Implementation>
-</Method>
-
 <Method name="GeefDikteInMM">
 <ReturnType>TECH.Decimal</ReturnType>
 <Implementation><![CDATA[	quit ..GeefZijkantPlaat().GeefDikteInMM()
@@ -112,21 +99,10 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefPlaten">
-<ReturnType>DOM.PM.Maatwerk.LadeInfo.ZijkantPlaten</ReturnType>
-<Implementation><![CDATA[
-	#dim ZijkantPlaten As DOM.PM.Maatwerk.LadeInfo.ZijkantPlaten = ##class(DOM.PM.Maatwerk.LadeInfo.ZijkantPlaten).%New()
-	
-	do ZijkantPlaten.Insert(..GeefZijkantPlaat())
-	
-	quit ZijkantPlaten
-]]></Implementation>
-</Method>
-
 <Method name="GeefZijkantPlaat">
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.LadeInfo.impl.TAX.ZijkantPlaat</ReturnType>
-<Implementation><![CDATA[	quit ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.ZijkantPlaat).%New($this, ..HalffabItem, ..Kenmerken)
+<Implementation><![CDATA[	Quit ..GeefPlaten().GetAt(1)
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/Maatwerk/LadeInfo/impl/LadeOnderdeel.cls.xml
===================================================================
diff -u -r36657 -r36791
--- DOM/PM/Maatwerk/LadeInfo/impl/LadeOnderdeel.cls.xml	(.../LadeOnderdeel.cls.xml)	(revision 36657)
+++ DOM/PM/Maatwerk/LadeInfo/impl/LadeOnderdeel.cls.xml	(.../LadeOnderdeel.cls.xml)	(revision 36791)
@@ -29,13 +29,13 @@
 <Private>1</Private>
 </Property>
 
-<Property name="GewichtBepaler">
-<Type>DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel.GewichtBepaler</Type>
+<Property name="PlaatFactory">
+<Type>DOM.PM.Maatwerk.LadeInfo.impl.Plaat.Factory</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,ProductAPI:DOM.PM.ProductAPI,GewichtBepaler:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel.GewichtBepaler=""</FormalSpec>
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,ProductAPI:DOM.PM.ProductAPI,PlaatFactory:DOM.PM.Maatwerk.LadeInfo.impl.Plaat.Factory=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -46,7 +46,7 @@
 	Set ..Kenmerken = Kenmerken
 	Set ..ProductAPI = $$$Implementation(ProductAPI, ##class(DOM.DomeinContext).Instance().GeefProductAPI())
 	Set ..PlaatAfwerkingBepaler = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.PlaatAfwerkingBepaler).%New()
-	Set ..GewichtBepaler = GewichtBepaler
+	Set ..PlaatFactory = $$$Inject(PlaatFactory, ##class(DOM.PM.Maatwerk.LadeInfo.impl.Plaat.Factory).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -113,6 +113,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPlaten">
+<ReturnType>DOM.PM.Maatwerk.LadeInfo.Platen</ReturnType>
+<Implementation><![CDATA[	Quit ..PlaatFactory.GeefPlaten(..GeefRol(), $this, ..HalffabItem, ..Kenmerken)
+]]></Implementation>
+</Method>
+
 <Method name="GeefPlatenIterator">
 <Final>1</Final>
 <ReturnType>TECH.Iterator</ReturnType>
@@ -125,18 +131,6 @@
 <Implementation><![CDATA[	Quit ..Lade.GeefConcept()
 ]]></Implementation>
 </Method>
-
-<Method name="GeefGewicht">
-<ReturnType>TECH.Weight</ReturnType>
-<Implementation><![CDATA[	Quit ..GewichtBepaler.GeefGewicht($this)
-]]></Implementation>
-</Method>
-
-<Method name="GeefTolerantie">
-<ReturnType>TECH.Weight</ReturnType>
-<Implementation><![CDATA[	Quit 1
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: DOM/PM/Maatwerk/LadeInfo/impl/TAX/Bodem.cls.xml
===================================================================
diff -u -r36743 -r36791
--- DOM/PM/Maatwerk/LadeInfo/impl/TAX/Bodem.cls.xml	(.../Bodem.cls.xml)	(revision 36743)
+++ DOM/PM/Maatwerk/LadeInfo/impl/TAX/Bodem.cls.xml	(.../Bodem.cls.xml)	(revision 36791)
@@ -8,19 +8,6 @@
 <Private>1</Private>
 </Property>
 
-<Method name="%OnNew">
-<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,ProductAPI:DOM.PM.ProductAPI,GewichtBepaler:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel.GewichtBepaler=""</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-	Do ##super(.Lade, .HalffabItem, .Kenmerken, .ProductAPI, $$$Inject(GewichtBepaler, ##class(DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel.BodemGewichtBepaler).%New()))
-	
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
 <Method name="GeefDiepteInMM">
 <ReturnType>TECH.Decimal</ReturnType>
 <Implementation><![CDATA[	Quit ..GeefBodemPlaat().GeefDiepteInMM()
@@ -50,38 +37,22 @@
 <Implementation><![CDATA[
 	#dim Kleuren As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
 	
-	do Kleuren.SetAt(..GeefKleur(), 1)
+	Do Kleuren.SetAt(..GeefKleur(), 1)
 	
-	quit Kleuren
+	Quit Kleuren
 ]]></Implementation>
 </Method>
 
 <Method name="Accept">
 <FormalSpec>Visitor:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeelVisitor</FormalSpec>
-<Implementation><![CDATA[	do Visitor.VerwerkBodem($this)
+<Implementation><![CDATA[	Do Visitor.VerwerkBodem($this)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefPlaten">
-<ReturnType>DOM.PM.Maatwerk.LadeInfo.BodemPlaten</ReturnType>
-<Implementation><![CDATA[
-	set BodemPlaten = ##class(DOM.PM.Maatwerk.LadeInfo.BodemPlaten).%New()
-	do BodemPlaten.Insert(##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.BodemPlaat).%New($this,..GeefHalffabItemBodemPlaat(),..Kenmerken))
-	quit BodemPlaten
-]]></Implementation>
-</Method>
-
-<Method name="GeefHalffabItemBodemPlaat">
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem</ReturnType>
-<Implementation><![CDATA[	Quit ..HalffabItem.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).BodemPlaat())
-]]></Implementation>
-</Method>
-
 <Method name="GeefBodemPlaat">
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.LadeInfo.impl.TAX.BodemPlaat</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.BodemPlaat).%New($this,..GeefHalffabItemBodemPlaat(),..Kenmerken)
+<Implementation><![CDATA[	Quit ..GeefPlaten().GetAt(1)
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/Maatwerk/LadeInfo/impl/TAX/Rug.cls.xml
===================================================================
diff -u -r36750 -r36791
--- DOM/PM/Maatwerk/LadeInfo/impl/TAX/Rug.cls.xml	(.../Rug.cls.xml)	(revision 36750)
+++ DOM/PM/Maatwerk/LadeInfo/impl/TAX/Rug.cls.xml	(.../Rug.cls.xml)	(revision 36791)
@@ -83,29 +83,10 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefPlaten">
-<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 HalffabItemRugPlaat As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ..GeefHalffabItemRugPlaat()
-	
-	do RugPlaten.Insert(##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.RugPlaat).%New($this, HalffabItemRugPlaat, ..Kenmerken))
-	
-	quit RugPlaten
-]]></Implementation>
-</Method>
-
-<Method name="GeefHalffabItemRugPlaat">
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem</ReturnType>
-<Implementation><![CDATA[	quit ..HalffabItem.GeefHalffabItem(..TAORRol.RugPlaat)
-]]></Implementation>
-</Method>
-
 <Method name="GeefRugPlaat">
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.LadeInfo.impl.TAX.RugPlaat</ReturnType>
-<Implementation><![CDATA[	quit ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.RugPlaat).%New($this, ..GeefHalffabItemRugPlaat(), ..Kenmerken)
+<Implementation><![CDATA[	Quit ..GeefPlaten().GetAt(1)
 ]]></Implementation>
 </Method>
 </Class>