Index: vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml
===================================================================
diff -u -r65164 -r65554
--- vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 65164)
+++ vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 65554)
@@ -55,6 +55,83 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: StandaardLade M met opvullijst en dwarsverdeling">
+<Implementation><![CDATA[
+	Set ..MvxKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade()
+	Set ..MvxKenmerken.HeeftOpvullijstLinks = $$$True
+	Set ..MvxKenmerken.OpvullijstKleur = ..Enum.OpvullijstKleur.PlatinaZilverGrijs
+	Set ..MvxKenmerken.AantalDwarsverdelingen = 1
+	
+	#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." _ $$$CRLF, 
+																					"lade; corpusprofiel 40kg; BLUMOTION;" _ $$$CRLF, 
+																					"frontbevest. INSERTA; opvullijst" _ $$$CRLF,
+																					"1 dwarsreling"  _ $$$CRLF, 
+																					"verpakt: Probox")
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
+]]></Implementation>
+</Method>
+
+<Method name="Test: StandaardLade M met meerdere opvullijsten en dwarsverdelingen">
+<Implementation><![CDATA[
+	Set ..MvxKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade()
+	Set ..MvxKenmerken.HeeftOpvullijstLinks = $$$True
+	Set ..MvxKenmerken.HeeftOpvullijstRechts = $$$True
+	Set ..MvxKenmerken.OpvullijstKleur = ..Enum.OpvullijstKleur.PlatinaZilverGrijs
+	Set ..MvxKenmerken.AantalDwarsverdelingen = 2
+	
+	#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." _ $$$CRLF, 
+																					"lade; corpusprofiel 40kg; BLUMOTION;" _ $$$CRLF, 
+																					"frontbevest. INSERTA; opvullijsten" _ $$$CRLF,
+																					"2 dwarsrelingen"  _ $$$CRLF, 
+																					"verpakt: Probox")
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
+]]></Implementation>
+</Method>
+
+<Method name="Test: StandaardLade M met zijstabilisering">
+<Implementation><![CDATA[
+	Set ..MvxKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade()
+	Set ..MvxKenmerken.HeeftZijstabilisering = $$$True
+	
+	#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." _ $$$CRLF, 
+																					"lade; corpusprofiel 40kg; BLUMOTION;" _ $$$CRLF, 
+																					"frontbevest. INSERTA; zijdelingse" _ $$$CRLF,
+																					"stabilisatie"  _ $$$CRLF, 
+																					"verpakt: Probox")
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
+]]></Implementation>
+</Method>
+
+<Method name="Test: StandaardLade M met gekoppelde mat">
+<Implementation><![CDATA[
+	Set ..MvxKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade()
+	Do ..MvxKenmerken.GekoppeldeIngegevenKenmerken.SetAt(..GeefMatKenmerken(), ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX())
+	
+	#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." _ $$$CRLF, 
+																					"lade; corpusprofiel 40kg; BLUMOTION;" _ $$$CRLF, 
+																					"frontbevest. INSERTA" _ $$$CRLF,
+																					"antislip-fiber inlegmat antraciet"  _ $$$CRLF, 
+																					"verpakt: Probox")
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
+]]></Implementation>
+</Method>
+
 <Method name="Test: StandaardLade M met stalen rug">
 <Implementation><![CDATA[
 	Set ..MvxKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade()
@@ -107,6 +184,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Standaard Binnenlade M met meenemerset">
+<Implementation><![CDATA[
+	Set ..MvxKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardBinnenlade()
+	Set ..MvxKenmerken.MeenemerSet = ..Enum.MeenemerSet.VolledigeSet
+	
+	#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; corpusprofiel" _ $$$CRLF, 
+																					"40kg; BLUMOTION; meenemerset" _ $$$CRLF, 
+																					"verpakt: Probox")
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Standaard Binnenlade M met stalen rug">
 <Implementation><![CDATA[
 	Set ..MvxKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardBinnenlade()
@@ -654,6 +748,28 @@
 <Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.VerwijderdHalffabItem).%New()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefMatKenmerken">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim MATKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New()
+	
+	Set MATKenmerken.Breedte = 500
+	Set MATKenmerken.Diepte = 473
+	Set MATKenmerken.Kleur = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberAntraciet()
+	Set MATKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber()
+	Set MATKenmerken.Type = ##class(DOM.PM.enu.MatType).Basis()
+	Set MATKenmerken.ExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
+	Set MATKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
+	Set MATKenmerken.Onderdelen = ##class(%ListOfDataTypes).%New()
+	Set MATKenmerken.ProductieWijze = ""
+	Set MATKenmerken.VersieNr = 0
+	
+	Quit MATKenmerken
+]]></Implementation>
+</Method>
 </Class>