Index: APPS/PM/Maatwerk/MaatwerkModel/Modellen/TaorboxModel/Rol.cls.xml
===================================================================
diff -u -r45856 -r46154
--- APPS/PM/Maatwerk/MaatwerkModel/Modellen/TaorboxModel/Rol.cls.xml	(.../Rol.cls.xml)	(revision 45856)
+++ APPS/PM/Maatwerk/MaatwerkModel/Modellen/TaorboxModel/Rol.cls.xml	(.../Rol.cls.xml)	(revision 46154)
@@ -4,11 +4,6 @@
 <Abstract>1</Abstract>
 <Super>DOM.PM.Maatwerk.TAX.impl.Base,APPS.PM.Maatwerk.MaatwerkModel.Modellen.Rol</Super>
 
-<Property name="ItemProcessorType">
-<Type>APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType.AutoComplete</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <FormalSpec>Model:APPS.PM.Maatwerk.MaatwerkModel.Modellen.TaorboxModel</FormalSpec>
 <Private>1</Private>
Index: APPS/PM/Maatwerk/MaatwerkModel/Modellen/LegraboxPureModel.cls.xml
===================================================================
diff -u -r40068 -r46154
--- APPS/PM/Maatwerk/MaatwerkModel/Modellen/LegraboxPureModel.cls.xml	(.../LegraboxPureModel.cls.xml)	(revision 40068)
+++ APPS/PM/Maatwerk/MaatwerkModel/Modellen/LegraboxPureModel.cls.xml	(.../LegraboxPureModel.cls.xml)	(revision 46154)
@@ -487,17 +487,8 @@
 	Do Rol.Condities.Insert(HeeftDwarsverdelingConditie)
 	Do ..Rollen.Insert(Rol)
 	
-	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("DwarsverdelingHouder", "Dwarsverdelinghouder")
-	Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New()
-	Set Rol.BuilderType.AantalItems = 2
-	Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen()
-	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur"))
-	Do Rol.SelectieKenmerken.Insert(..GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("ZijWandType"))
-	Set Rol.ProductieDocTemplate = "{Rol}, {PPS:LBX:Kleur}, {ZijWandType}"
-	Set Conditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.RolBestaatConditie).%New("Dwarsverdeling")
-	Do Rol.Condities.Insert(Conditie)
-	Do ..Rollen.Insert(Rol)
-	
+	Do ..VoegToeRol(##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.LBX.Rollen.DwarsverdelingHouder).%New($this).GeefRol())
+
 	Set HeeftTiponBlumotionConditie = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.IngegevenKenmerkWaardeConditie).%New()
 	Set HeeftTiponBlumotionConditie.IngegevenKenmerk = ..GeefIngegevenKenmerkViaNaam("GeleiderTechnologie")
 	Set HeeftTiponBlumotionConditie.Operator = "="
Index: APPS/PM/Maatwerk/MaatwerkModel/Modellen/LBX/Rollen/DwarsverdelingHouder.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/MaatwerkModel/Modellen/LBX/Rollen/DwarsverdelingHouder.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/MaatwerkModel/Modellen/LBX/Rollen/DwarsverdelingHouder.cls.xml	(revision 46154)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.MaatwerkModel.Modellen.LBX.Rollen.DwarsverdelingHouder">
+<Super>APPS.PM.Maatwerk.MaatwerkModel.Modellen.LBX.Rol</Super>
+
+<Method name="GeefRol">
+<ReturnType>APPS.PM.Maatwerk.MaatwerkModel.dto.Rol</ReturnType>
+<Implementation><![CDATA[
+	#dim Rol As APPS.PM.Maatwerk.MaatwerkModel.dto.Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New(..Enum.Rol.DwarsverdelingHouder, "Dwarsverdelinghouder")
+	
+	Set Rol.BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.StandaardBuilderType).%New()
+	Set Rol.BuilderType.AantalItems = 2
+	Set Rol.ItemProcessorType = ..ItemProcessorType.ExactEen
+	Set Rol.ProductieDocTemplate = "{Rol}, {PPS:LBX:Kleur}, {ZijWandType}"
+	
+	Do Rol.SelectieKenmerken.Insert(..Model.GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam(..Enum.KenmerkNaam.LadeKleur))
+	Do Rol.SelectieKenmerken.Insert(..Model.GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam(..Enum.KenmerkNaam.ZijWandType))
+	
+	Do Rol.Condities.Insert(..GeefDwarsverdelingConditie())
+	
+	Quit Rol
+]]></Implementation>
+</Method>
+
+<Method name="GeefDwarsverdelingConditie">
+<Private>1</Private>
+<ReturnType>APPS.PM.Maatwerk.MaatwerkModel.dto.RolBestaatConditie</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.RolBestaatConditie).%New(..Enum.Rol.Dwarsverdeling)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/PM/Maatwerk/MaatwerkModel/Modellen/LBX/Rol.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/MaatwerkModel/Modellen/LBX/Rol.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/MaatwerkModel/Modellen/LBX/Rol.cls.xml	(revision 46154)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.MaatwerkModel.Modellen.LBX.Rol">
+<Abstract>1</Abstract>
+<Super>DOM.PM.Maatwerk.LBX.impl.Base,APPS.PM.Maatwerk.MaatwerkModel.Modellen.Rol</Super>
+
+<Method name="%OnNew">
+<FormalSpec>Model:APPS.PM.Maatwerk.MaatwerkModel.Modellen.LegraboxPureModel</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.Rol)##this.%OnNew(Model)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/PM/Maatwerk/MaatwerkModel/Modellen/Rol.cls.xml
===================================================================
diff -u -r45856 -r46154
--- APPS/PM/Maatwerk/MaatwerkModel/Modellen/Rol.cls.xml	(.../Rol.cls.xml)	(revision 45856)
+++ APPS/PM/Maatwerk/MaatwerkModel/Modellen/Rol.cls.xml	(.../Rol.cls.xml)	(revision 46154)
@@ -9,6 +9,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ItemProcessorType">
+<Type>APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>Model:APPS.PM.Maatwerk.MaatwerkModel.impl.MaatwerkModelBase</FormalSpec>
 <Private>1</Private>