Index: vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml
===================================================================
diff -u -r63565 -r64368
--- vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 63565)
+++ vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 64368)
@@ -143,6 +143,88 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Standaard Binnenlade M met NM inschuifElementVoor">
+<Implementation><![CDATA[
+	Set ..MvxKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardBinnenlade()
+	Set ..MvxKenmerken.VoorwandType = ##class(DOM.PM.enu.MVXVoorwandType).GlasHoog()
+	
+	Set VerwijderdeHalffabItemsOpHalffabItemsBoom = ##class(%ArrayOfObjects).%New()
+	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).InschuifElementVoor())
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst(VerwijderdeHalffabItemsOpHalffabItemsBoom)
+	#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; voorstuk met inschuifelement: met"_ $$$CRLF,
+																					"eigen inschuifelement; corpusprofiel 40kg;" _ $$$CRLF, 
+																					"BLUMOTION" _ $$$CRLF, 
+																					"verpakt: Probox")
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard Binnenlade M met laag inschuifElement vooraan">
+<Implementation><![CDATA[
+	Set ..MvxKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardBinnenlade()
+	Set ..MvxKenmerken.VoorwandType = ##class(DOM.PM.enu.MVXVoorwandType).GlasLaag()
+	
+	#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; voorstuk met laag inschuifelement:"_ $$$CRLF,
+																					"glas diamant helder; corpusprofiel 40kg;" _ $$$CRLF, 
+																					"BLUMOTION" _ $$$CRLF, 
+																					"verpakt: Probox")
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard binnenlade E met boxcover">
+<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 = ##class(DOM.PM.enu.MVXZijWandType).Boxcover()
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX binnenlade E" _ $$$CRLF, 
+																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
+																					"ladezijkant:Orion grijs; bevat: gemont." _ $$$CRLF, 
+																					"lade; BOXCOVER met inschuifelement diamant"_ $$$CRLF,
+																					"glas 8mm; gesloten voorstuk; corpusprofiel" _ $$$CRLF, 
+																					"40kg; BLUMOTION" _ $$$CRLF, 
+																					"verpakt: Probox")
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard binnenlade E met NM reling zijkant">
+<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 = ##class(DOM.PM.enu.MVXZijWandType).RelingEnInschuifElement()
+	
+	Set VerwijderdeHalffabItemsOpHalffabItemsBoom = ##class(%ArrayOfObjects).%New()
+	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).RelingZijkant())
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst(VerwijderdeHalffabItemsOpHalffabItemsBoom)
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX binnenlade E" _ $$$CRLF, 
+																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
+																					"ladezijkant:Orion grijs; bevat: gemont." _ $$$CRLF, 
+																					"lade; reling met inschuifelement: met eigen"_ $$$CRLF,
+																					"inschuifelement; gesloten voorstuk;" _ $$$CRLF, 
+																					"corpusprofiel 40kg; BLUMOTION" _ $$$CRLF, 
+																					"verpakt: Probox")
+	
+	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()
@@ -549,7 +631,6 @@
 	If ($IsObject(VerwijderdeHalffabItems)) {
 		Set HalffabItemsBoom.VerwijderdeHalffabItems = VerwijderdeHalffabItems
 	}
-	
 	Quit ..MvxLangtekstCreator.GeefLangtekst(..MvxKenmerken, HalffabItemsBoom, Taal,, "")
 ]]></Implementation>
 </Method>