Index: DOM/PM/impl/LBXLangtekstCreator.cls.xml
===================================================================
diff -u -r30747 -r32266
--- DOM/PM/impl/LBXLangtekstCreator.cls.xml	(.../LBXLangtekstCreator.cls.xml)	(revision 30747)
+++ DOM/PM/impl/LBXLangtekstCreator.cls.xml	(.../LBXLangtekstCreator.cls.xml)	(revision 32266)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.impl.LBXLangtekstCreator">
-<Super>DOM.PM.impl.LangtekstCreator</Super>
+<Super>DOM.PM.impl.LangtekstCreator,DOM.PM.Maatwerk.LBX.impl.Base</Super>
 
 <Property name="SpoelbakAfmetingBepaler">
 <Type>APPS.PM.Maatwerk.LBX.SpoelbakAfmetingBepaler</Type>
@@ -43,7 +43,7 @@
 	Set ..SpoelbakAfmetingBepaler = $$$Implementation(SpoelbakAfmetingBepaler, ##class(APPS.PM.Maatwerk.LBX.impl.SpoelbakAfmetingBepaler).%New())
 	Set ..IngegevenKenmerkenTypeAPI = $$$Implementation(IngegevenKenmerkenTypeAPI, ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI())
 	Set ..OnderdeelTekstBepaler = $$$Implementation(OnderdeelTekstBepaler, ##class(DOM.PM.impl.Langtekst.LBXEnkelOnderdeelTekstBepaler).%New())
-	Set ..KleurCodeBepaler = $$$Implementation(KleurCodeBepaler, ##class(DOM.PM.ProductTekst.impl.KleurcodeBepaler).%New())
+	Set ..KleurCodeBepaler = $$$Implementation(KleurCodeBepaler, ##class(DOM.PM.ProductTekst.impl.KleurcodeBepaler.LBX).%New())
 	Set ..UitsparingDataHelper = $$$Implementation(UitsparingDataHelper, ##class(DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingHelper).%New())
 	Set ..UitsparingTekstFormatter = ##class(DOM.PM.Maatwerk.LBX.impl.UitsparingTekstFormatter).%New()
 	
@@ -80,7 +80,7 @@
 	#Dim Paragraaf As TECH.String
 	
 	If (..IsSpoelbaklade()) {
-		Do ..VoegToeLangtekstParagraaf(" 2 x "_..IngegevenKenmerken.LadeHoogte_..#KenmerkSeparator_..GeefDimensieTekst()_..#KenmerkSeparator)
+		Do ..VoegToeLangtekstParagraaf(" 2 x " _ ..IngegevenKenmerken.LadeHoogte _ ..#KenmerkSeparator _ ..GeefDimensieTekst() _ ..#KenmerkSeparator)
 		
 		#Dim AfmetingUitsparing As %Decimal = ..SpoelbakAfmetingBepaler.GeefAfmetingUitsparing(..IngegevenKenmerken)
 		#Dim AfmetingZijstukLinks As %Decimal = ..SpoelbakAfmetingBepaler.GeefAfmetingZijstukLinks(..IngegevenKenmerken)
@@ -100,22 +100,22 @@
 		Set Paragraaf = ..GeefDimensieTekst()
 	}
 
-	If (..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig()) {		
+	If (..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig()) {	
 		Set Paragraaf = Paragraaf _ ..#KenmerkSeparator
 		Set Paragraaf = Paragraaf _ ..Vertaler.GeefVertaling("Bodem") _ ":" _ ..GeefKleurBinnen()
 		Set Paragraaf = Paragraaf _ ..#KenmerkSeparator
 		Set Paragraaf = Paragraaf _	..Vertaler.GeefVertaling("ladezijkant", "", $$$True) _ ":" _ ..GeefKleurBuiten()
 		Set Paragraaf = Paragraaf _ ..#KenmerkSeparator
 		Set Paragraaf = Paragraaf _ ..Vertaler.GeefVertaling("Bevat") _ ": " _ $Select(..IsSpoelbaklade():"2x ", 1:"") _ ..Vertaler.GeefVertaling("GemonteerdeLade")
-		
+
 		Set Paragraaf = Paragraaf _ ..GeefZijwandTekst()
 		Set Paragraaf = Paragraaf _ ..GeefVoorwandTekst()
 		Set Paragraaf = Paragraaf _ ..GeefGeleiderTekst()
 		Set Paragraaf = Paragraaf _ ..GeefRugWandTekst()
-		Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).FrontBevestiging(), ..GeefFrontBevestigingTekst(), $$$True)
-		Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Zijstabilisering(), ..Vertaler.GeefVertaling("Zijstabilisering"), $$$True)
-		Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).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()
@@ -145,15 +145,15 @@
 <Method name="IsLegraboxFree">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..IngegevenKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free()
+<Implementation><![CDATA[	Quit ..IngegevenKenmerken.ZijWandType = ..Enum.ZijwandType.Free
 ]]></Implementation>
 </Method>
 
 <Method name="GeefKleurBinnen">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#Dim KleurCode As %String = ..KleurCodeBepaler.GeefBinnenKleurCodeLBX(..IngegevenKenmerken, ..HalffabItemsBoom)
+	#Dim KleurCode As %String = ..KleurCodeBepaler.GeefBinnenKleurCode(..IngegevenKenmerken, ..HalffabItemsBoom)
 	Quit ..GeefKleurOmschrijving(KleurCode)
 ]]></Implementation>
 </Method>
@@ -162,7 +162,7 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#Dim KleurCode As %String = ..KleurCodeBepaler.GeefBuitenKleurCodeLBX(..IngegevenKenmerken, ..HalffabItemsBoom)
+	#Dim KleurCode As %String = ..KleurCodeBepaler.GeefBuitenKleurCode(..IngegevenKenmerken, ..HalffabItemsBoom)
 	Quit ..GeefKleurOmschrijving(KleurCode)
 ]]></Implementation>
 </Method>
@@ -171,7 +171,8 @@
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#Dim KleurCode As TECH.String = ..KleurCodeBepaler.GeefTiponBlumotionKleurCodeLBX(..HalffabItemsBoom)	
+	#Dim KleurCode As TECH.String = ..KleurCodeBepaler.GeefKleurCodeVoorRol(..Enum.Rol.TiponBlumotionEenheid, ..HalffabItemsBoom)
+
 	Quit ..GeefKleurOmschrijving(KleurCode)
 ]]></Implementation>
 </Method>
