Index: vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/Test.cls.xml
===================================================================
diff -u -r70898 -r74233
--- vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 70898)
+++ vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 74233)
@@ -27,11 +27,11 @@
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
 	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "Tandembox voorraadlade D" _ $$$CRLF, 
-																					"D:500xB:1000; bodem:Licht grijs;" _ $$$CRLF, 
-																					"zijkant:Metaalgrijs; Antaro" _ $$$CRLF, 
+																					"D:500xB:1000; bodem:Lichtgrijs;" _ $$$CRLF, 
+																					"ladezijkant:Metaalgrijs; Antaro" _ $$$CRLF, 
 																					"bevat: gemont. lade; corpusprofiel 30kg;" _ $$$CRLF, 
-																					"BLUMOTION; enkele reling; frontbevest." _ $$$CRLF,
-																					"schroef; afdekkappen" _ $$$CRLF,
+																					"BLUMOTION; reling; frontbevest. schroef;" _ $$$CRLF,
+																					"afdekkappen" _ $$$CRLF,
 																					"verpakt: karton")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
@@ -47,11 +47,11 @@
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
 	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "Tandembox voorraadlade D" _ $$$CRLF, 
 																					"D:500xB:1000; corpusbreedte: 1035;" _ $$$CRLF, 
-																					"wanddikte: 17; bodem:Licht grijs;" _ $$$CRLF, 
-																					"zijkant:Metaalgrijs; Antaro" _ $$$CRLF, 
+																					"wanddikte: 17; bodem:Lichtgrijs;" _ $$$CRLF, 
+																					"ladezijkant:Metaalgrijs; Antaro" _ $$$CRLF, 
 																					"bevat: gemont. lade; corpusprofiel 30kg;" _ $$$CRLF,
-																					"BLUMOTION; enkele reling; frontbevest." _ $$$CRLF,
-																					"schroef; afdekkappen" _ $$$CRLF,
+																					"BLUMOTION; reling; frontbevest. schroef;" _ $$$CRLF,
+																					"afdekkappen" _ $$$CRLF,
 																					"verpakt: karton")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
@@ -66,10 +66,10 @@
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
 	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "Tandembox voorraadlade D" _ $$$CRLF, 
 																					"D:500xB:1000; bodem klant;" _ $$$CRLF, 
-																					"zijkant:Metaalgrijs; Antaro" _ $$$CRLF, 
+																					"ladezijkant:Metaalgrijs; Antaro" _ $$$CRLF, 
 																					"bevat: gemont. lade; corpusprofiel 30kg;" _ $$$CRLF, 
-																					"BLUMOTION; enkele reling; frontbevest." _ $$$CRLF,
-																					"schroef; afdekkappen" _ $$$CRLF, 
+																					"BLUMOTION; reling; frontbevest. schroef;" _ $$$CRLF,
+																					"afdekkappen" _ $$$CRLF, 
 																					"verpakt: karton")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
@@ -86,12 +86,11 @@
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
 	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "Tandembox voorraadlade D" _ $$$CRLF, 
-																					"D:500xB:1000; bodem:Licht grijs;" _ $$$CRLF, 
-																					"zijkant:Metaalgrijs; Antaro" _ $$$CRLF, 
+																					"D:500xB:1000; bodem:Lichtgrijs;" _ $$$CRLF, 
+																					"ladezijkant:Metaalgrijs; Antaro" _ $$$CRLF, 
 																					"bevat: gemont. lade; corpusprofiel 30kg;" _ $$$CRLF, 
-																					"BLUMOTION; enkele reling; frontbevest." _ $$$CRLF,
-																					"schroef; afdekkappen; opvullijsten zwart; 3" _ $$$CRLF, 
-																					"dwarsverdelingen" _ $$$CRLF, 
+																					"BLUMOTION; reling; frontbevest. schroef;" _ $$$CRLF,
+																					"afdekkappen; opvullijsten; 3 dwarsrelingen" _ $$$CRLF,
 																					"verpakt: karton")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
@@ -107,12 +106,12 @@
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
 	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "Tandembox voorraadlade D" _ $$$CRLF, 
