Index: vhTest/Fake/DOM/PM/ProductTekst/impl/KleurcodeBepaler.cls.xml
===================================================================
diff -u -r29059 -r32266
--- vhTest/Fake/DOM/PM/ProductTekst/impl/KleurcodeBepaler.cls.xml	(.../KleurcodeBepaler.cls.xml)	(revision 29059)
+++ vhTest/Fake/DOM/PM/ProductTekst/impl/KleurcodeBepaler.cls.xml	(.../KleurcodeBepaler.cls.xml)	(revision 32266)
@@ -7,22 +7,22 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.ProductTekst.impl.KleurcodeBepaler</Super>
 
-<Method name="GeefBinnenKleurCodeLBX">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter=""</FormalSpec>
+<Method name="GeefBinnenKleurCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter=""</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
-<Method name="GeefBuitenKleurCodeLBX">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter=""</FormalSpec>
+<Method name="GeefBuitenKleurCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter=""</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
-<Method name="GeefTiponBlumotionKleurCodeLBX">
-<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
+<Method name="GeefKleurCodeVoorRol">
+<FormalSpec>Rol:TECH.String,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
Index: DOM/PM/ProductTekst/impl/KleurcodeBepaler/LBX.cls.xml
===================================================================
diff -u
--- DOM/PM/ProductTekst/impl/KleurcodeBepaler/LBX.cls.xml	(revision 0)
+++ DOM/PM/ProductTekst/impl/KleurcodeBepaler/LBX.cls.xml	(revision 32266)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.ProductTekst.impl.KleurcodeBepaler.LBX">
+<Super>DOM.PM.ProductTekst.impl.KleurcodeBepaler,DOM.PM.Maatwerk.LBX.impl.Base</Super>
+
+<Method name="GeefBinnenKleurCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter=""</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	Set:$$$Not($IsObject(DataDefinitie)) DataDefinitie = ##class(Prod.Kenmerk.impl.DataDefinitie).%New()
+	
+	#dim KleurCode As TECH.String = "  "	
+	
+	If (HalffabItemsBoom.BevatRol(..Enum.Rol.Bodem)) {
+		#dim KleurCodes As %List = ..GeefPPSKleurCodesVoorRol(HalffabItemsBoom, ..Enum.Rol.Bodem, "LBX_PPS_Bodem", DataDefinitie)
+		#dim KleurCodePositie As %Integer = $ListFind(KleurCodes, IngegevenKenmerken.BodemKleur)
+
+		If $$$Not(KleurCodePositie = 0) {
+			Set KleurCode = $ListGet(KleurCodes, KleurCodePositie)
+		} Else {
+			Set KleurCode = "XX"
+		}
+	} ElseIf $$$Not(IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig()) {
+		Set KleurCode = IngegevenKenmerken.BodemKleur
+	}
+
+	Quit KleurCode
+]]></Implementation>
+</Method>
+
+<Method name="GeefBuitenKleurCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter=""</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	Set:$$$Not($IsObject(DataDefinitie)) DataDefinitie = ##class(Prod.Kenmerk.impl.DataDefinitie).%New()
+	
+	#dim KleurCode As TECH.String = "  "
+	#dim ZijkantRol As TECH.String = ..Enum.Rol.LadeZijkant _ "->Links"
+	
+	If (HalffabItemsBoom.BevatRol(ZijkantRol)) {
+		Set KleurCode = $ListGet(..GeefPPSKleurCodesVoorRol(HalffabItemsBoom, ZijkantRol, "LBX_PPS_LadeZijkant", DataDefinitie))
+	} ElseIf $$$Not(IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig()) {
+		Set KleurCode = IngegevenKenmerken.LadeKleur
+	}
+	
+	Quit KleurCode
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/impl/Langtekst/LBXEnkelOnderdeelTekstBepaler.cls.xml
===================================================================
diff -u -r30747 -r32266
--- DOM/PM/impl/Langtekst/LBXEnkelOnderdeelTekstBepaler.cls.xml	(.../LBXEnkelOnderdeelTekstBepaler.cls.xml)	(revision 30747)
+++ DOM/PM/impl/Langtekst/LBXEnkelOnderdeelTekstBepaler.cls.xml	(.../LBXEnkelOnderdeelTekstBepaler.cls.xml)	(revision 32266)
@@ -40,7 +40,7 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..KleurCodeBepaler = $$$Implementation(KleurCodeBepaler, ##class(DOM.PM.ProductTekst.impl.KleurcodeBepaler).%New())
+	Set ..KleurCodeBepaler = $$$Implementation(KleurCodeBepaler, ##class(DOM.PM.ProductTekst.impl.KleurcodeBepaler.LBX).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -64,7 +64,7 @@
 <Method name="VerwerkBodem">
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim KleurCode As TECH.String = ..KleurCodeBepaler.GeefBinnenKleurCodeLBX(..LBXKenmerken, ..HalffabItemsBoom)
+	#dim KleurCode As TECH.String = ..KleurCodeBepaler.GeefBinnenKleurCode(..LBXKenmerken, ..HalffabItemsBoom)
 	Do ..Append(..Vertaler.GeefVertaling("Bodem")_":"_..KleurCodeVertaler.GeefVertaling(KleurCode))
 ]]></Implementation>
 </Method>
