Index: DOM/PM/impl/TBXLangtekstCreator.cls.xml
===================================================================
diff -u -r70898 -r74233
--- DOM/PM/impl/TBXLangtekstCreator.cls.xml	(.../TBXLangtekstCreator.cls.xml)	(revision 70898)
+++ DOM/PM/impl/TBXLangtekstCreator.cls.xml	(.../TBXLangtekstCreator.cls.xml)	(revision 74233)
@@ -50,7 +50,7 @@
 
 <Method name="BepaalHoofding">
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..LangtekstHoofding = ##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.LadeCode",..IngegevenKenmerken.LegacyKenmerken.ItemLT, ..Taal)
+<Implementation><![CDATA[	Set ..LangtekstHoofding = ..Vertaler.GeefVertaling("TandemboxLadeCode_"_..IngegevenKenmerken.LegacyKenmerken.ItemLT)
 ]]></Implementation>
 </Method>
 
@@ -93,7 +93,7 @@
 	
 	Set Paragraaf = Paragraaf _ ..GeefZijwandTekst()
 	Set Paragraaf = Paragraaf _ ..GeefZijstabiliseringTekst()
-	Set Paragraaf = Paragraaf _ ..GeefFrontBevestigingTekst()
+	Set Paragraaf = Paragraaf _ ..GeefTekstFrontBevestiging()
 	Set Paragraaf = Paragraaf _ ..GeefFrontSteunTekst()
 	Set Paragraaf = Paragraaf _ ..GeefAfdekkapTekst()
 	Set Paragraaf = Paragraaf _ ..GeefOpvullijstTekst()
@@ -145,9 +145,9 @@
 	#dim IsPlaatMateriaalKlant As %Boolean = ($E(..IngegevenKenmerken.PlaatMateriaal) = "K")
 	
 	If (IsPlaatMateriaalKlant) {
-		Set BodemTekst = ##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.PlaatMat", ..IngegevenKenmerken.PlaatMateriaal, ..Taal)
+		Set BodemTekst = ..Vertaler.GeefVertaling("TandemboxPlaatMateriaal_"_..IngegevenKenmerken.PlaatMateriaal)
 	} Else {
-		Set BodemTekst = ##class(Prod.GAMeta.BT.TBBodemKleur).TaalAfhOmsClass("", ..IngegevenKenmerken.BodemKleur, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+		Set BodemTekst = ..Vertaler.GeefVertaling("Bodem") _ ":" _ ..GeefKleurBinnen()
 	}
 	
 	Quit ..#KenmerkSeparator _ BodemTekst
@@ -160,9 +160,9 @@
 <Implementation><![CDATA[
 	#dim DesignTekst As TECH.String = ""
 	
-	Set DesignTekst = ##class(Prod.GAMeta.BT.TBLadeKleur).TaalAfhOmsClass("", ..IngegevenKenmerken.LadeKleur, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+	Set DesignTekst = ..Vertaler.GeefVertaling("ladezijkant", "", $$$True) _ ":" _ ..GeefKleurBuiten()
 	Set DesignTekst = DesignTekst _ ..#KenmerkSeparator
-	Set DesignTekst = DesignTekst _	##class(Prod.GAMeta.BT.TBDesignCode).TaalAfhOmsClass("", ..IngegevenKenmerken.LegacyKenmerken.ItemDC, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+	Set DesignTekst = DesignTekst _	..Vertaler.GeefVertaling("TandemboxDesignCode_"_..IngegevenKenmerken.LegacyKenmerken.ItemDC)
 	
 	Quit ..#KenmerkSeparator _ DesignTekst
 ]]></Implementation>
@@ -175,7 +175,7 @@
 	#dim StalenRugTekst As TECH.String = ""
 	
 	If (..HeeftStalenRug()) {
-		Set StalenRugTekst = ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBStalenRug).TaalAfhOmsClass("", "V", ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+		Set StalenRugTekst = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("StalenRug")
 	}
 	
 	Quit StalenRugTekst