-																					"D:500xB:1000; bodem:Licht grijs;" _ $$$CRLF, 
-																					"zijkant:Metaalgrijs; Antaro" _ $$$CRLF, 
+																					"D:500xB:1000; bodem:Lichtgrijs;" _ $$$CRLF, 
+																					"ladezijkant:Metaalgrijs; Antaro" _ $$$CRLF, 
 																					"bevat: gemont. lade; corpusprofiel 30kg;" _ $$$CRLF, 
-																					"BLUMOTION; enkele reling; stabilisator;" _ $$$CRLF,
-																					"frontbevest. schroef; frontstabilisator (2" _ $$$CRLF, 
-																					"st); afdekkappen" _ $$$CRLF, 
+																					"BLUMOTION; reling; zijdelingse" _ $$$CRLF,
+																					"stabilisatie; frontbevest. schroef;" _ $$$CRLF, 
+																					"frontstabilisator (2 st); afdekkappen" _ $$$CRLF, 
 																					"verpakt: karton")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
@@ -126,10 +125,10 @@
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
 	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "Tandembox voorraadlade D" _ $$$CRLF, 
-																					"D:500xB:1000; bodem:Licht grijs;" _ $$$CRLF, 
-																					"zijkant:Metaalgrijs; Antaro" _ $$$CRLF, 
-																					"bevat: gemont. lade; enkele reling;" _ $$$CRLF, 
-																					"frontbevest. schroef; afdekkappen" _ $$$CRLF,
+																					"D:500xB:1000; bodem:Lichtgrijs;" _ $$$CRLF, 
+																					"ladezijkant:Metaalgrijs; Antaro" _ $$$CRLF, 
+																					"bevat: gemont. lade; reling; frontbevest." _ $$$CRLF, 
+																					"schroef; afdekkappen" _ $$$CRLF,
 																					"*** Alleen bodem ***" _ $$$CRLF,
 																					"verpakt: karton")
 	
@@ -144,11 +143,11 @@
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
 	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "Tandembox voorraadlade D" _ $$$CRLF, 
-																					"D:500xB:1000; bodem:Licht grijs;" _ $$$CRLF, 
-																					"zijkant:Metaalgrijs; Antaro" _ $$$CRLF, 
-																					"bevat: gemont. lade; stalenrug;" _ $$$CRLF, 
-																					"corpusprofiel 30kg; BLUMOTION; enkele" _ $$$CRLF,
-																					"reling; frontbevest. schroef; afdekkappen" _ $$$CRLF,
+																					"D:500xB:1000; bodem:Lichtgrijs;" _ $$$CRLF, 
+																					"ladezijkant:Metaalgrijs; Antaro" _ $$$CRLF, 
+																					"bevat: gemont. lade; stalen rugwand;" _ $$$CRLF, 
+																					"corpusprofiel 30kg; BLUMOTION; reling;" _ $$$CRLF,
+																					"frontbevest. schroef; afdekkappen" _ $$$CRLF,
 																					"verpakt: karton")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
@@ -162,36 +161,17 @@
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
 	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "Tandembox voorraadlade D" _ $$$CRLF, 
-																					"D:500xB:1000; bodem:Licht grijs;" _ $$$CRLF, 
-																					"zijkant:Metaalgrijs; Antaro" _ $$$CRLF, 
+																					"D:500xB:1000; bodem:Lichtgrijs;" _ $$$CRLF, 
+																					"ladezijkant:Metaalgrijs; Antaro" _ $$$CRLF, 
 																					"bevat: gemont. lade; corpusprofiel 30kg;" _ $$$CRLF, 
-																					"BLUMOTION; enkele reling; frontbevest." _ $$$CRLF,
-																					"schroef; afdekkappen; verlaagde rug" _ $$$CRLF,
+																					"BLUMOTION; reling; frontbevest. schroef;" _ $$$CRLF,
+																					"afdekkappen; verlaagde rug" _ $$$CRLF,
 																					"verpakt: karton")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: StandaardLade D met inschuifelement ">