@@ -89,15 +89,15 @@
 <Method name="VerwerkRug">
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim KleurCode As TECH.String = ..KleurCodeBepaler.GeefBinnenKleurCodeLBX(..LBXKenmerken, ..HalffabItemsBoom)
+	#dim KleurCode As TECH.String = ..KleurCodeBepaler.GeefBinnenKleurCode(..LBXKenmerken, ..HalffabItemsBoom)
 	Do ..Append(..Vertaler.GeefVertaling("rug", "", $$$True)_":"_..KleurCodeVertaler.GeefVertaling(KleurCode))
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkRugMetHouders">
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim KleurCode As TECH.String = ..KleurCodeBepaler.GeefBinnenKleurCodeLBX(..LBXKenmerken, ..HalffabItemsBoom)
+	#dim KleurCode As TECH.String = ..KleurCodeBepaler.GeefBinnenKleurCode(..LBXKenmerken, ..HalffabItemsBoom)
 	Do ..Append(..Vertaler.GeefVertaling("RugMetHouders")_":"_..KleurCodeVertaler.GeefVertaling(KleurCode))
 ]]></Implementation>
 </Method>
Index: vhUnitTest/DOM/PM/impl/Langtekst/LBXEnkelOnderdeelTekstBepaler/BepaalOnderdeelTekst/Test.cls.xml
===================================================================
diff -u -r31563 -r32266
--- vhUnitTest/DOM/PM/impl/Langtekst/LBXEnkelOnderdeelTekstBepaler/BepaalOnderdeelTekst/Test.cls.xml	(.../Test.cls.xml)	(revision 31563)
+++ vhUnitTest/DOM/PM/impl/Langtekst/LBXEnkelOnderdeelTekstBepaler/BepaalOnderdeelTekst/Test.cls.xml	(.../Test.cls.xml)	(revision 32266)
@@ -24,7 +24,7 @@
 </Property>
 
 <Property name="KleurCodeBepalerMock">
-<Type>DOM.PM.ProductTekst.impl.KleurcodeBepaler</Type>
+<Type>vhTest.Mock.DOM.PM.ProductTekst.impl.KleurcodeBepaler</Type>
 <Private>1</Private>
 </Property>
 
