Index: DOM/PM/impl/MVXLangtekstCreator.cls.xml
===================================================================
diff -u -r65140 -r65554
--- DOM/PM/impl/MVXLangtekstCreator.cls.xml	(.../MVXLangtekstCreator.cls.xml)	(revision 65140)
+++ DOM/PM/impl/MVXLangtekstCreator.cls.xml	(.../MVXLangtekstCreator.cls.xml)	(revision 65554)
@@ -87,9 +87,14 @@
 		Set Paragraaf = Paragraaf _ ..GeefVoorwandTekst()
 		Set Paragraaf = Paragraaf _ ..GeefGeleiderTekst()
 		Set Paragraaf = Paragraaf _ $$$If(..IngegevenKenmerken.IsBinnenlade, "", ..#KenmerkSeparator _ ..GeefFrontBevestigingTekst())
+		Set Paragraaf = Paragraaf _ ..GeefZijstabiliseringTekst()
+		Set Paragraaf = Paragraaf _ ..GeefOpvullijstTekst()
+		Set Paragraaf = Paragraaf _ ..GeefMeenemerSetTekst()
 
 		Do ..VoegToeLangtekstParagraaf(Paragraaf)
 		
+		Do ..VoegToeGekoppeldeInfoIndienNodig()
+		Do ..VoegToeDwarsverdelingInfo()		
 		Do ..VoegToeLangtekstParagraaf(..GeefVerpakkingTekst())
 	} Else {
 		Do ..VoegToeLangtekstParagraaf(Paragraaf)
@@ -164,6 +169,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOpvullijstTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim OpvullijstTekst As TECH.String = ""
+	
+	If ($$$Not(..IsOpvullijstNietMeegeleverd()) && (..IngegevenKenmerken.HeeftOpvullijstLinks || ..IngegevenKenmerken.HeeftOpvullijstRechts)) { 
+		Set OpvullijstTekst = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("Opvullijst")
+		
+		If (..IngegevenKenmerken.HeeftOpvullijstLinks && ..IngegevenKenmerken.HeeftOpvullijstRechts) {
+			Set OpvullijstTekst = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("Opvullijsten")
+		}
+	}
+	
+	Quit OpvullijstTekst
+]]></Implementation>
+</Method>
+
 <Method name="GeefRugwandTekst">
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
@@ -283,6 +306,34 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefMeenemerSetTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim MeenemerSetTekst As TECH.String = ""
+	
+	If (..IngegevenKenmerken.MeenemerSet = ..Enum.MeenemerSet.VolledigeSet) {
+		Set MeenemerSetTekst = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("MeenemerSet")
+	}
+	
+	Quit MeenemerSetTekst
+]]></Implementation>
+</Method>
+
+<Method name="GeefZijstabiliseringTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim ZijstabiliseringTekst As TECH.String = ""
+	
+	If (..IngegevenKenmerken.HeeftZijstabilisering) {
+		Set ZijstabiliseringTekst = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("Zijstabilisering")
+	}
+	
+	Quit ZijstabiliseringTekst
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeEnkelOnderdeelTekst">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -301,6 +352,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeDwarsverdelingInfo">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim AantalDwarsverdelingen As TECH.Integer = ..IngegevenKenmerken.AantalDwarsverdelingen
+	
+	If (AantalDwarsverdelingen > 0) {
+		#Dim VertaalSleutel As TECH.String = "Langtekst_Dwarsverdeling" _ $Select(AantalDwarsverdelingen > 1:"en", 1:"")
+		#Dim DwarsverdelingTekst As TECH.String = AantalDwarsverdelingen _ " " _ ..Vertaler.GeefVertaling(VertaalSleutel)
+		
+		Do ..VoegToeLangtekstParagraaf(DwarsverdelingTekst)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="IsInschuifElementVoorNietMeegeleverd">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
@@ -319,6 +384,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsOpvullijstNietMeegeleverd">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Rol As %String = ..Enum.Rol.Opvullijst
+	Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
+]]></Implementation>
+</Method>
+
 <Method name="IsRelingZijkantNietMeegeleverd">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
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>