Index: vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml
===================================================================
diff -u -r62721 -r62725
--- vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 62721)
+++ vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 62725)
@@ -25,10 +25,14 @@
 <Implementation><![CDATA[
 	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade()
 	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.N
+	Set ..MVXKenmerken.RugHoogte = ..Enum.RugHoogte.N
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX lade N" _ $$$CRLF, 
+																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
+																					"ladezijkant:Orion grijs; bevat: gemont. lade")
 	
-	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX lade N" _ $$$CRLF _ "D:500xB:600")
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
 </Method>
 
@@ -37,8 +41,11 @@
 	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade()
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX lade M" _ $$$CRLF, 
+																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
+																					"ladezijkant:Orion grijs; bevat: gemont. lade")
 	
-	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX lade M" _ $$$CRLF _ "D:500xB:600")
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
 </Method>
 
@@ -48,18 +55,42 @@
 	Set ..MVXKenmerken.RugWandMateriaal = ..Enum.RugWandMateriaal.Staal
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX lade M" _ $$$CRLF, 
+																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
+																					"ladezijkant:Orion grijs; stalen rugwand;" _ $$$CRLF, 
+																					"bevat: gemont. lade")
 	
-	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX lade M" _ $$$CRLF _ "D:500xB:600")
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
 </Method>
 
+<Method name="Test: StandaardLade M met stalen rug en afwijkende RugHoogte =&gt; RugHoogte vermeld">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade()
+	Set ..MVXKenmerken.RugHoogte = ..Enum.RugHoogte.N
+	Set ..MVXKenmerken.RugWandMateriaal = ..Enum.RugWandMateriaal.Staal
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX lade M" _ $$$CRLF, 
+																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
+																					"ladezijkant:Orion grijs; stalen rugwand;" _ $$$CRLF, 
+																					"rugwand hoogte N; bevat: gemont. lade")
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Standaard Binnenlade M">
 <Implementation><![CDATA[
 	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardBinnenlade()
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX binnenlade M" _ $$$CRLF, 
+																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
+																					"ladezijkant:Orion grijs; bevat: gemont." _ $$$CRLF, 
+																					"lade; gesloten voorstuk")
 	
-	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX binnenlade M" _ $$$CRLF _ "D:500xB:600")
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
 </Method>
 
@@ -69,127 +100,252 @@
 	Set ..MVXKenmerken.RugWandMateriaal = ..Enum.RugWandMateriaal.Staal
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX binnenlade M" _ $$$CRLF, 
+																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
+																					"ladezijkant:Orion grijs; stalen rugwand;" _ $$$CRLF, 
+																					"bevat: gemont. lade; gesloten voorstuk")
 	