-<Implementation><![CDATA[
-	Set ..TbxKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).StandaardLadeVoorHerwerkingBOMBOL()
-	Set ..TbxKenmerken.ZijwandVerhogingType = ..Enum.ZijwandVerhogingType.InschuifElement
-	Set ..TbxKenmerken.LegacyKenmerken.ItemKV = "ALU.MG"
-	
-	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
-	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "Tandembox voorraadlade D" _ $$$CRLF, 
-																					"D:500xB:1000; bodem:Licht grijs;" _ $$$CRLF, 
-																					"zijkant:Metaalgrijs; Antaro" _ $$$CRLF, 
-																					"bevat: gemont. lade; corpusprofiel 30kg;" _ $$$CRLF, 
-																					"BLUMOTION; Inschuifelement Alu MG 8mm;" _ $$$CRLF,
-																					"frontbevest. schroef; afdekkappen" _ $$$CRLF,
-																					"verpakt: karton")
-	
-	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
-]]></Implementation>
-</Method>
-
 <Method name="Test: StandaardLade D met inschuifelement met niet meeleveren inschuifelement">
 <Implementation><![CDATA[
 	Set ..TbxKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).StandaardLadeVoorHerwerkingBOMBOL()
@@ -206,8 +186,8 @@
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst(VerwijderdeHalffabItemsOpHalffabItemsBoom)
 	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "Tandembox voorraadlade D" _ $$$CRLF, 
-																					"D:500xB:1000; bodem:Licht grijs;" _ $$$CRLF, 
-																					"zijkant:Metaalgrijs; Antaro" _ $$$CRLF, 
+																					"D:500xB:1000; bodem:Lichtgrijs;" _ $$$CRLF, 
+																					"ladezijkant:Metaalgrijs; Antaro" _ $$$CRLF, 
 																					"bevat: gemont. lade; corpusprofiel 30kg;" _ $$$CRLF, 
 																					"BLUMOTION; frontbevest. schroef; afdekkappen" _ $$$CRLF,
 																					"verpakt: karton" _ $$$CRLF,
@@ -225,12 +205,11 @@
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
 	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "Tandembox voorraadlade D" _ $$$CRLF, 
-																					"D:650xB:239; bodem:Licht grijs;" _ $$$CRLF, 
-																					"zijkant:Metaalgrijs; Antaro" _ $$$CRLF,
+																					"D:650xB:239; bodem:Lichtgrijs;" _ $$$CRLF, 
+																					"ladezijkant:Metaalgrijs; Antaro" _ $$$CRLF,
 																					"bevat: gemont. lade; corpusprofiel 65kg;" _ $$$CRLF, 
-																					"BLUMOTION; enkele reling; frontbevest." _ $$$CRLF, 
-																					"ALU/volkern; afdekkappen; opvullijsten" _ $$$CRLF, 
-																					"Platina zilvergrijs; 3 dwarsverdelingen" _ $$$CRLF, 
+																					"BLUMOTION; reling; frontbevest. ALU;" _ $$$CRLF, 
+																					"afdekkappen; opvullijsten; 3 dwarsrelingen" _ $$$CRLF, 
 																					"verpakt: Probox")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
@@ -247,11 +226,11 @@
 	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "Spoelbak B-voorraadlade" _ $$$CRLF, 
 																					"(lage reling)" _ $$$CRLF, 
 																					"D:500xB:887; spoelbakopening = 172mm" _ $$$CRLF,
-																					"(351/172/364); bodem:Licht grijs;" _ $$$CRLF, 
-																					"zijkant:Metaalgrijs; Antaro" _ $$$CRLF,
+																					"(351/172/364); bodem:Lichtgrijs;" _ $$$CRLF, 
+																					"ladezijkant:Metaalgrijs; Antaro" _ $$$CRLF,
 																					"bevat: gemont. lade; corpusprofiel 65kg;" _ $$$CRLF,
-																					"BLUMOTION; enkele reling; frontbevest." _ $$$CRLF,
-																					"Drevel; afdekkappen; verlaagde rug" _ $$$CRLF,
+																					"BLUMOTION; reling; frontbevest. Drevel;" _ $$$CRLF,
+																					"afdekkappen; verlaagde rug" _ $$$CRLF,
 																					"verpakt: karton")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
