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>
 
Index: vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/MVXKenmerken.cls.xml
===================================================================
diff -u -r62719 -r62725
--- vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/MVXKenmerken.cls.xml	(.../MVXKenmerken.cls.xml)	(revision 62719)
+++ vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/MVXKenmerken.cls.xml	(.../MVXKenmerken.cls.xml)	(revision 62725)
@@ -119,9 +119,9 @@
 	Set MvxKenmerken.LadeHoogte = ##class(DOM.PM.enu.MVXLadeHoogte).E()
 	Set MvxKenmerken.RugHoogte = ##class(DOM.PM.enu.MVXRugHoogte).E()
 	Set MvxKenmerken.UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel()
-	Set MvxKenmerken.UitsparingData.RugDeelX = 230
+	Set MvxKenmerken.UitsparingData.RugDeelX = 130
 	Set MvxKenmerken.UitsparingData.UitsparingZ1 = ##class(DOM.PM.enu.UitsparingCode).MvxD240B350()
-	Set MvxKenmerken.UitsparingData.RugDeelY = 210
+	Set MvxKenmerken.UitsparingData.RugDeelY = 120
 	
 	Quit MvxKenmerken
 ]]></Implementation>
@@ -136,9 +136,9 @@
   	Set MvxKenmerken.Toepassing = ##class(DOM.PM.enu.MVXToepassing).Spoelbak()
 	Set MvxKenmerken.RugHoogte = ##class(DOM.PM.enu.MVXRugHoogte).M()
 	Set MvxKenmerken.UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel()
-	Set MvxKenmerken.UitsparingData.RugDeelX = 230
+	Set MvxKenmerken.UitsparingData.RugDeelX = 70
 	Set MvxKenmerken.UitsparingData.UitsparingZ1 = ##class(DOM.PM.enu.UitsparingCode).MvxD350B470()
-	Set MvxKenmerken.UitsparingData.RugDeelY = 210
+	Set MvxKenmerken.UitsparingData.RugDeelY = 60
 	
 	Quit MvxKenmerken
 ]]></Implementation>
Index: DOM/PM/impl/MVXLangtekstCreator.cls.xml
===================================================================
diff -u -r62721 -r62725
--- DOM/PM/impl/MVXLangtekstCreator.cls.xml	(.../MVXLangtekstCreator.cls.xml)	(revision 62721)
+++ DOM/PM/impl/MVXLangtekstCreator.cls.xml	(.../MVXLangtekstCreator.cls.xml)	(revision 62725)
@@ -53,7 +53,7 @@
 <Method name="VoegToeBasisGegevens">
 <Private>1</Private>
 <Implementation><![CDATA[
-	#Dim Paragraaf As TECH.String = ""
+	#Dim Paragraaf As TECH.String
 	
 	If (..IsSpoelbaklade()) {
 		Do ..VoegToeLangtekstParagraaf(..GeefDimensieTekst())
@@ -78,60 +78,33 @@
 		Set Paragraaf = ..GeefDimensieTekst()
 	}
 	
-	Do ..VoegToeLangtekstParagraaf(Paragraaf)
-	
-	/*
-	#Dim Paragraaf As TECH.String
-	
-	If (..IsSpoelbaklade()) {
-		Do ..VoegToeLangtekstParagraaf(" 2 x " _ ..IngegevenKenmerken.LadeHoogte _ ..#KenmerkSeparator _ ..GeefDimensieTekst() _ ..#KenmerkSeparator)
-		
-		#Dim AfmetingUitsparing As %Decimal = ..SpoelbakAfmetingBepaler.GeefAfmetingUitsparing(..IngegevenKenmerken)
-		#Dim AfmetingZijstukLinks As %Decimal = ..SpoelbakAfmetingBepaler.GeefAfmetingZijstukLinks(..IngegevenKenmerken)
-		#Dim AfmetingZijstukRechts As %Decimal = ..SpoelbakAfmetingBepaler.GeefAfmetingZijstukRechts(..IngegevenKenmerken)
-		
-		Set Paragraaf = ..Vertaler.GeefVertaling("Spoelbakopening") _ " = " _ AfmetingUitsparing _ "mm (" _ AfmetingZijstukLinks _ "/" _ AfmetingUitsparing _ "/" _ AfmetingZijstukRechts _ ")"
-	} ElseIf (..IsSifonlade()) {
-		Do ..VoegToeLangtekstParagraaf(..GeefDimensieTekst())
-		
-		#Dim UitsparingTekstFormatterInput As DOM.PM.Maatwerk.impl.UitsparingTekstFormatterInput = ##class(DOM.PM.Maatwerk.impl.UitsparingTekstFormatterInput).%New()
-		Set UitsparingTekstFormatterInput.UitsparingData = ..IngegevenKenmerken.UitsparingData
-		Set UitsparingTekstFormatterInput.Taal = ..Taal
-		Set UitsparingTekstFormatterInput.MetUitlegTekst = $$$True
-		
-		Set Paragraaf = ..UitsparingTekstFormatter.GeefFormattedTekstBreedte(UitsparingTekstFormatterInput)
-	} Else {
-		Set Paragraaf = ..GeefDimensieTekst()
-	}
-
-	If (..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig()) {	
+	If (..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.MVXProductieWijze).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 _ ..GeefRugWandTekst()
-		Set Paragraaf = Paragraaf _ ..Vertaler.GeefVertaling("Bevat") _ ": " _ $Select(..IsSpoelbaklade():"2x ", 1:"") _ ..Vertaler.GeefVertaling("GemonteerdeLade")
+		Set Paragraaf = Paragraaf _ ..Vertaler.GeefVertaling("Bevat") _ ": " _ ..Vertaler.GeefVertaling("GemonteerdeLade")
 
-		Set Paragraaf = Paragraaf _ ..GeefZijwandTekst()
+		;Set Paragraaf = Paragraaf _ ..GeefZijwandTekst()
 		Set Paragraaf = Paragraaf _ ..GeefVoorwandTekst()
-		Set Paragraaf = Paragraaf _ ..GeefGeleiderTekst()
-		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)
-		Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(..Enum.Rol.MeenemerSet, ..Vertaler.GeefVertaling("MeenemerSet"), $$$True)
+		;Set Paragraaf = Paragraaf _ ..GeefGeleiderTekst()
+		;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)
+		;Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(..Enum.Rol.MeenemerSet, ..Vertaler.GeefVertaling("MeenemerSet"), $$$True)
 
 		Do ..VoegToeLangtekstParagraaf(Paragraaf)
 		
-		Do ..VoegToeGekoppeldeInfoIndienNodig()
-		Do ..VoegToeDwarsverdelingInfo()
-		Do ..VoegToeLangtekstParagraaf(..GeefVerpakkingTekst())
-		Do ..VoegToeSmalleLadeInfo() 
+		;Do ..VoegToeGekoppeldeInfoIndienNodig()
+		;Do ..VoegToeDwarsverdelingInfo()
+		;Do ..VoegToeLangtekstParagraaf(..GeefVerpakkingTekst())
+		;Do ..VoegToeSmalleLadeInfo() 
 	} Else {
 		Do ..VoegToeLangtekstParagraaf(Paragraaf)
-		Do ..VoegToeEnkelOnderdeelTekst()
+		;Do ..VoegToeEnkelOnderdeelTekst()
 	}
-	*/
 ]]></Implementation>
 </Method>
 
