Index: DOM/PM/impl/TAORLangtekstCreator.cls.xml
===================================================================
diff -u -r29829 -r29967
--- DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 29829)
+++ DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 29967)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.impl.TAORLangtekstCreator">
-<Super>DOM.PM.impl.LangtekstCreator</Super>
+<Super>DOM.PM.impl.LangtekstCreator,DOM.PM.Maatwerk.TAX.impl.Base</Super>
 
 <Parameter name="KenmerkSeparator">
 <Type>%String</Type>
@@ -23,11 +23,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="Rol">
-<Type>DOM.PM.Maatwerk.Calc.HF.enu.TAORRol.AutoComplete</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <FormalSpec>LadeInfoAPI:DOM.PM.Maatwerk.impl.LadeInfoAPI</FormalSpec>
 <Private>1</Private>
@@ -70,14 +65,14 @@
 	#Dim Paragraaf As TECH.String = ""
 	
 	If (..IngegevenKenmerken.IsBinnenlade) {
-		Set Paragraaf = ..GeefTekstVoorRol(..Rol.FrontEindkap, ..GeefFrontEindkapTekst(), $$$False) _ ..#KenmerkSeparator
+		Set Paragraaf = ..GeefTekstVoorRol(..Enum.Rol.FrontEindkap, ..GeefFrontEindkapTekst(), $$$False) _ ..#KenmerkSeparator
 	}
 	
 	Set Paragraaf = Paragraaf_..Vertaler.GeefVertaling("Bevat")_": "_..Vertaler.GeefVertaling($Select(..IsLadeGemonteerd():"",1:"Niet")_"GemonteerdeLade")
 	Set Paragraaf = Paragraaf_..GeefGeleiderTekst()
-	Set Paragraaf = Paragraaf_..GeefTekstVoorRol(..Rol.FrontBevestiging, ..GeefFrontBevestigingTekst(), $$$True)
-	Set Paragraaf = Paragraaf_..GeefTekstVoorRol(..Rol.Zijstabilisering, ..Vertaler.GeefVertaling("Zijstabilisering"), $$$True)
-	Set Paragraaf = Paragraaf_..GeefTekstVoorRol(..Rol.Opvullijst, ..GeefOpvullijstTekst(), $$$True)
+	Set Paragraaf = Paragraaf_..GeefTekstVoorRol(..Enum.Rol.FrontBevestiging, ..GeefFrontBevestigingTekst(), $$$True)
+	Set Paragraaf = Paragraaf_..GeefTekstVoorRol(..Enum.Rol.Zijstabilisering, ..Vertaler.GeefVertaling("Zijstabilisering"), $$$True)
+	Set Paragraaf = Paragraaf_..GeefTekstVoorRol(..Enum.Rol.Opvullijst, ..GeefOpvullijstTekst(), $$$True)
 	Do ..VoegToeLangtekstParagraaf(Paragraaf)	
 	
 	Do ..VoegToeGekoppeldeInfoIndienNodig()
@@ -94,12 +89,12 @@
 		#Dim Kleur As %String = IteratorKleurenVoorOnderdeelArray.Next()
 		#Dim OnderdeelKey As %String = IteratorKleurenVoorOnderdeelArray.Key()
 		
-		If (OnderdeelKey = ..Rol.Bodem) && (..BodemSlicedTypeBepaler.GeefBodemSlicedType(..IngegevenKenmerken) = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAX.SlicedType).Sliced()) {
-			Set OnderdeelKey = OnderdeelKey _ "_Sliced"
+		If (OnderdeelKey = ..Enum.Rol.Bodem) && (..BodemSlicedTypeBepaler.GeefBodemSlicedType(..IngegevenKenmerken) = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAX.SlicedType).Sliced()) {
+			Set OnderdeelKey = "Bodem_Sliced"
 		}
 				
-		If (OnderdeelKey = ..Rol.Zijkant) {
-			Set OnderdeelKey = "Lade" _ OnderdeelKey
+		If (OnderdeelKey = "Zijkant" ) {
+			Set OnderdeelKey = "LadeZijkant"
 		}
 		
 		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling(OnderdeelKey) _ ":" _ ..KleurCodeVertaler.GeefVertaling(Kleur))
@@ -142,7 +137,7 @@
 	Set GeleiderTekst = GeleiderTekst _ ##class(DOM.PM.enu.TAORGlijderType).LogicalToDisplay(..IngegevenKenmerken.GlijderType) _ " "
 	Set GeleiderTekst = GeleiderTekst _ ..GeefDraagkrachtTekst() _ ..#KenmerkSeparator _ ..GeefBlumotionOfTipon()
 	
-	Quit ..GeefTekstVoorRol(..Rol.Glijder, GeleiderTekst, ..IsLadeGemonteerd())
+	Quit ..GeefTekstVoorRol(..Enum.Rol.Glijder, GeleiderTekst, ..IsLadeGemonteerd())
 ]]></Implementation>
 </Method>