@@ -265,11 +244,11 @@
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
 	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "Sifonlade BY (type 3)" _ $$$CRLF, 
 																					"D:500xB:600; sifonopening = 160mm" _ $$$CRLF, 
-																					"(200/160/240); bodem:Licht grijs;" _ $$$CRLF, 
-																					"zijkant:Metaalgrijs; Antaro" _ $$$CRLF,
+																					"(200/160/240); bodem:Lichtgrijs;" _ $$$CRLF, 
+																					"ladezijkant:Metaalgrijs; Antaro" _ $$$CRLF,
 																					"bevat: gemont. lade; corpusprofiel 30kg;" _ $$$CRLF,
-																					"BLUMOTION; enkele reling; frontbevest." _ $$$CRLF,
-																					"schroef; afdekkappen; verlaagde rug" _ $$$CRLF,
+																					"BLUMOTION; reling; frontbevest. schroef;" _ $$$CRLF,
+																					"afdekkappen; verlaagde rug" _ $$$CRLF,
 																					"verpakt: karton")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
@@ -283,11 +262,11 @@
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
 	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "Sifonlade CMY (type 3)" _ $$$CRLF, 
 																					"D:600xB:1051; sifonopeningen = 160mm 160mm" _ $$$CRLF, 
-																					"(175/160/260/160/296); bodem:Licht grijs;" _ $$$CRLF, 
-																					"zijkant:Metaalgrijs; Antaro" _ $$$CRLF,
+																					"(175/160/260/160/296); bodem:Lichtgrijs;" _ $$$CRLF, 
+																					"ladezijkant:Metaalgrijs; Antaro" _ $$$CRLF,
 																					"bevat: gemont. lade; corpusprofiel 30kg;" _ $$$CRLF,
-																					"BLUMOTION; enkele reling; frontbevest." _ $$$CRLF,
-																					"schroef; afdekkappen; verlaagde rug" _ $$$CRLF,
+																					"BLUMOTION; reling; frontbevest. schroef;" _ $$$CRLF,
+																					"afdekkappen; verlaagde rug" _ $$$CRLF,
 																					"antislip-fiber inlegmat zwart" _ $$$CRLF,
 																					"verpakt: karton")
 	
@@ -301,8 +280,8 @@
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
 	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "Tandembox binnenlade K" _ $$$CRLF, 
-																					"D:270xB:1163; bodem:Licht grijs;" _ $$$CRLF, 
-																					"zijkant:Metaalgrijs; Antaro" _ $$$CRLF,
+																					"D:270xB:1163; bodem:Lichtgrijs;" _ $$$CRLF, 
+																					"ladezijkant:Metaalgrijs; Antaro" _ $$$CRLF,
 																					"bevat: gemont. lade; corpusprofiel 30kg;" _ $$$CRLF, 
 																					"BLUMOTION; afdekkappen; front met greep en" _ $$$CRLF,
 																					"meenemer" _ $$$CRLF,
@@ -350,10 +329,10 @@
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst(VerwijderdeHalffabItemsOpHalffabItemsBoom)
 	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "Tandembox voorraadlade D" _ $$$CRLF, 
-																					"D:500xB:1000; bodem:Licht grijs;" _ $$$CRLF, 
-																					"zijkant:Metaalgrijs; Antaro" _ $$$CRLF,
+																					"D:500xB:1000; bodem:Lichtgrijs;" _ $$$CRLF, 
+																					"ladezijkant:Metaalgrijs; Antaro" _ $$$CRLF,
 																					"bevat: gemont. lade; TIP-ON BLUMOTION" _ $$$CRLF, 
-																					"T60B313 R7035 lichtgrijs; enkele reling" _ $$$CRLF, 
+																					"T60B313 R7035 lichtgrijs; reling" _ $$$CRLF, 
 																					"verpakt: karton"_ $$$CRLF,
 																					"niet meegeleverd: afdekkappen;"_ $$$CRLF,
 																					"frontondersteuning; Frontbevestiging;"_ $$$CRLF,