@@ -156,6 +129,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsHogeSifonlade">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsSifonLade As %Boolean = ..IngegevenKenmerkenTypeApi.IsSifonlade(..IngegevenKenmerken)
+	#dim IsZijwandTypePure As %Boolean = (..IngegevenKenmerken.ZijwandType = ##class(DOM.PM.enu.MVXZijWandType).Pure())
+	#dim IsLadeHoogteE As %Boolean = (..IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.MVXLadeHoogte).E())
+	#dim IsRugHoogteE As %Boolean = (..IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.MVXRugHoogte).E())
+	
+	Quit (IsSifonLade && IsZijwandTypePure && IsLadeHoogteE && IsRugHoogteE)
+]]></Implementation>
+</Method>
+
 <Method name="IsAfwijkendeRugHoogte">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
@@ -176,6 +162,83 @@
 <Implementation><![CDATA[	Quit (..IngegevenKenmerken.GeleiderTechnologie = ..Enum.GeleiderTechnologie.TIPONBLUMOTION)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefKleurBinnen">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim KleurCode As %String = ..IngegevenKenmerken.BodemKleur // ..KleurCodeBepaler.GeefBinnenKleurCode(..IngegevenKenmerken, ..HalffabItemsBoom)
+	Quit ..GeefKleurOmschrijving(KleurCode)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKleurBuiten">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim KleurCode As %String = ..IngegevenKenmerken.LadeKleur // ..KleurCodeBepaler.GeefBuitenKleurCode(..IngegevenKenmerken, ..HalffabItemsBoom)
+	Quit ..GeefKleurOmschrijving(KleurCode)
+]]></Implementation>
+</Method>
+
+<Method name="GeefRugWandTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim RugWandTekst As TECH.String = ""
+	
+	If (..HeeftStalenRug()) {
+		Set RugWandTekst = RugWandTekst _ ..Vertaler.GeefVertaling("StalenRug")
+		Set RugWandTekst = RugWandTekst _ ..#KenmerkSeparator
+	}
+	
+	If ((..IsAfwijkendeRugHoogte() || ..IsHogeSifonlade()) && (..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.MVXProductieWijze).Volledig())) {
+		Set RugWandTekst = RugWandTekst _ ..Vertaler.GeefVertaling("RugwandHoogte") _ " " _ ..IngegevenKenmerken.RugHoogte
+		Set RugWandTekst = RugWandTekst _ ..#KenmerkSeparator
+	}
+	
+	Quit RugWandTekst
+]]></Implementation>
+</Method>
+
+<Method name="GeefVoorwandTekst">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim VoorwandInfo As %String = ""
+	#Dim VoorwandVertaalSleutel As %String = ""
+	
+	If (..IngegevenKenmerken.VoorwandType = ..Enum.VoorwandType.Metaal) {
+		Set VoorwandVertaalSleutel = "LBX_Voorstuk_M_Gesloten"
+	}
+	
+	If ($Length(VoorwandVertaalSleutel)) {
+		Set VoorwandInfo = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling(VoorwandVertaalSleutel)
+	}
+	
+	Quit VoorwandInfo
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeEnkelOnderdeelTekst">
+<Private>1</Private>
+<Implementation><![CDATA[
+	/*
+	#define Scheiding "******"
+	
+	Do ..VoegToeLangtekstParagraaf($$$Scheiding)
+	
+	#Dim OnderdeelTekst As TECH.String = ..OnderdeelTekstBepaler.BepaalOnderdeelTekst(..Taal, ..IngegevenKenmerken, ..HalffabItemsBoom)
+	
+	If (..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.MVXProductieWijze).Front()) {
+		Set OnderdeelTekst = OnderdeelTekst _ " " _ $Extract(..GeefVoorwandTekst(), $Length(..#KenmerkSeparator)+1, *)
+	}
+	
+	Do ..VoegToeLangtekstParagraaf(OnderdeelTekst)
+	Do ..VoegToeLangtekstParagraaf($$$Scheiding)
+	*/
+]]></Implementation>
+</Method>
 </Class>