Index: DOM/PM/Maatwerk/LadeInfo/Bodem.cls.xml
===================================================================
diff -u -r29059 -r30280
--- DOM/PM/Maatwerk/LadeInfo/Bodem.cls.xml	(.../Bodem.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/LadeInfo/Bodem.cls.xml	(.../Bodem.cls.xml)	(revision 30280)
@@ -46,18 +46,11 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
-<Method name="GeefBodemPlaten">
+<Method name="GeefPlaten">
 <Abstract>1</Abstract>
 <ReturnType>DOM.PM.Maatwerk.LadeInfo.BodemPlaten</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
 </Method>
 
-<Method name="GeefBodemPlatenIterator">
-<Abstract>1</Abstract>
-<ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
-
 <Method name="GeefFrontKoppelingType">
 <Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>
Index: DOM/PM/Maatwerk/LadeInfo/FrontPlaat.cls.xml
===================================================================
diff -u -r29059 -r30280
--- DOM/PM/Maatwerk/LadeInfo/FrontPlaat.cls.xml	(.../FrontPlaat.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/LadeInfo/FrontPlaat.cls.xml	(.../FrontPlaat.cls.xml)	(revision 30280)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.Maatwerk.LadeInfo.FrontPlaat">
-<Super>TECH.Interface</Super>
+<Super>DOM.PM.Maatwerk.LadeInfo.Plaat</Super>
 
 <Method name="GeefFront">
 <Abstract>1</Abstract>
Index: DOM/PM/Maatwerk/LadeInfo/BodemPlaat.cls.xml
===================================================================
diff -u -r29059 -r30280
--- DOM/PM/Maatwerk/LadeInfo/BodemPlaat.cls.xml	(.../BodemPlaat.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/LadeInfo/BodemPlaat.cls.xml	(.../BodemPlaat.cls.xml)	(revision 30280)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.Maatwerk.LadeInfo.BodemPlaat">
-<Super>TECH.Interface</Super>
+<Super>DOM.PM.Maatwerk.LadeInfo.Plaat</Super>
 
 <Method name="GeefBodem">
 <Abstract>1</Abstract>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Front/WerklijstItemsMaker.cls.xml
===================================================================
diff -u -r29059 -r30280
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Front/WerklijstItemsMaker.cls.xml	(.../WerklijstItemsMaker.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Front/WerklijstItemsMaker.cls.xml	(.../WerklijstItemsMaker.cls.xml)	(revision 30280)
@@ -35,7 +35,7 @@
 	#dim FrontIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Lade.GeefFronten())
 	while FrontIterator.HasNext() {
 		#dim Front As DOM.PM.Maatwerk.LadeInfo.Front = FrontIterator.Next()
-		#dim FrontPlatenIterator As TECH.Iterator = Front.GeefFrontPlatenIterator()
+		#dim FrontPlatenIterator As TECH.Iterator = Front.GeefPlatenIterator()
 		while FrontPlatenIterator.HasNext() {
 			#dim FrontPlaat As DOM.PM.Maatwerk.LadeInfo.FrontPlaat = FrontPlatenIterator.Next()
 			#dim VerwerkingID As %String = ..VerwerkingIDBepaler.BepaalVerwerkingID(FrontPlaat.GeefFront(),ProductieSequentieItem,..WerklijstItemMakerInputData.VerwerkingTeller)
Index: DOM/PM/Maatwerk/LadeInfo/ZijkantPlaat.cls.xml
===================================================================
diff -u -r29059 -r30280
--- DOM/PM/Maatwerk/LadeInfo/ZijkantPlaat.cls.xml	(.../ZijkantPlaat.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/LadeInfo/ZijkantPlaat.cls.xml	(.../ZijkantPlaat.cls.xml)	(revision 30280)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.Maatwerk.LadeInfo.ZijkantPlaat">
 <Abstract>1</Abstract>
-<Super>TECH.Interface</Super>
+<Super>DOM.PM.Maatwerk.LadeInfo.Plaat</Super>
 
 <Method name="GeefZijkant">
 <Abstract>1</Abstract>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Bodem/WerklijstItemsMaker.cls.xml
===================================================================
diff -u -r29059 -r30280
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Bodem/WerklijstItemsMaker.cls.xml	(.../WerklijstItemsMaker.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Bodem/WerklijstItemsMaker.cls.xml	(.../WerklijstItemsMaker.cls.xml)	(revision 30280)
@@ -35,7 +35,7 @@
 	#dim BodemIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Lade.GeefBodems())
 	while BodemIterator.HasNext() {
 		#dim Bodem As DOM.PM.Maatwerk.LadeInfo.Bodem = BodemIterator.Next()
-		#dim BodemPlaatIterator As TECH.Iterator = Bodem.GeefBodemPlatenIterator()
+		#dim BodemPlaatIterator As TECH.Iterator = Bodem.GeefPlatenIterator()
 		While BodemPlaatIterator.HasNext() {
 			#dim BodemPlaat As DOM.PM.Maatwerk.LadeInfo.BodemPlaat = BodemPlaatIterator.Next()
 			#dim VerwerkingID As %String = ..VerwerkingIDBepaler.BepaalVerwerkingID(BodemPlaat.GeefBodem(),ProductieSequentieItem,..WerklijstItemMakerInputData.VerwerkingTeller)
Index: DOM/PM/Maatwerk/LadeInfo/Plaat.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/LadeInfo/Plaat.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/LadeInfo/Plaat.cls.xml	(revision 30280)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.LadeInfo.Plaat">
+<Super>TECH.Interface</Super>
+
+<Method name="GeefKleur">
+<Abstract>1</Abstract>
+<ReturnType>TECH.Enumeration</ReturnType>
+</Method>
+
+<Method name="GeefDecor">
+<Abstract>1</Abstract>
+<ReturnType>DOM.PM.Maatwerk.LadeInfo.enu.TAORDecor</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/LadeInfo/impl/TAX/Bodem.cls.xml
===================================================================
diff -u -r30110 -r30280
--- DOM/PM/Maatwerk/LadeInfo/impl/TAX/Bodem.cls.xml	(.../Bodem.cls.xml)	(revision 30110)
+++ DOM/PM/Maatwerk/LadeInfo/impl/TAX/Bodem.cls.xml	(.../Bodem.cls.xml)	(revision 30280)
@@ -55,7 +55,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefBodemPlaten">
+<Method name="GeefPlaten">
 <ReturnType>DOM.PM.Maatwerk.LadeInfo.BodemPlaten</ReturnType>
 <Implementation><![CDATA[
 	set BodemPlaten = ##class(DOM.PM.Maatwerk.LadeInfo.BodemPlaten).%New()
@@ -65,12 +65,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefBodemPlatenIterator">
-<ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..GeefBodemPlaten())
-]]></Implementation>
-</Method>
-
 <Method name="GeefHalffabItemBodemPlaat">
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem</ReturnType>
Index: DOM/PM/Maatwerk/LadeInfo/LadeOnderdeel.cls.xml
===================================================================
diff -u -r29332 -r30280
--- DOM/PM/Maatwerk/LadeInfo/LadeOnderdeel.cls.xml	(.../LadeOnderdeel.cls.xml)	(revision 29332)
+++ DOM/PM/Maatwerk/LadeInfo/LadeOnderdeel.cls.xml	(.../LadeOnderdeel.cls.xml)	(revision 30280)
@@ -28,6 +28,16 @@
 <Abstract>1</Abstract>
 <ReturnType>%ArrayOfDataTypes</ReturnType>
 </Method>
+
+<Method name="GeefPlatenIterator">
+<Abstract>1</Abstract>
+<ReturnType>TECH.Iterator</ReturnType>
+</Method>
+
+<Method name="GeefPlaten">
+<Abstract>1</Abstract>
+<ReturnType>DOM.PM.Maatwerk.LadeInfo.Platen</ReturnType>
+</Method>
 </Class>
 
 
Index: DOM/PM/Maatwerk/LadeInfo/impl/TAX/Zijkant.cls.xml
===================================================================
diff -u -r30110 -r30280
--- DOM/PM/Maatwerk/LadeInfo/impl/TAX/Zijkant.cls.xml	(.../Zijkant.cls.xml)	(revision 30110)
+++ DOM/PM/Maatwerk/LadeInfo/impl/TAX/Zijkant.cls.xml	(.../Zijkant.cls.xml)	(revision 30280)
@@ -86,7 +86,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefZijkantPlaten">
+<Method name="GeefPlaten">
 <ReturnType>DOM.PM.Maatwerk.LadeInfo.ZijkantPlaten</ReturnType>
 <Implementation><![CDATA[
 	set ZijkantPlaten = ##class(DOM.PM.Maatwerk.LadeInfo.ZijkantPlaten).%New()
@@ -95,12 +95,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefZijkantPlatenIterator">
-<ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..GeefZijkantPlaten())
-]]></Implementation>
-</Method>
-
 <Method name="GeefHalffabItemZijkantPlaat">
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem</ReturnType>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Rug/WerklijstItemsMaker.cls.xml
===================================================================
diff -u -r29059 -r30280
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Rug/WerklijstItemsMaker.cls.xml	(.../WerklijstItemsMaker.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Rug/WerklijstItemsMaker.cls.xml	(.../WerklijstItemsMaker.cls.xml)	(revision 30280)
@@ -35,7 +35,7 @@
 	#dim RugIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Lade.GeefRuggen())
 	while RugIterator.HasNext() {
 		#dim Rug As DOM.PM.Maatwerk.LadeInfo.Rug = RugIterator.Next()
-		#dim RugPlatenIterator As TECH.Iterator = Rug.GeefRugPlatenIterator()
+		#dim RugPlatenIterator As TECH.Iterator = Rug.GeefPlatenIterator()
 		While RugPlatenIterator.HasNext() {
 			#dim RugPlaat As DOM.PM.Maatwerk.LadeInfo.RugPlaat = RugPlatenIterator.Next()
 			#dim VerwerkingID As %String = ..VerwerkingIDBepaler.BepaalVerwerkingID(RugPlaat.GeefRug(),ProductieSequentieItem,..WerklijstItemMakerInputData.VerwerkingTeller)
Index: DOM/PM/Maatwerk/LadeInfo/Zijkant.cls.xml
===================================================================
diff -u -r29059 -r30280
--- DOM/PM/Maatwerk/LadeInfo/Zijkant.cls.xml	(.../Zijkant.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/LadeInfo/Zijkant.cls.xml	(.../Zijkant.cls.xml)	(revision 30280)
@@ -57,6 +57,11 @@
 <ReturnType>DOM.PM.enu.TAORConcept</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
+
+<Method name="GeefPlaten">
+<Abstract>1</Abstract>
+<ReturnType>DOM.PM.Maatwerk.LadeInfo.ZijkantPlaten</ReturnType>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/PM/Maatwerk/LadeInfo/Bodem.cls.xml
===================================================================
diff -u -r29059 -r30280
--- vhTest/Mock/DOM/PM/Maatwerk/LadeInfo/Bodem.cls.xml	(.../Bodem.cls.xml)	(revision 29059)
+++ vhTest/Mock/DOM/PM/Maatwerk/LadeInfo/Bodem.cls.xml	(.../Bodem.cls.xml)	(revision 30280)
@@ -14,18 +14,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefBodemPlaten">
-<ReturnType>DOM.PM.Maatwerk.LadeInfo.BodemPlaten</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBodemPlaten")
-]]></Implementation>
-</Method>
-
-<Method name="GeefBodemPlatenIterator">
-<ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBodemPlatenIterator")
-]]></Implementation>
-</Method>
-
 <Method name="GeefBreedteInMM">
 <ReturnType>TECH.Decimal</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBreedteInMM")
@@ -67,6 +55,12 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKleur")
 ]]></Implementation>
 </Method>
+
+<Method name="GeefPlaten">
+<ReturnType>DOM.PM.Maatwerk.LadeInfo.BodemPlaten</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefPlaten")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/Maatwerk/LadeInfo/impl/TAX/Front.cls.xml
===================================================================
diff -u -r30189 -r30280
--- DOM/PM/Maatwerk/LadeInfo/impl/TAX/Front.cls.xml	(.../Front.cls.xml)	(revision 30189)
+++ DOM/PM/Maatwerk/LadeInfo/impl/TAX/Front.cls.xml	(.../Front.cls.xml)	(revision 30280)
@@ -74,7 +74,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefFrontPlaten">
+<Method name="GeefPlaten">
 <ReturnType>DOM.PM.Maatwerk.LadeInfo.FrontPlaten</ReturnType>
 <Implementation><![CDATA[
 	set FrontPlaten = ##class(DOM.PM.Maatwerk.LadeInfo.FrontPlaten).%New()
Index: DOM/PM/Maatwerk/LadeInfo/impl/Front.cls.xml
===================================================================
diff -u -r29059 -r30280
--- DOM/PM/Maatwerk/LadeInfo/impl/Front.cls.xml	(.../Front.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/LadeInfo/impl/Front.cls.xml	(.../Front.cls.xml)	(revision 30280)
@@ -79,14 +79,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefFrontPlatenIterator">
-<Final>1</Final>
-<ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	quit ##class(TECH.ListIterator).%New(..GeefFrontPlaten())
-]]></Implementation>
-</Method>
-
-<Method name="GeefFrontPlaten">
+<Method name="GeefPlaten">
 <ReturnType>DOM.PM.Maatwerk.LadeInfo.FrontPlaten</ReturnType>
 <Implementation><![CDATA[	quit ##class(DOM.PM.Maatwerk.LadeInfo.FrontPlaten).%New()
 ]]></Implementation>
Index: zTryout/WV/FPV1/DOM/impl/OnderdelenAfmetingenBepaler.cls.xml
===================================================================
diff -u -r29094 -r30280
--- zTryout/WV/FPV1/DOM/impl/OnderdelenAfmetingenBepaler.cls.xml	(.../OnderdelenAfmetingenBepaler.cls.xml)	(revision 29094)
+++ zTryout/WV/FPV1/DOM/impl/OnderdelenAfmetingenBepaler.cls.xml	(.../OnderdelenAfmetingenBepaler.cls.xml)	(revision 30280)
@@ -88,7 +88,7 @@
 	#dim RugIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..Lade.GeefRuggen())
 	while RugIterator.HasNext() {
 		#dim Rug As DOM.PM.Maatwerk.LadeInfo.Rug = RugIterator.Next()
-		#dim RugPlatenIterator As TECH.Iterator = Rug.GeefRugPlatenIterator()
+		#dim RugPlatenIterator As TECH.Iterator = Rug.GeefPlatenIterator()
 		While RugPlatenIterator.HasNext() {
 			#dim RugPlaat As DOM.PM.Maatwerk.LadeInfo.RugPlaat = RugPlatenIterator.Next()
 			Do ..LijstLengtes.Insert(RugPlaat.GeefBreedteInMM())
@@ -104,7 +104,7 @@
 	#dim ZijkantIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..Lade.GeefZijkanten())
 	while ZijkantIterator.HasNext() {
 		#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = ZijkantIterator.Next()
-		#dim ZijkantPlaatIterator As TECH.Iterator = Zijkant.GeefZijkantPlatenIterator()
+		#dim ZijkantPlaatIterator As TECH.Iterator = Zijkant.GeefPlatenIterator()
 		While ZijkantPlaatIterator.HasNext() {
 			#dim ZijkantPlaat As DOM.PM.Maatwerk.LadeInfo.ZijkantPlaat = ZijkantPlaatIterator.Next()
 			Do ..LijstLengtes.Insert(ZijkantPlaat.GeefLengteInMM())
@@ -136,7 +136,7 @@
 	#dim BodemIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..Lade.GeefBodems())
 	While BodemIterator.HasNext() {
 		#dim Bodem As DOM.PM.Maatwerk.LadeInfo.Bodem = BodemIterator.Next()
-		#dim BodemPlaatIterator As TECH.Iterator = Bodem.GeefBodemPlatenIterator()
+		#dim BodemPlaatIterator As TECH.Iterator = Bodem.GeefPlatenIterator()
 		While BodemPlaatIterator.HasNext() {
 			#dim BodemPlaat As DOM.PM.Maatwerk.LadeInfo.BodemPlaat = BodemPlaatIterator.Next()
 			Do ..LijstLengtes.Insert(BodemPlaat.GeefBreedteInMM())
Index: DOM/PM/Maatwerk/LadeInfo/ZijkantPlaten.cls.xml
===================================================================
diff -u -r29059 -r30280
--- DOM/PM/Maatwerk/LadeInfo/ZijkantPlaten.cls.xml	(.../ZijkantPlaten.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/LadeInfo/ZijkantPlaten.cls.xml	(.../ZijkantPlaten.cls.xml)	(revision 30280)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.Maatwerk.LadeInfo.ZijkantPlaten">
-<Super>%ListOfObjects</Super>
+<Super>DOM.PM.Maatwerk.LadeInfo.Platen</Super>
 
 <Parameter name="ELEMENTTYPE">
 <Default>DOM.PM.Maatwerk.LadeInfo.ZijkantPlaat</Default>
Index: DOM/PM/Maatwerk/LadeInfo/RugPlaat.cls.xml
===================================================================
diff -u -r29059 -r30280
--- DOM/PM/Maatwerk/LadeInfo/RugPlaat.cls.xml	(.../RugPlaat.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/LadeInfo/RugPlaat.cls.xml	(.../RugPlaat.cls.xml)	(revision 30280)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.Maatwerk.LadeInfo.RugPlaat">
 <Abstract>1</Abstract>
-<Super>TECH.Interface</Super>
+<Super>DOM.PM.Maatwerk.LadeInfo.Plaat</Super>
 
 <Method name="GeefRug">
 <Abstract>1</Abstract>
Index: DOM/PM/Maatwerk/LadeInfo/BodemPlaten.cls.xml
===================================================================
diff -u -r29059 -r30280
--- DOM/PM/Maatwerk/LadeInfo/BodemPlaten.cls.xml	(.../BodemPlaten.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/LadeInfo/BodemPlaten.cls.xml	(.../BodemPlaten.cls.xml)	(revision 30280)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.Maatwerk.LadeInfo.BodemPlaten">
-<Super>%ListOfObjects</Super>
+<Super>DOM.PM.Maatwerk.LadeInfo.Platen</Super>
 
 <Parameter name="ELEMENTTYPE">
 <Default>DOM.PM.Maatwerk.LadeInfo.BodemPlaat</Default>
Index: DOM/PM/Maatwerk/LadeInfo/RugPlaten.cls.xml
===================================================================
diff -u -r29059 -r30280
--- DOM/PM/Maatwerk/LadeInfo/RugPlaten.cls.xml	(.../RugPlaten.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/LadeInfo/RugPlaten.cls.xml	(.../RugPlaten.cls.xml)	(revision 30280)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.Maatwerk.LadeInfo.RugPlaten">
-<Super>%ListOfObjects</Super>
+<Super>DOM.PM.Maatwerk.LadeInfo.Platen</Super>
 
 <Parameter name="ELEMENTTYPE">
 <Default>DOM.PM.Maatwerk.LadeInfo.RugPlaat</Default>
Index: vhTest/Mock/DOM/PM/Maatwerk/LadeInfo/Rug.cls.xml
===================================================================
diff -u -r29059 -r30280
--- vhTest/Mock/DOM/PM/Maatwerk/LadeInfo/Rug.cls.xml	(.../Rug.cls.xml)	(revision 29059)
+++ vhTest/Mock/DOM/PM/Maatwerk/LadeInfo/Rug.cls.xml	(.../Rug.cls.xml)	(revision 30280)
@@ -56,17 +56,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefRugPlaten">
+<Method name="GeefPlaten">
 <ReturnType>DOM.PM.Maatwerk.LadeInfo.RugPlaten</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefRugPlaten")
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefPlaten")
 ]]></Implementation>
 </Method>
-
-<Method name="GeefRugPlatenIterator">
-<ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefRugPlatenIterator")
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/WerklijstItemsMaker.cls.xml
===================================================================
diff -u -r29059 -r30280
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/WerklijstItemsMaker.cls.xml	(.../WerklijstItemsMaker.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/WerklijstItemsMaker.cls.xml	(.../WerklijstItemsMaker.cls.xml)	(revision 30280)
@@ -36,7 +36,7 @@
 	#dim ZijkantIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Lade.GeefZijkanten())
 	while ZijkantIterator.HasNext() {
 		#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = ZijkantIterator.Next()
-		#dim ZijkantPlaatIterator As TECH.Iterator = Zijkant.GeefZijkantPlatenIterator()
+		#dim ZijkantPlaatIterator As TECH.Iterator = Zijkant.GeefPlatenIterator()
 		While ZijkantPlaatIterator.HasNext() {
 			#dim ZijkantPlaat As DOM.PM.Maatwerk.LadeInfo.ZijkantPlaat = ZijkantPlaatIterator.Next()
 			#dim VerwerkingID As %String = ..VerwerkingIDBepaler.BepaalVerwerkingID(Zijkant,ProductieSequentieItem,1,..WerklijstItemMakerInputData.VerwerkingTeller)
Index: DOM/PM/Maatwerk/LadeInfo/impl/LadeOnderdeel.cls.xml
===================================================================
diff -u -r29903 -r30280
--- DOM/PM/Maatwerk/LadeInfo/impl/LadeOnderdeel.cls.xml	(.../LadeOnderdeel.cls.xml)	(revision 29903)
+++ DOM/PM/Maatwerk/LadeInfo/impl/LadeOnderdeel.cls.xml	(.../LadeOnderdeel.cls.xml)	(revision 30280)
@@ -84,6 +84,13 @@
 	Quit Kleuren
 ]]></Implementation>
 </Method>
+
+<Method name="GeefPlatenIterator">
+<Final>1</Final>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..GeefPlaten())
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/Maatwerk/LadeInfo/Platen.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/LadeInfo/Platen.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/LadeInfo/Platen.cls.xml	(revision 30280)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.LadeInfo.Platen">
+<Super>%ListOfObjects</Super>
+
+<Parameter name="ELEMENTTYPE">
+<Default>DOM.PM.Maatwerk.LadeInfo.Plaat</Default>
+</Parameter>
+
+<Storage name="Custom">
+<Type>%Library.CompleteCustomStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/LadeInfo/FrontPlaten.cls.xml
===================================================================
diff -u -r29059 -r30280
--- DOM/PM/Maatwerk/LadeInfo/FrontPlaten.cls.xml	(.../FrontPlaten.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/LadeInfo/FrontPlaten.cls.xml	(.../FrontPlaten.cls.xml)	(revision 30280)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.Maatwerk.LadeInfo.FrontPlaten">
-<Super>%ListOfObjects</Super>
+<Super>DOM.PM.Maatwerk.LadeInfo.Platen</Super>
 
 <Parameter name="ELEMENTTYPE">
 <Default>DOM.PM.Maatwerk.LadeInfo.FrontPlaat</Default>
Index: DOM/PM/Maatwerk/LadeInfo/Front.cls.xml
===================================================================
diff -u -r29059 -r30280
--- DOM/PM/Maatwerk/LadeInfo/Front.cls.xml	(.../Front.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/LadeInfo/Front.cls.xml	(.../Front.cls.xml)	(revision 30280)
@@ -46,17 +46,11 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
-<Method name="GeefFrontPlaten">
+<Method name="GeefPlaten">
 <Abstract>1</Abstract>
 <ReturnType>DOM.PM.Maatwerk.LadeInfo.FrontPlaten</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
 </Method>
 
-<Method name="GeefFrontPlatenIterator">
-<Abstract>1</Abstract>
-<ReturnType>TECH.Iterator</ReturnType>
-</Method>
-
 <Method name="GeefAantalBodemOndersteuningen">
 <Abstract>1</Abstract>
 <ReturnType>TECH.Integer</ReturnType>
Index: DOM/PM/Maatwerk/LadeInfo/impl/TAX/Rug.cls.xml
===================================================================
diff -u -r30110 -r30280
--- DOM/PM/Maatwerk/LadeInfo/impl/TAX/Rug.cls.xml	(.../Rug.cls.xml)	(revision 30110)
+++ DOM/PM/Maatwerk/LadeInfo/impl/TAX/Rug.cls.xml	(.../Rug.cls.xml)	(revision 30280)
@@ -87,7 +87,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefRugPlaten">
+<Method name="GeefPlaten">
 <ReturnType>DOM.PM.Maatwerk.LadeInfo.RugPlaten</ReturnType>
 <Implementation><![CDATA[
 	set RugPlaten = ##class(DOM.PM.Maatwerk.LadeInfo.RugPlaten).%New()
@@ -97,12 +97,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefRugPlatenIterator">
-<ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..GeefRugPlaten())
-]]></Implementation>
-</Method>
-
 <Method name="GeefHalffabItemRugPlaat">
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem</ReturnType>
Index: vhTest/Mock/DOM/PM/Maatwerk/LadeInfo/Front.cls.xml
===================================================================
diff -u -r29059 -r30280
--- vhTest/Mock/DOM/PM/Maatwerk/LadeInfo/Front.cls.xml	(.../Front.cls.xml)	(revision 29059)
+++ vhTest/Mock/DOM/PM/Maatwerk/LadeInfo/Front.cls.xml	(.../Front.cls.xml)	(revision 30280)
@@ -44,18 +44,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefFrontPlaten">
-<ReturnType>DOM.PM.Maatwerk.LadeInfo.FrontPlaten</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefFrontPlaten")
-]]></Implementation>
-</Method>
-
-<Method name="GeefFrontPlatenIterator">
-<ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefFrontPlatenIterator")
-]]></Implementation>
-</Method>
-
 <Method name="GeefHoogte">
 <ReturnType>DOM.PM.enu.TAORZijkantHoogte</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefHoogte")
@@ -73,6 +61,12 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKleur")
 ]]></Implementation>
 </Method>
+
+<Method name="GeefPlaten">
+<ReturnType>DOM.PM.Maatwerk.LadeInfo.FrontPlaten</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefPlaten")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/Maatwerk/LadeInfo/Rug.cls.xml
===================================================================
diff -u -r29059 -r30280
--- DOM/PM/Maatwerk/LadeInfo/Rug.cls.xml	(.../Rug.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/LadeInfo/Rug.cls.xml	(.../Rug.cls.xml)	(revision 30280)
@@ -51,17 +51,10 @@
 <ReturnType>TECH.Integer</ReturnType>
 </Method>
 
-<Method name="GeefRugPlaten">
+<Method name="GeefPlaten">
 <Abstract>1</Abstract>
 <ReturnType>DOM.PM.Maatwerk.LadeInfo.RugPlaten</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
 </Method>
-
-<Method name="GeefRugPlatenIterator">
-<Abstract>1</Abstract>
-<ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/Maatwerk/impl/LadeInfoAPI/GeefLosseComponent/Test.cls.xml
===================================================================
diff -u -r30114 -r30280
--- vhUnitTest/DOM/PM/Maatwerk/impl/LadeInfoAPI/GeefLosseComponent/Test.cls.xml	(.../Test.cls.xml)	(revision 30114)
+++ vhUnitTest/DOM/PM/Maatwerk/impl/LadeInfoAPI/GeefLosseComponent/Test.cls.xml	(.../Test.cls.xml)	(revision 30280)
@@ -11,7 +11,7 @@
 	#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.GeefPlaten().Count(), 1)
 	do $$$AssertEquals(LosseComponent.GeefKleur(), ..Enum.LadeKleur.NatuurNotenhout)
 	do $$$AssertEquals(LosseComponent.GeefKleuren().GetAt(1), ..Enum.LadeKleur.NatuurNotenhout)
 ]]></Implementation>
@@ -25,7 +25,7 @@
 	#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.GeefPlaten().Count(), 1)
 	do $$$AssertEquals(LosseComponent.GeefKleur(),"NN")
 	do $$$AssertEquals(LosseComponent.GeefKleuren().GetAt(1), ..Enum.LadeKleur.NatuurNotenhout)
 ]]></Implementation>