Index: APPS/PM/Maatwerk/MaatwerkModel/Modellen/TaorboxModel/Rollen/RugPlaat.cls.xml
===================================================================
diff -u -r29838 -r29839
--- APPS/PM/Maatwerk/MaatwerkModel/Modellen/TaorboxModel/Rollen/RugPlaat.cls.xml	(.../RugPlaat.cls.xml)	(revision 29838)
+++ APPS/PM/Maatwerk/MaatwerkModel/Modellen/TaorboxModel/Rollen/RugPlaat.cls.xml	(.../RugPlaat.cls.xml)	(revision 29839)
@@ -6,24 +6,36 @@
 <Method name="GeefRol">
 <ReturnType>APPS.PM.Maatwerk.MaatwerkModel.dto.Rol</ReturnType>
 <Implementation><![CDATA[
-	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("RugPlaat","Rugplaat")
-	Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New()
-	Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New()
-	Set BewerkingInfo.Aftrek = 42
-	Set BewerkingInfo.IngegevenKenmerk = ..TaorboxModel.GeefIngegevenKenmerkViaNaam("InterneBreedte")
-	Do BuilderType.BewerkingDimensies.SetAt(BewerkingInfo, ##class(DOM.PM.enu.BewerkingDimensie).Lengte())
-	Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New()
-	Set BewerkingInfo.Aftrek = 0
-	Set BewerkingInfo.IngegevenKenmerk = ..TaorboxModel.GeefIngegevenKenmerkViaNaam("LadeHoogte")
-	Do BuilderType.BewerkingDimensies.SetAt(BewerkingInfo, ##class(DOM.PM.enu.BewerkingDimensie).Breedte())
+	#Dim Rol As APPS.PM.Maatwerk.MaatwerkModel.dto.Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("RugPlaat","Rugplaat")
+	#Dim BuilderType As APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New()
+	
+	Do BuilderType.BewerkingDimensies.SetAt(..GeefBewerkingInfo("InterneBreedte", 42), ##class(DOM.PM.enu.BewerkingDimensie).Lengte())
+	Do BuilderType.BewerkingDimensies.SetAt(..GeefBewerkingInfo("LadeHoogte", 0), ##class(DOM.PM.enu.BewerkingDimensie).Breedte())
+
 	Set Rol.BuilderType = BuilderType
 	Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen()
 	Do Rol.SelectieKenmerken.Insert(..TaorboxModel.GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur"))
 	Set Rol.ProductieDocTemplate = "{Rol}, {EXPR:##class(DOM.PM.enu.TAORPlaatAfwerking).LogicalToDisplay(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.PlaatAfwerkingBepaler).%New().GeefPlaatAfwerking(..LadeKleur))}, {LadeKleur}"	
-	Do ..TaorboxModel.ZetSpecialeProductieWijzenOpRol(Rol,  ##class(DOM.PM.enu.TAORProductieWijze).Rug())
+	
+	Do ..TaorboxModel.ZetSpecialeProductieWijzenOpRol(Rol, ##class(DOM.PM.enu.TAORProductieWijze).Rug())
+	
 	Quit Rol
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBewerkingInfo">
+<FormalSpec>KenmerkNaam:DOM.PM.enu.TAORKenmerkNaam,Aftrek:%Decimal</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo</ReturnType>
+<Implementation><![CDATA[
+	#Dim BewerkingInfo As APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New()
+	
+	Set BewerkingInfo.Aftrek = Aftrek
+	Set BewerkingInfo.IngegevenKenmerk = ..TaorboxModel.GeefIngegevenKenmerkViaNaam(KenmerkNaam)
+	
+	Quit BewerkingInfo
+]]></Implementation>
+</Method>
 </Class>