@@ -239,13 +239,9 @@
 	#dim ZijwandTekst As %String = ""
 	
 	If ((..IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling()) && $$$Not(##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, ..Enum.Rol.RelingZijkant))) {
-		Set ZijwandTekst = ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBBoxSide).TaalAfhOmsClass("", "ER", ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+		Set ZijwandTekst = ..#KenmerkSeparator _..Vertaler.GeefVertaling("Reling")
 	}
-	If ((..IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement()) && $$$Not(##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, ..Enum.Rol.InschuifElement))) {
-		Set ZijwandTekst = ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBBoxSide).TaalAfhOmsClass("", "INSCHF", ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
-		Set ZijwandTekst = ZijwandTekst _ " " _ ##class(Prod.GAMeta.BT.TBVulstukKleur).TaalAfhOmsClass("", ..IngegevenKenmerken.LegacyKenmerken.ItemKV, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
-	}
-	
+	//Zijwandtype inschuifelement bestaat niet meer
 	Quit ZijwandTekst
 ]]></Implementation>
 </Method>
@@ -257,21 +253,21 @@
 	#dim ZijstabiliseringTekst As %String = ""
 	
 	If (..IngegevenKenmerken.HeeftZijstabilisering) {
-		Set ZijstabiliseringTekst = ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBStabilisator).TaalAfhOmsClass("", $$$True, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+		Set ZijstabiliseringTekst = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("Zijstabilisering")
 	}
 	
 	Quit ZijstabiliseringTekst
 ]]></Implementation>
 </Method>
 
-<Method name="GeefFrontBevestigingTekst">
+<Method name="GeefTekstFrontBevestiging">
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	#dim FrontBevestigingTekst As %String = ""
 	
 	If ($$$Not(..IngegevenKenmerken.IsBinnenlade) &&  $$$Not(##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, ..Enum.Rol.FrontBevestiging))) {
-		Set FrontBevestigingTekst =  ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBFBevestiging).TaalAfhOmsClass("", ..IngegevenKenmerken.FrontBevestiging, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+		Set FrontBevestigingTekst =  ..#KenmerkSeparator _ ..GeefFrontBevestigingTekst()
 	}
 	
 	Quit FrontBevestigingTekst
@@ -286,9 +282,9 @@
 	
 	If (##class(TECH.StringUtils).Equals(..IngegevenKenmerken.FrontOndersteuningType, ##class(DOM.PM.enu.TBXFrontOndersteuningType).FrontStabilisator() ,##class(DOM.PM.enu.TBXFrontOndersteuningType).FrontSteunMetSchroeven())) {
 		If (..IngegevenKenmerken.FrontOndersteuningAantal > 0 ) {
-			Set FrontSteuntTekst = ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBFrontSteun).TaalAfhOmsClass("", ..IngegevenKenmerken.FrontOndersteuningAantal, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+			Set FrontSteuntTekst = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("TandemboxFrontStabilisator_"_..IngegevenKenmerken.FrontOndersteuningAantal)
 		} Else {
-			Set FrontSteuntTekst = ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBFrontSteun).TaalAfhOmsClass("", ..IngegevenKenmerken.FrontOndersteuningType, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+			Set FrontSteuntTekst = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("TandemboxFrontSteunMetSchroeven")
 		}
 	}
 	
@@ -303,7 +299,7 @@
 	#dim AfdekkapTekst As TECH.String = ""
 	
 	If $$$Not(##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, ..Enum.Rol.Afdekkap)) { 
-		Set AfdekkapTekst = ..#KenmerkSeparator _ ##class(Res.Vertaling).GetVertaling("TB","LT-AFDEKKAP","O",..Taal, , 1)
+		Set AfdekkapTekst = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("Afdekkap")
 	}
 	
 	Quit AfdekkapTekst
@@ -322,8 +318,6 @@
 		If (..IngegevenKenmerken.HeeftOpvullijstLinks && ..IngegevenKenmerken.HeeftOpvullijstRechts) {
 			Set OpvullijstTekst = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("Opvullijsten")
 		}
-		
-		Set OpvullijstTekst = OpvullijstTekst _" "_ ##class(Prod.GAMeta.BT.TBOpvullijstKleur).TaalAfhOmsClass("", ..IngegevenKenmerken.OpvullijstKleur, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
 	}
 	
 	Quit OpvullijstTekst