@@ -193,24 +194,24 @@
 	#Dim VoorwandVertaalSleutel As %String = ""
 	
 	If (..IngegevenKenmerken.IsBinnenlade) {
-		If (..IngegevenKenmerken.LadeHoogte=##class(DOM.PM.enu.LBXLadeHoogte).M()) {
+		If (..IngegevenKenmerken.LadeHoogte = ..Enum.LadeHoogte.M) {
 			
-			If (..IngegevenKenmerken.VoorWandType=##class(DOM.PM.enu.LBXVoorWandType).Vulling()) {
+			If (..IngegevenKenmerken.VoorWandType = ..Enum.VoorWandType.Vulling) {
 				Set VoorwandVertaalSleutel = "LBX_Voorstuk_M_metInschuifElement"
-			} ElseIf (..IngegevenKenmerken.VoorWandType=##class(DOM.PM.enu.LBXVoorWandType).Voorstuk()) {
+			} ElseIf (..IngegevenKenmerken.VoorWandType = ..Enum.VoorWandType.Voorstuk) {
 				Set VoorwandVertaalSleutel = "LBX_Voorstuk_M_Gesloten"
 			}
 			
-		} ElseIf (..IngegevenKenmerken.LadeHoogte=##class(DOM.PM.enu.LBXLadeHoogte).C()) {
-			If (..IngegevenKenmerken.VoorWandType=##class(DOM.PM.enu.LBXVoorWandType).Vulling()) {
+		} ElseIf (..IngegevenKenmerken.LadeHoogte = ..Enum.LadeHoogte.C) {
+			If (..IngegevenKenmerken.VoorWandType = ..Enum.VoorWandType.Vulling) {
 
-				If (..IngegevenKenmerken.VoorWandVerhogingHoogte=##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Hoog()) {
+				If (..IngegevenKenmerken.VoorWandVerhogingHoogte = ..Enum.VoorWandVerhogingHoogte.Hoog) {
 					Set VoorwandVertaalSleutel = "LBX_Voorstuk_C_metHoogInschuifElement"
 				} Else { // VoorWandVerhogingHoogte = "Laag"
 					Set VoorwandVertaalSleutel = "LBX_Voorstuk_C_metLaagInschuifElement"
 				}
 				
-			} ElseIf (..IngegevenKenmerken.VoorWandType=##class(DOM.PM.enu.LBXVoorWandType).Reling()) {
+			} ElseIf (..IngegevenKenmerken.VoorWandType = ..Enum.VoorWandType.Reling) {
 				Set VoorwandVertaalSleutel = "LBX_Voorstuk_C_metReling"
 			}
 			
@@ -229,7 +230,7 @@
 	#Dim VoorwandVertaalSleutel As %String = ..GeefVoorwandVertaalSleutel()
 	
 	If ($Length(VoorwandVertaalSleutel)) {
-		Set VoorwandInfo=..#KenmerkSeparator _ ..Vertaler.GeefVertaling(VoorwandVertaalSleutel)
+		Set VoorwandInfo = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling(VoorwandVertaalSleutel)
 	}
 	
 	Quit VoorwandInfo
@@ -257,11 +258,11 @@
 	#Dim RugUtils As DOM.PM.Maatwerk.Lade.RugUtils.impl.LBXRugUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeRugUtils(##class(DOM.PM.enu.LadeVariant).LBXPure())
 	#Dim RugWandTekst As TECH.String = ""
 	
-	If (..IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()) {
+	If (..IngegevenKenmerken.RugWandMateriaal = ..Enum.RugWandMateriaal.Staal) {
 		Set RugWandTekst = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("StalenRug")
 	}
 	
-	If (..IsSifonlade() && ..HalffabItemsBoom.BevatRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Rug())) {
+	If (..IsSifonlade() && ..HalffabItemsBoom.BevatRol(..Enum.Rol.Rug)) {
 		#Dim HalffabRug As DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabRug = RugUtils.GeefRugX(..HalffabItemsBoom).GeefHalffab()
 		Set RugWandTekst = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("RugwandHoogte") _ " " _ HalffabRug.RugHoogte
 	}
@@ -279,22 +280,22 @@
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#Dim IsGeleiderTechnologieTiponBlumotion As %Boolean = (..IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION())
-	#Dim BevatRolTiponBlumotionEenheid As %Boolean = (..HalffabItemsBoom.BevatRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionEenheid()))
+	#Dim IsGeleiderTechnologieTiponBlumotion As %Boolean = (..IngegevenKenmerken.GeleiderTechnologie = ..Enum.GeleiderTechnologie.TIPONBLUMOTION)
+	#Dim BevatRolTiponBlumotionEenheid As %Boolean = (..HalffabItemsBoom.BevatRol(..Enum.Rol.TiponBlumotionEenheid))
 	#Dim GeleiderTekst As TECH.String = ""
 	
 	Set GeleiderTekst = GeleiderTekst _ ..Vertaler.GeefVertaling("Geleider") _ " " _ ..GeefDraagkrachtTekst() _ ..#KenmerkSeparator
 	Set GeleiderTekst = GeleiderTekst _ ##class(DOM.PM.enu.LBXGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
 
 	If (IsGeleiderTechnologieTiponBlumotion && BevatRolTiponBlumotionEenheid) {
-		#Dim ConcreetHalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ..HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionEenheid()).GeefHalffabItem("Links")
+		#Dim ConcreetHalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ..HalffabItemsBoom.GeefHalffabItem(..Enum.Rol.TiponBlumotionEenheid).GeefHalffabItem("Links")
 		#Dim Product As DOM.PM.AdministratiefProduct = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ConcreetHalffabItem.GeefHalffab().GeefProductID())
 		
 		Set GeleiderTekst = GeleiderTekst _ " " _ $Extract(Product.GeefKorttekst(), 1, 7)
 		Set GeleiderTekst = GeleiderTekst _ " " _ ..GeefKleurTiponBlumotion()
 	} 
-	
-	Quit ..GeefTekstVoorRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Geleider(), GeleiderTekst, $$$True)
+
+	Quit ..GeefTekstVoorRol(..Enum.Rol.Geleider, GeleiderTekst, $$$True)
 ]]></Implementation>
 </Method>
 
@@ -320,8 +321,9 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#Dim AantalDwarsverdelingen As TECH.Integer = ..IngegevenKenmerken.AantalDwarsverdelingen
+	
 	If (AantalDwarsverdelingen > 0) {
-		#Dim VertaalSleutel As TECH.String = "Langtekst_Dwarsverdeling"_$Select(AantalDwarsverdelingen>1:"en", 1:"")
+		#Dim VertaalSleutel As TECH.String = "Langtekst_Dwarsverdeling" _ $Select(AantalDwarsverdelingen > 1:"en", 1:"")
 		#Dim DwarsverdelingTekst As TECH.String = AantalDwarsverdelingen _ " " _ ..Vertaler.GeefVertaling(VertaalSleutel)
 		
 		Do ..VoegToeLangtekstParagraaf(DwarsverdelingTekst)