-	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX binnenlade M" _ $$$CRLF _ "D:500xB:600")
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: StandaardLade E">
+<Method name="Test: Standaard Binnenlade M met stalen rug en afwijkende RugHoogte =&gt; RugHoogte vermeld">
 <Implementation><![CDATA[
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardBinnenlade()
+	Set ..MVXKenmerken.RugHoogte = ..Enum.RugHoogte.N
+	Set ..MVXKenmerken.RugWandMateriaal = ..Enum.RugWandMateriaal.Staal
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX binnenlade M" _ $$$CRLF, 
+																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
+																					"ladezijkant:Orion grijs; stalen rugwand;" _ $$$CRLF, 
+																					"rugwand hoogte N; bevat: gemont. lade;" _ $$$CRLF, 
+																					"gesloten voorstuk")
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
+]]></Implementation>
+</Method>
+
+<Method name="Test: StandaardLade E en afwijkende RugHoogte =&gt; RugHoogte vermeld">
+<Implementation><![CDATA[
 	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade()
 	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
 	Set ..MVXKenmerken.ZijwandType = ""
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX lade E" _ $$$CRLF, 
+																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
+																					"ladezijkant:Orion grijs; rugwand hoogte M;" _ $$$CRLF, 
+																					"bevat: gemont. lade")
 	
-	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX lade E" _ $$$CRLF _ "D:500xB:600")
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: StandaardLade E pure =&gt; Bij combinatie LadeHoogte = E en ZijwandType = Pure">
+<Method name="Test: StandaardLade E pure =&gt; Pure = combinatie LadeHoogte = E en ZijwandType = Pure">
 <Implementation><![CDATA[
 	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade()
 	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
+	Set ..MVXKenmerken.RugHoogte = ..Enum.RugHoogte.E
 	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX pure lade E" _ $$$CRLF, 
+																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
+																					"ladezijkant:Orion grijs; bevat: gemont. lade")
 	
-	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX pure lade E" _ $$$CRLF _ "D:500xB:600")
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: StandaardLade E pure met stalen rug">
 <Implementation><![CDATA[
 	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade()
 	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
+	Set ..MVXKenmerken.RugHoogte = ..Enum.RugHoogte.E
 	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
 	Set ..MVXKenmerken.RugWandMateriaal = ..Enum.RugWandMateriaal.Staal
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX pure lade E" _ $$$CRLF, 
+																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
+																					"ladezijkant:Orion grijs; stalen rugwand;" _ $$$CRLF, 
+																					"bevat: gemont. lade")
 	
-	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX pure lade E" _ $$$CRLF _ "D:500xB:600")
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
 </Method>
 
+<Method name="Test: StandaardLade E pure met stalen rug en afwijkende RugHoogte =&gt; RugHoogte vermeld">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade()
+	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
+	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
+	Set ..MVXKenmerken.RugWandMateriaal = ..Enum.RugWandMateriaal.Staal
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX pure lade E" _ $$$CRLF, 
+																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
+																					"ladezijkant:Orion grijs; stalen rugwand;" _ $$$CRLF, 
+																					"rugwand hoogte M; bevat: gemont. lade")
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Standaard Binnenlade E pure">
 <Implementation><![CDATA[
 	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardBinnenlade()
 	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
+	Set ..MVXKenmerken.RugHoogte = ..Enum.RugHoogte.E
 	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX pure" _ $$$CRLF, 
+																					"binnenlade E" _ $$$CRLF, 
+																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
+																					"ladezijkant:Orion grijs; bevat: gemont." _ $$$CRLF, 
+																					"lade; gesloten voorstuk")
 	
-	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX pure" _ $$$CRLF _ "binnenlade E" _ $$$CRLF _ "D:500xB:600")
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Standaard Binnenlade E pure met stalen rug">
 <Implementation><![CDATA[
 	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardBinnenlade()
 	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
+	Set ..MVXKenmerken.RugHoogte = ..Enum.RugHoogte.E
 	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
 	Set ..MVXKenmerken.RugWandMateriaal = ..Enum.RugWandMateriaal.Staal
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX pure" _ $$$CRLF, 
+																					"binnenlade E" _ $$$CRLF, 
+																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
+																					"ladezijkant:Orion grijs; stalen rugwand;" _ $$$CRLF, 
+																					"bevat: gemont. lade; gesloten voorstuk")
 	
-	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX pure" _ $$$CRLF _ "binnenlade E" _ $$$CRLF _ "D:500xB:600")
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Standaard Binnenlade E pure met stalen rug en afwijkende RugHoogte =&gt; RugHoogte vermeld">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardBinnenlade()
+	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
+	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
+	Set ..MVXKenmerken.RugWandMateriaal = ..Enum.RugWandMateriaal.Staal
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX pure" _ $$$CRLF, 
+																					"binnenlade E" _ $$$CRLF, 
+																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
+																					"ladezijkant:Orion grijs; stalen rugwand;" _ $$$CRLF, 
+																					"rugwand hoogte M; bevat: gemont. lade;" _ $$$CRLF, 
+																					"gesloten voorstuk")
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Standaard Sifonlade M">
 <Implementation><![CDATA[
 	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardSifonLade()
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX Sifonlade M" _ $$$CRLF, 
+																					"D:500xB:600" _ $$$CRLF, 
+																					"sifonopening = 160mm (230/160/210);" _ $$$CRLF, 
+																					"bodem:Orion grijs; ladezijkant:Orion grijs;" _ $$$CRLF, 
+																					"bevat: gemont. lade")
 	
-	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX Sifonlade M" _ $$$CRLF _ "D:500xB:600" _ $$$CRLF _ "sifonopening = 160mm (230/160/210)")
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Standaard Sifonlade M en afwijkende RugHoogte =&gt; RugHoogte vermeld">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardSifonLade()
+	Set ..MVXKenmerken.RugHoogte = ..Enum.RugHoogte.N
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX Sifonlade M" _ $$$CRLF, 
+																					"D:500xB:600" _ $$$CRLF, 
+																					"sifonopening = 160mm (230/160/210);" _ $$$CRLF, 
+																					"bodem:Orion grijs; ladezijkant:Orion grijs;" _ $$$CRLF, 
+																					"rugwand hoogte N; bevat: gemont. lade")
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Standaard Sifon Binnenlade M">
 <Implementation><![CDATA[
 	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardSifonLade()
 	Set ..MVXKenmerken.IsBinnenlade = $$$True
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX Sifon" _ $$$CRLF, 
+																					"binnenlade M" _ $$$CRLF, 
+																					"D:500xB:600" _ $$$CRLF, 
+																					"sifonopening = 160mm (230/160/210);" _ $$$CRLF, 
+																					"bodem:Orion grijs; ladezijkant:Orion grijs;" _ $$$CRLF, 
+																					"bevat: gemont. lade")
 	
-	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX Sifon" _ $$$CRLF _ "binnenlade M" _ $$$CRLF _ "D:500xB:600" _ $$$CRLF _ "sifonopening = 160mm (230/160/210)")
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Standaard Sifonlade E pure">
+<Method name="Test: Standaard Sifonlade E pure en afwijkende RugHoogte =&gt; RugHoogte vermeld">
 <Implementation><![CDATA[
 	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardSifonLade()
 	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
 	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX pure Sifonlade E" _ $$$CRLF, 
+																					"D:500xB:600" _ $$$CRLF, 
+																					"sifonopening = 160mm (230/160/210);" _ $$$CRLF, 
+																					"bodem:Orion grijs; ladezijkant:Orion grijs;" _ $$$CRLF, 
+																					"rugwand hoogte M; bevat: gemont. lade")
 	
-	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX pure Sifonlade E" _ $$$CRLF _ "D:500xB:600" _ $$$CRLF _ "sifonopening = 160mm (230/160/210)")
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Standaard hoge Sifonlade E pure">
+<Method name="Test: Standaard HOGE Sifonlade E pure =&gt; RugHoogte wel vermeld ondanks niet afwijkend">
 <Implementation><![CDATA[
 	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardHogeSifonLade()
 	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX pure Sifonlade E" _ $$$CRLF, 
+																					"D:500xB:600" _ $$$CRLF, 
+																					"sifonopening = 350mm (130/350/120);" _ $$$CRLF, 
+																					"bodem:Orion grijs; ladezijkant:Orion grijs;" _ $$$CRLF, 
+																					"rugwand hoogte E; bevat: gemont. lade")
 	
-	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX pure Sifonlade E" _ $$$CRLF _ "D:500xB:600" _ $$$CRLF _ "sifonopening = 350mm (230/350/210)")
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Standaard Sifon Binnenlade E pure">
+<Method name="Test: Standaard Sifon Binnenlade E pure en afwijkende RugHoogte =&gt; RugHoogte vermeld">
 <Implementation><![CDATA[
 	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardSifonLade()
 	Set ..MVXKenmerken.IsBinnenlade = $$$True
 	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
 	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX pure Sifon" _ $$$CRLF, 
+																					"binnenlade E" _ $$$CRLF, 
+																					"D:500xB:600" _ $$$CRLF, 
+																					"sifonopening = 160mm (230/160/210);" _ $$$CRLF, 
+																					"bodem:Orion grijs; ladezijkant:Orion grijs;" _ $$$CRLF, 
+																					"rugwand hoogte M; bevat: gemont. lade")
 	
-	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX pure Sifon" _ $$$CRLF _ "binnenlade E" _ $$$CRLF _ "D:500xB:600" _ $$$CRLF _ "sifonopening = 160mm (230/160/210)")
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
 </Method>
 
@@ -198,20 +354,31 @@
 	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardSpoelbakLade()
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX Spoelbaklade" _ $$$CRLF, 
+																					"D:500xB:600" _ $$$CRLF, 
+																					"Spoelbakopening = 470mm (70/470/60);" _ $$$CRLF, 
+																					"bodem:Orion grijs; ladezijkant:Orion grijs;" _ $$$CRLF, 
+																					"bevat: gemont. lade")
 	
-	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX Spoelbaklade" _ $$$CRLF _ "D:500xB:600" _ $$$CRLF _ "Spoelbakopening = 470mm (230/470/210)")
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Standaard Spoelbaklade pure =&gt; is E-lade">
+<Method name="Test: Standaard Spoelbaklade pure =&gt; is E-lade met afwijkende RugHoogte =&gt; RugHoogte vermeld">
 <Implementation><![CDATA[
 	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardSpoelbakLade()
 	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
 	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX pure" _ $$$CRLF, 
+																					"Spoelbaklade" _ $$$CRLF, 
+																					"D:500xB:600" _ $$$CRLF, 
+																					"Spoelbakopening = 470mm (70/470/60);" _ $$$CRLF, 
+																					"bodem:Orion grijs; ladezijkant:Orion grijs;" _ $$$CRLF, 
+																					"rugwand hoogte M; bevat: gemont. lade")
 	
-	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX pure" _ $$$CRLF _ "Spoelbaklade" _ $$$CRLF _ "D:500xB:600" _ $$$CRLF _ "Spoelbakopening = 470mm (230/470/210)")
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
 </Method>