@@ -337,7 +331,8 @@
 	#dim DwarsverdelingTekst As TECH.String = ""
 	
 	If $$$Not(..IngegevenKenmerken.DwarsverdelingAantal = 0) { 
-		Set DwarsverdelingTekst = ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBDwarsVerdeling).TaalAfhOmsClass("", ..IngegevenKenmerken.DwarsverdelingAantal, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+		#dim VertaalSleutel As TECH.String = "Langtekst_Dwarsverdeling" _ $Select(..IngegevenKenmerken.DwarsverdelingAantal > 1:"en", 1:"")
+		Set DwarsverdelingTekst = ..#KenmerkSeparator _ ..IngegevenKenmerken.DwarsverdelingAantal _ " " _ ..Vertaler.GeefVertaling(VertaalSleutel)
 	}
 	
 	Quit DwarsverdelingTekst
@@ -351,7 +346,7 @@
 	#dim GreepBinnenladeTekst As TECH.String = ""
 	
 	If (..IngegevenKenmerken.IsBinnenlade && (..IngegevenKenmerken.LegacyKenmerken.ItemBGRP'?1(1"X",1"Z",1"H"))) { 
-		Set GreepBinnenladeTekst = ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBBinnenGreep).TaalAfhOmsClass("", ..IngegevenKenmerken.LegacyKenmerken.ItemBGRP, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+		Set GreepBinnenladeTekst = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("TandemboxGreepEnMeenemer_"_..IngegevenKenmerken.LegacyKenmerken.ItemBGRP) //'Z' = greep, 'M' = greep en meenemer
 	}
 	
 	Quit GreepBinnenladeTekst
@@ -365,7 +360,7 @@
 	#dim VerlaagdeRugTekst As TECH.String = ""
 	
 	If (..IsAfwijkendeRugHoogte()) { 
-		Set VerlaagdeRugTekst = ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBRugStukVerlaagd).TaalAfhOmsClass("", ..IngegevenKenmerken.RugHoogte, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+		Set VerlaagdeRugTekst = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("Tandembox_VerlaagdeRug")
 	}
 	
 	Quit VerlaagdeRugTekst
@@ -379,7 +374,7 @@
 	#dim ProductiewijzeTekst As TECH.String = ""
 	
 	If $$$Not(..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TBXProductieWijze).Volledig()) { 
-		Set ProductiewijzeTekst = "*** " _ ##class(Prod.GAMeta.BT.TBOndSpecial).TaalAfhOmsClass("", ..IngegevenKenmerken.ProductieWijze, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC) _" ***"
+		Set ProductiewijzeTekst = "*** " _ ..Vertaler.GeefVertaling("Tandembox_ProductieWijze_"_..IngegevenKenmerken.ProductieWijze) _" ***"
 	}
 	
 	Quit ProductiewijzeTekst
@@ -424,6 +419,38 @@
 	Quit VerpakkingType
 ]]></Implementation>
 </Method>
+
+<Method name="GeefKleurBinnen">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim KleurCode As %String = ..IngegevenKenmerken.BodemKleur
+	Quit ..GeefKleurOmschrijving(KleurCode)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKleurBuiten">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim KleurCode As %String = ..IngegevenKenmerken.LadeKleur
+	Quit ..GeefKleurOmschrijving(KleurCode)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKleurOmschrijving">
+<FormalSpec>KleurCode:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim TeVertalenKleurCode As %String = KleurCode
+	
+	//Oude kleuren waarvan kleurcode overschreven is door TAOR
+	Set:(TeVertalenKleurCode = "SW") TeVertalenKleurCode = "SEIW"
+	
+	Quit ..KleurCodeVertaler.GeefVertaling(TeVertalenKleurCode)
+]]></Implementation>
+</Method>
 </Class>