@@ -38,27 +38,43 @@
 <Private>1</Private>
 </Property>
 
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	#dim VertaalAPIMock As vhTest.Mock.DOM.common.Transl.VertaalAPI = ##class(vhTest.Mock.DOM.common.Transl.VertaalAPI).MockInstance()
+	
+	Do VertaalAPIMock.IndienMethodCall("GeefStandaardVertaler", ..#Taal).DanReturn(##class(vhTest.Utils.Vertaler).%New("", ..#Taal))
+	Do VertaalAPIMock.IndienMethodCall("GeefKleurCodeVertaler", ..#Taal).DanReturn(##class(vhTest.Utils.Vertaler).%New("", ..#Taal))
+	
+	Set ..KleurCodeBepalerMock = ##class(vhTest.Mock.DOM.PM.ProductTekst.impl.KleurcodeBepaler).%New()
+	Set ..LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).CLade()
+	Set ..HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+]]></Implementation>
+</Method>
+
 <Method name="TestEnkelBodem">
 <Implementation><![CDATA[
-	Do ..KleurCodeBepalerMock.IndienMethodCall("GeefBinnenKleurCodeLBX", ..LBXKenmerken, ..HalffabItemsBoom,"").DanReturn(..#BinnenKleur)
+	Do ..KleurCodeBepalerMock.IndienMethodCall("GeefBinnenKleurCode", ..LBXKenmerken, ..HalffabItemsBoom, "").DanReturn(..#BinnenKleur)
 	Set ..LBXKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Bodem()
-	Do ..AssertEnkelOnderdeelTekst("[Enkel] [Bodem]:["_..#BinnenKleur_"]")
+	Do ..AssertEnkelOnderdeelTekst("[Enkel] [Bodem]:[" _ ..#BinnenKleur _ "]")
 ]]></Implementation>
 </Method>
 
 <Method name="TestEnkelRug">
 <Implementation><![CDATA[
-	Do ..KleurCodeBepalerMock.IndienMethodCall("GeefBinnenKleurCodeLBX", ..LBXKenmerken, ..HalffabItemsBoom,"").DanReturn(..#BuitenKleur)
+	Do ..KleurCodeBepalerMock.IndienMethodCall("GeefBinnenKleurCode", ..LBXKenmerken, ..HalffabItemsBoom, "").DanReturn(..#BuitenKleur)
 	Set ..LBXKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Rug()
-	Do ..AssertEnkelOnderdeelTekst("[Enkel] [rug]:["_..#BuitenKleur_"]")
+	Do ..AssertEnkelOnderdeelTekst("[Enkel] [rug]:[" _ ..#BuitenKleur _ "]")
 ]]></Implementation>
 </Method>
 
 <Method name="TestBodemEnRug">
 <Implementation><![CDATA[
-	Do ..KleurCodeBepalerMock.IndienMethodCall("GeefBinnenKleurCodeLBX", ..LBXKenmerken, ..HalffabItemsBoom,"").DanReturn(..#BinnenKleur)
+	Do ..KleurCodeBepalerMock.IndienMethodCall("GeefBinnenKleurCode", ..LBXKenmerken, ..HalffabItemsBoom, "").DanReturn(..#BinnenKleur)
 	Set ..LBXKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).BodemEnRug()
-	Do ..AssertEnkelOnderdeelTekst("[Enkel] [Bodem]:["_..#BinnenKleur_"]; [rug]:["_..#BinnenKleur_"]")
+	Do ..AssertEnkelOnderdeelTekst("[Enkel] [Bodem]:[" _ ..#BinnenKleur _ "]; [rug]:[" _ ..#BinnenKleur _ "]")
 ]]></Implementation>
 </Method>
 
@@ -71,16 +87,16 @@
 
 <Method name="TestRugMetHouders">
 <Implementation><![CDATA[
-	Do ..KleurCodeBepalerMock.IndienMethodCall("GeefBinnenKleurCodeLBX", ..LBXKenmerken, ..HalffabItemsBoom,"").DanReturn(..#BinnenKleur)
+	Do ..KleurCodeBepalerMock.IndienMethodCall("GeefBinnenKleurCode", ..LBXKenmerken, ..HalffabItemsBoom, "").DanReturn(..#BinnenKleur)
 	Set ..LBXKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).RugMetHouders()
-	Do ..AssertEnkelOnderdeelTekst("[Enkel] [RugMetHouders]:["_..#BinnenKleur_"]")
+	Do ..AssertEnkelOnderdeelTekst("[Enkel] [RugMetHouders]:[" _ ..#BinnenKleur _ "]")
 ]]></Implementation>
 </Method>
 
 <Method name="TestVolledigxxxExceptie">
 <Implementation><![CDATA[
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Deze klasse is enkel bedoelt om de niet volledige te verwerken.")
-	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.IllegalUsageException",Substrings))
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.IllegalUsageException", Substrings))
 	Set ..LBXKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig()
 	Do ..AssertEnkelOnderdeelTekst($$$DummyString)
 ]]></Implementation>
@@ -89,25 +105,12 @@
 <Method name="AssertEnkelOnderdeelTekst">
 <FormalSpec>VerwachteEnkelOnderdeelTekst</FormalSpec>
 <Implementation><![CDATA[
-	Set OnderdeelTekstBepaler = ##class(DOM.PM.impl.Langtekst.LBXEnkelOnderdeelTekstBepaler).%New(..KleurCodeBepalerMock)
+	#dim OnderdeelTekstBepaler As DOM.PM.impl.Langtekst.LBXEnkelOnderdeelTekstBepaler = ##class(DOM.PM.impl.Langtekst.LBXEnkelOnderdeelTekstBepaler).%New(..KleurCodeBepalerMock)
 	
 	#dim OnderdeelTekst As TECH.String = OnderdeelTekstBepaler.BepaalOnderdeelTekst(..#Taal, ..LBXKenmerken, ..HalffabItemsBoom)
 	Do $$$AssertEquals(OnderdeelTekst,VerwachteEnkelOnderdeelTekst)
 ]]></Implementation>
 </Method>
-
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[
-	Do ##super(aTestName)
-	#dim VertaalAPIMock As vhTest.Mock.DOM.common.Transl.VertaalAPI = ##class(vhTest.Mock.DOM.common.Transl.VertaalAPI).MockInstance()
-	Do VertaalAPIMock.IndienMethodCall("GeefStandaardVertaler", ..#Taal).DanReturn(##class(vhTest.Utils.Vertaler).%New("", ..#Taal))
-	Do VertaalAPIMock.IndienMethodCall("GeefKleurCodeVertaler", ..#Taal).DanReturn(##class(vhTest.Utils.Vertaler).%New("", ..#Taal))
-	Set ..KleurCodeBepalerMock = ##class(vhTest.Mock.DOM.PM.ProductTekst.impl.KleurcodeBepaler).%New()
-	Set ..LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).CLade()
-	Set ..HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
-]]></Implementation>
-</Method>
 </Class>
 
 
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)
Index: vhTest/Integratie/ProductBeheer/Maatwerk/Configurator/Taorbox/VerwerkKenmerkWijzigingen/TestGeleiderTechnologie.cls.xml
===================================================================
diff -u -r32257 -r32266
--- vhTest/Integratie/ProductBeheer/Maatwerk/Configurator/Taorbox/VerwerkKenmerkWijzigingen/TestGeleiderTechnologie.cls.xml	(.../TestGeleiderTechnologie.cls.xml)	(revision 32257)
+++ vhTest/Integratie/ProductBeheer/Maatwerk/Configurator/Taorbox/VerwerkKenmerkWijzigingen/TestGeleiderTechnologie.cls.xml	(.../TestGeleiderTechnologie.cls.xml)	(revision 32266)
@@ -6,7 +6,7 @@
 <Method name="GeefAanTePassenIngegevenKenmerken">
 <Private>1</Private>
 <ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
-<Implementation><![CDATA[	Quit ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).LegeKenmerken() //LegeKenmerken()
+<Implementation><![CDATA[	Quit ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).LegeKenmerken()
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/impl/LangtekstCreator.cls.xml
===================================================================
diff -u -r30521 -r32266
--- DOM/PM/impl/LangtekstCreator.cls.xml	(.../LangtekstCreator.cls.xml)	(revision 30521)
+++ DOM/PM/impl/LangtekstCreator.cls.xml	(.../LangtekstCreator.cls.xml)	(revision 32266)
@@ -160,9 +160,11 @@
 <Implementation><![CDATA[
 	#dim TekstVoorRol As TECH.String = ""
 	#dim Item As DOM.PM.Maatwerk.Calc.HF.IHalffabItem=..HalffabItemsBoom.GeefHalffabItem(HalffabRol)
-	If ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemUtils).GeefAantalProductenOpgenomenInEindproduct(Item){
-		Set TekstVoorRol = $Select(MetSeparator:..#KenmerkSeparator,1:"")_Tekst
+	
+	If (##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemUtils).GeefAantalProductenOpgenomenInEindproduct(Item)) {
+		Set TekstVoorRol = $Select(MetSeparator:..#KenmerkSeparator, 1:"") _ Tekst
 	}
+	
 	Quit TekstVoorRol
 ]]></Implementation>
 </Method>
Index: DOM/PM/Maatwerk/LBX/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u -r29831 -r32266
--- DOM/PM/Maatwerk/LBX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 29831)
+++ DOM/PM/Maatwerk/LBX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 32266)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.Maatwerk.LBX.impl.KorttekstBepaler">
-<Super>TECH.RegisteredObject,DOM.PM.Maatwerk.Lade.KorttekstBepaler</Super>
+<Super>DOM.PM.Maatwerk.Lade.KorttekstBepaler,DOM.PM.Maatwerk.LBX.impl.Base</Super>
 
 <Property name="IngegevenKenmerken">
 <Type>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</Type>
@@ -41,7 +41,8 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..LadeInfoAPI = $$$Implementation(LadeInfoAPI, ##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New())
-	Set ..KleurCodeBepaler = $$$Implementation(KleurCodeBepaler, ##class(DOM.PM.ProductTekst.impl.KleurcodeBepaler).%New())
+	Set ..KleurCodeBepaler = $$$Implementation(KleurCodeBepaler, ##class(DOM.PM.ProductTekst.impl.KleurcodeBepaler.LBX).%New())
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -50,36 +51,39 @@
 <FormalSpec>DossierNummer:TECH.String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter=""</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	Set:'$IsObject(DataDefinitie) DataDefinitie = ##class(Prod.Kenmerk.impl.DataDefinitie).%New()
+	Set:$$$Not($IsObject(DataDefinitie)) DataDefinitie = ##class(Prod.Kenmerk.impl.DataDefinitie).%New()
 	Set ..DataDefinitie = DataDefinitie
 	Set ..IngegevenKenmerken = IngegevenKenmerken
 	Set ..HalffabItemsBoom = HalffabItemsBoom
 	Set ..Lade = ..LadeInfoAPI.GeefLade(HalffabItemsBoom,IngegevenKenmerken)
 
-	#dim GlijderCode As %String = ..GeefGeleiderCode()
+	#dim GeleiderCode As %String = ..GeefGeleiderCode()
 	#dim ZijwandHoogte As %String = ..GeefZijwandHoogte()
 	#dim DesignCode As %String = ..GeefDesignCode()
 	#dim FrontBevestigingCode As %String = ..GeefFrontBevestigingCode()
 	#dim LadeDimensie As %String = ..GeefLadeDimensie()
 	#dim VerpakkingCode As %String = ..GeefVerpakkingCode()
-	#dim BuitenkleurCode As %String = ..KleurCodeBepaler.GeefBuitenKleurCodeLBX(IngegevenKenmerken, HalffabItemsBoom, DataDefinitie)
-	#dim BinnenkleurCode As %String = ..KleurCodeBepaler.GeefBinnenKleurCodeLBX(IngegevenKenmerken, HalffabItemsBoom, DataDefinitie)
-	Quit "LB"_GlijderCode_ZijwandHoogte_DesignCode_FrontBevestigingCode_$J(DossierNummer,5)_LadeDimensie_$J(VerpakkingCode,1)_" "_$J($E(BuitenkleurCode,1,2),2)_$J($E(BinnenkleurCode,1,2),2)
+	#dim BuitenkleurCode As %String = ..KleurCodeBepaler.GeefBuitenKleurCode(IngegevenKenmerken, HalffabItemsBoom, DataDefinitie)
+	#dim BinnenkleurCode As %String = ..KleurCodeBepaler.GeefBinnenKleurCode(IngegevenKenmerken, HalffabItemsBoom, DataDefinitie)
+	
+	Quit "LB"_GeleiderCode_ZijwandHoogte_DesignCode_FrontBevestigingCode_$J(DossierNummer,5)_LadeDimensie_$J(VerpakkingCode,1)_" "_$J($E(BuitenkleurCode,1,2),2)_$J($E(BinnenkleurCode,1,2),2)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefGeleiderCode">
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#dim GlijderCode As %String = " "
-	If (..HalffabItemsBoom.BevatRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Geleider()_"->Links")) {
-		#dim GlijderHalffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ..HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Geleider()_"->Links").GeefHalffab()
-		Set GlijderCode = $J($Extract($LG(..DataDefinitie.DataDefinitieGet("LBX_PPS_Geleider",GlijderHalffab.GeefProductID(),"Draagkracht"))),1)
+	#dim GeleiderCode As TECH.String = " "
+	#dim Rol As TECH.String = ..Enum.Rol.Geleider _ "->Links"
+	
+	If (..HalffabItemsBoom.BevatRol(Rol)) {
+		Set GeleiderCode = $Justify($Extract($ListGet(..DataDefinitie.DataDefinitieGet("LBX_PPS_Geleider",..GeefHalffab(Rol).GeefProductID(), ..Enum.KenmerkNaam.Draagkracht))), 1)
 	} Else {
-		Set GlijderCode = $J($E(..IngegevenKenmerken.Draagkracht),1)
+		Set GeleiderCode = $Justify($Extract(..IngegevenKenmerken.Draagkracht), 1)
 	}
-	Quit GlijderCode
+	
+	Quit GeleiderCode
 ]]></Implementation>
 </Method>
 
@@ -88,12 +92,14 @@
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	#dim ZijwandHoogte As %String = " "
-	If (..HalffabItemsBoom.BevatRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).LadeZijkant()_"->Links")) {
-		#dim ZijkantHalffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ..HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).LadeZijkant()_"->Links").GeefHalffab()
-		Set ZijwandHoogte = $LG(..DataDefinitie.DataDefinitieGet("LBX_PPS_LadeZijkant",ZijkantHalffab.GeefProductID(),"Hoogte"))
-	} ElseIf ..IngegevenKenmerken.ProductieWijze '= ##class(DOM.PM.enu.LBXProductieWijze).Volledig() {
+	#dim Rol As TECH.String = ..Enum.Rol.LadeZijkant _ "->Links"
+	
+	If (..HalffabItemsBoom.BevatRol(Rol)) {
+		Set ZijwandHoogte = $ListGet(..DataDefinitie.DataDefinitieGet("LBX_PPS_LadeZijkant", ..GeefHalffab(Rol).GeefProductID(), "Hoogte"))
+	} ElseIf $$$Not(..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig()) {
 		Set ZijwandHoogte = ..IngegevenKenmerken.LadeHoogte
 	}
+	
 	Quit ZijwandHoogte
 ]]></Implementation>
 </Method>
@@ -104,14 +110,17 @@
 <Implementation><![CDATA[
 	#dim DesignCode As %String = "/"
 	#dim IngegevenKenmerkenTypeAPI As DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI()
-	If IngegevenKenmerkenTypeAPI.IsSpoelbaklade(..IngegevenKenmerken) {
+	
+	If (IngegevenKenmerkenTypeAPI.IsSpoelbaklade(..IngegevenKenmerken)) {
 		Set DesignCode = "S"
-	} ElseIf IngegevenKenmerkenTypeAPI.IsSifonlade(..IngegevenKenmerken) {
+	} ElseIf (IngegevenKenmerkenTypeAPI.IsSifonlade(..IngegevenKenmerken)) {
 		Set DesignCode = "Y"
 	}
-	If ..IngegevenKenmerken.ProductieWijze '= ##class(DOM.PM.enu.LBXProductieWijze).Volledig() {
+	
+	If $$$Not(..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig()) {
 		Set DesignCode = "!"
 	}
+	
 	Quit DesignCode
 ]]></Implementation>
 </Method>
@@ -121,12 +130,15 @@
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	#dim FrontBevestigingCode As %String =  " "
-	If (..IngegevenKenmerken.FrontBevestiging '= ""){
+	
+	If $$$Not(..IngegevenKenmerken.FrontBevestiging = "") {
 		Set FrontBevestigingCode = ..IngegevenKenmerken.FrontBevestiging
 	}
+	
 	If (..IngegevenKenmerken.IsBinnenlade) {
 		Set FrontBevestigingCode = "Z"
 	}
+	
 	Quit FrontBevestigingCode
 ]]></Implementation>
 </Method>
@@ -135,8 +147,8 @@
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#dim DimensieString As TECH.String = ..Lade.GeefDiepteInMM()_"x"_..Lade.GeefBreedteInMM()
-	Quit $Extract(##class(TECH.StringUtils).AddTrailingSpace(DimensieString,8),1,8)
+	#dim DimensieString As TECH.String = ..Lade.GeefDiepteInMM() _ "x" _ ..Lade.GeefBreedteInMM()
+	Quit $Extract(##class(TECH.StringUtils).AddTrailingSpace(DimensieString, 8), 1, 8)
 ]]></Implementation>
 </Method>
 
@@ -145,16 +157,26 @@
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	#dim VerpakkingCode As %String = " "
-	If (..IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).VHoss()) {
+	
+	If (..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.VHoss) {
 		Set VerpakkingCode = "A"
-	} ElseIf (..IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).Probox()) {
+	} ElseIf (..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.Probox) {
 		Set VerpakkingCode = "X"
-	} ElseIf (..IngegevenKenmerken.VerpakkingType '= ##class(DOM.PM.enu.LBXVerpakkingType).V1()) {
+	} ElseIf $$$Not(..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.V1) {
 		Set VerpakkingCode = $Extract(..IngegevenKenmerken.VerpakkingType)
 	}
+	
 	Quit VerpakkingCode
 ]]></Implementation>
 </Method>
+
+<Method name="GeefHalffab">
+<FormalSpec>Rol:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.Halffab</ReturnType>
+<Implementation><![CDATA[	Quit ..HalffabItemsBoom.GeefHalffabItem(Rol).GeefHalffab()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/PM/ProductTekst/impl/KleurcodeBepaler.cls.xml
===================================================================
diff -u -r29059 -r32266
--- vhTest/Mock/DOM/PM/ProductTekst/impl/KleurcodeBepaler.cls.xml	(.../KleurcodeBepaler.cls.xml)	(revision 29059)
+++ vhTest/Mock/DOM/PM/ProductTekst/impl/KleurcodeBepaler.cls.xml	(.../KleurcodeBepaler.cls.xml)	(revision 32266)
@@ -8,24 +8,24 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.ProductTekst.impl.KleurcodeBepaler,Tools.Mock.MockClassBase</Super>
 
-<Method name="GeefBinnenKleurCodeLBX">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter=""</FormalSpec>
+<Method name="GeefBinnenKleurCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter=""</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBinnenKleurCodeLBX",IngegevenKenmerken,HalffabItemsBoom,DataDefinitie)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBinnenKleurCode",IngegevenKenmerken,HalffabItemsBoom,DataDefinitie)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefBuitenKleurCodeLBX">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter=""</FormalSpec>
+<Method name="GeefBuitenKleurCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter=""</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBuitenKleurCodeLBX",IngegevenKenmerken,HalffabItemsBoom,DataDefinitie)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBuitenKleurCode",IngegevenKenmerken,HalffabItemsBoom,DataDefinitie)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefTiponBlumotionKleurCodeLBX">
-<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
+<Method name="GeefKleurCodeVoorRol">
+<FormalSpec>Rol:TECH.String,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefTiponBlumotionKleurCodeLBX",HalffabItemsBoom)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKleurCodeVoorRol",Rol,HalffabItemsBoom)
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/ProductTekst/impl/KleurcodeBepaler.cls.xml
===================================================================
diff -u -r29059 -r32266
--- DOM/PM/ProductTekst/impl/KleurcodeBepaler.cls.xml	(.../KleurcodeBepaler.cls.xml)	(revision 29059)
+++ DOM/PM/ProductTekst/impl/KleurcodeBepaler.cls.xml	(.../KleurcodeBepaler.cls.xml)	(revision 32266)
@@ -3,83 +3,54 @@
 <Class name="DOM.PM.ProductTekst.impl.KleurcodeBepaler">
 <Super>TECH.Mockable</Super>
 
-<Method name="GeefBuitenKleurCodeLBX">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter=""</FormalSpec>
+<Method name="GeefBinnenKleurCode">
+<Abstract>1</Abstract>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter=""</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	Set:'$IsObject(DataDefinitie) DataDefinitie = ##class(Prod.Kenmerk.impl.DataDefinitie).%New()
-	
-	#Dim KleurCode As TECH.String = "  "
-	#Dim ZijkantRol As TECH.String = ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).LadeZijkant() _ "->Links"
-	
-	If (HalffabItemsBoom.BevatRol(ZijkantRol)) {
-		Set KleurCode = ..GeefKleurCodeLBX(HalffabItemsBoom, ZijkantRol, "LBX_PPS_LadeZijkant", DataDefinitie)
-	} ElseIf $$$Not(IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig()) {
-		Set KleurCode = IngegevenKenmerken.LadeKleur
-	}
-	
-	Quit KleurCode
-]]></Implementation>
 </Method>
 
-<Method name="GeefKleurCodeLBX">
-<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Rol:TECH.String,GroepID:TECH.String,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter</FormalSpec>
-<Private>1</Private>
+<Method name="GeefBuitenKleurCode">
+<Abstract>1</Abstract>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter=""</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#Dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = HalffabItemsBoom.GeefHalffabItem(Rol).GeefHalffab()
-	Quit $LG(DataDefinitie.DataDefinitieGet(GroepID, Halffab.GeefProductID(), "Kleur"))
-]]></Implementation>
 </Method>
 
-<Method name="GeefBinnenKleurCodeLBX">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter=""</FormalSpec>
+<Method name="GeefKleurCodeVoorRol">
+<FormalSpec>Rol:TECH.String,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	Set:'$IsObject(DataDefinitie) DataDefinitie = ##class(Prod.Kenmerk.impl.DataDefinitie).%New()
+	#define VerwijderSlash(%v) $translate(%v, "/", "")
 	
-	#Dim RugRol As TECH.String = ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Rug()
-	#Dim KleurCode As TECH.String = "  "
+	#dim KleurCode As TECH.String = ""
 	
-	If (HalffabItemsBoom.BevatRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Bodem()))	{
-		#Dim BodemHalffab As DOM.PM.Maatwerk.Calc.HF.Halffab = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Bodem()).GeefHalffab()
-		#Dim KleurCodes As %List = DataDefinitie.DataDefinitieGet("LBX_PPS_Bodem",BodemHalffab.GeefProductID(),"Kleur")
-		#Dim KleurCodePositie As %Integer = $ListFind(KleurCodes,IngegevenKenmerken.BodemKleur)
-	
-		If $$$Not(KleurCodePositie = 0) {
-			Set KleurCode = $ListGet(KleurCodes,KleurCodePositie)
-		} Else {
-			Set KleurCode = "XX"
-		}
-	} ElseIf $$$Not(IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig()) {
-		Set KleurCode = IngegevenKenmerken.BodemKleur
-	}
-	
-	Quit KleurCode
-]]></Implementation>
-</Method>
-
-<Method name="GeefTiponBlumotionKleurCodeLBX">
-<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#Define VerwijderSlash(%v) $translate(%v, "/", "")
-	
-	#Dim KleurCode As TECH.String = ""
-	#Dim Rol As TECH.String = ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionEenheid()
-	
 	If (HalffabItemsBoom.BevatRol(Rol)) {
-		#Dim SamengesteldHalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = HalffabItemsBoom.GeefHalffabItem(Rol)
-		#Dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = SamengesteldHalffabItem.GeefHalffabItem("Links")
-		#Dim ProductID As TECH.String = HalffabItem.GeefHalffab().GeefProductID()
-		#Dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID)
+		#dim SamengesteldHalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = HalffabItemsBoom.GeefHalffabItem(Rol)
+		#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = SamengesteldHalffabItem.GeefHalffabItem("Links")
+		#dim ProductID As TECH.String = HalffabItem.GeefHalffab().GeefProductID()
+		#dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID)
 		
 		Set KleurCode = $$$VerwijderSlash(Product.GeefKleurVanKorttekst())
 	}
 	
 	Quit KleurCode
 ]]></Implementation>
 </Method>
+
+<Method name="GeefPPSKleurCodesVoorRol">
+<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Rol:TECH.String,GroepID:TECH.String,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter</FormalSpec>
+<Private>1</Private>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[	Quit DataDefinitie.DataDefinitieGet(GroepID, ..GeefHalffab(HalffabItemsBoom, Rol).GeefProductID(), "Kleur")
+]]></Implementation>
+</Method>
+
+<Method name="GeefHalffab">
+<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Rol:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.Halffab</ReturnType>
+<Implementation><![CDATA[	Quit HalffabItemsBoom.GeefHalffabItem(Rol).GeefHalffab()
+]]></Implementation>
+</Method>
 </Class>