Index: vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml
===================================================================
diff -u -r62725 -r62726
--- vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 62725)
+++ vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 62726)
@@ -30,7 +30,8 @@
 	#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")
+																					"ladezijkant:Orion grijs; bevat: gemont." _ $$$CRLF, 
+																					"lade; corpusprofiel 40kg; BLUMOTION")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
@@ -43,7 +44,8 @@
 	#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")
+																					"ladezijkant:Orion grijs; bevat: gemont." _ $$$CRLF, 
+																					"lade; corpusprofiel 40kg; BLUMOTION")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
@@ -58,7 +60,8 @@
 	#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")
+																					"bevat: gemont. lade; corpusprofiel 40kg;" _ $$$CRLF, 
+																					"BLUMOTION")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
@@ -74,7 +77,8 @@
 	#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")
+																					"rugwand hoogte N; bevat: gemont. lade;" _ $$$CRLF, 
+																					"corpusprofiel 40kg; BLUMOTION")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
@@ -88,7 +92,8 @@
 	#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")
+																					"lade; gesloten voorstuk; corpusprofiel" _ $$$CRLF, 
+																					"40kg; BLUMOTION")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
@@ -103,7 +108,8 @@
 	#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")
+																					"bevat: gemont. lade; gesloten voorstuk;" _ $$$CRLF, 
+																					"corpusprofiel 40kg; BLUMOTION")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
@@ -120,7 +126,8 @@
 																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
 																					"ladezijkant:Orion grijs; stalen rugwand;" _ $$$CRLF, 
 																					"rugwand hoogte N; bevat: gemont. lade;" _ $$$CRLF, 
-																					"gesloten voorstuk")
+																					"gesloten voorstuk; corpusprofiel 40kg;" _ $$$CRLF, 
+																					"BLUMOTION")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
@@ -136,7 +143,8 @@
 	#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")
+																					"bevat: gemont. lade; corpusprofiel 40kg;" _ $$$CRLF, 
+																					"BLUMOTION")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
@@ -152,7 +160,8 @@
 	#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")
+																					"ladezijkant:Orion grijs; bevat: gemont." _ $$$CRLF, 
+																					"lade; corpusprofiel 40kg; BLUMOTION")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
@@ -170,7 +179,8 @@
 	#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")
+																					"bevat: gemont. lade; corpusprofiel 40kg;" _ $$$CRLF, 
+																					"BLUMOTION")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
@@ -187,7 +197,8 @@
 	#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")
+																					"rugwand hoogte M; bevat: gemont. lade;" _ $$$CRLF, 
+																					"corpusprofiel 40kg; BLUMOTION")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
@@ -205,7 +216,8 @@
 																					"binnenlade E" _ $$$CRLF, 
 																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
 																					"ladezijkant:Orion grijs; bevat: gemont." _ $$$CRLF, 
-																					"lade; gesloten voorstuk")
+																					"lade; gesloten voorstuk; corpusprofiel" _ $$$CRLF, 
+																					"40kg; BLUMOTION")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
@@ -224,7 +236,8 @@
 																					"binnenlade E" _ $$$CRLF, 
 																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
 																					"ladezijkant:Orion grijs; stalen rugwand;" _ $$$CRLF, 
-																					"bevat: gemont. lade; gesloten voorstuk")
+																					"bevat: gemont. lade; gesloten voorstuk;" _ $$$CRLF, 
+																					"corpusprofiel 40kg; BLUMOTION")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
@@ -243,7 +256,8 @@
 																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
 																					"ladezijkant:Orion grijs; stalen rugwand;" _ $$$CRLF, 
 																					"rugwand hoogte M; bevat: gemont. lade;" _ $$$CRLF, 
-																					"gesloten voorstuk")
+																					"gesloten voorstuk; corpusprofiel 40kg;" _ $$$CRLF, 
+																					"BLUMOTION")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
@@ -258,7 +272,8 @@
 																					"D:500xB:600" _ $$$CRLF, 
 																					"sifonopening = 160mm (230/160/210);" _ $$$CRLF, 
 																					"bodem:Orion grijs; ladezijkant:Orion grijs;" _ $$$CRLF, 
-																					"bevat: gemont. lade")
+																					"bevat: gemont. lade; corpusprofiel 40kg;" _ $$$CRLF, 
+																					"BLUMOTION")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
@@ -274,7 +289,8 @@
 																					"D:500xB:600" _ $$$CRLF, 
 																					"sifonopening = 160mm (230/160/210);" _ $$$CRLF, 
 																					"bodem:Orion grijs; ladezijkant:Orion grijs;" _ $$$CRLF, 
-																					"rugwand hoogte N; bevat: gemont. lade")
+																					"rugwand hoogte N; bevat: gemont. lade;" _ $$$CRLF, 
+																					"corpusprofiel 40kg; BLUMOTION")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
@@ -291,7 +307,8 @@
 																					"D:500xB:600" _ $$$CRLF, 
 																					"sifonopening = 160mm (230/160/210);" _ $$$CRLF, 
 																					"bodem:Orion grijs; ladezijkant:Orion grijs;" _ $$$CRLF, 
-																					"bevat: gemont. lade")
+																					"bevat: gemont. lade; corpusprofiel 40kg;" _ $$$CRLF, 
+																					"BLUMOTION")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
@@ -308,7 +325,8 @@
 																					"D:500xB:600" _ $$$CRLF, 
 																					"sifonopening = 160mm (230/160/210);" _ $$$CRLF, 
 																					"bodem:Orion grijs; ladezijkant:Orion grijs;" _ $$$CRLF, 
-																					"rugwand hoogte M; bevat: gemont. lade")
+																					"rugwand hoogte M; bevat: gemont. lade;" _ $$$CRLF, 
+																					"corpusprofiel 40kg; BLUMOTION")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
@@ -324,7 +342,8 @@
 																					"D:500xB:600" _ $$$CRLF, 
 																					"sifonopening = 350mm (130/350/120);" _ $$$CRLF, 
 																					"bodem:Orion grijs; ladezijkant:Orion grijs;" _ $$$CRLF, 
-																					"rugwand hoogte E; bevat: gemont. lade")
+																					"rugwand hoogte E; bevat: gemont. lade;" _ $$$CRLF, 
+																					"corpusprofiel 40kg; BLUMOTION")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
@@ -343,7 +362,8 @@
 																					"D:500xB:600" _ $$$CRLF, 
 																					"sifonopening = 160mm (230/160/210);" _ $$$CRLF, 
 																					"bodem:Orion grijs; ladezijkant:Orion grijs;" _ $$$CRLF, 
-																					"rugwand hoogte M; bevat: gemont. lade")
+																					"rugwand hoogte M; bevat: gemont. lade;" _ $$$CRLF, 
+																					"corpusprofiel 40kg; BLUMOTION")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
@@ -358,7 +378,8 @@
 																					"D:500xB:600" _ $$$CRLF, 
 																					"Spoelbakopening = 470mm (70/470/60);" _ $$$CRLF, 
 																					"bodem:Orion grijs; ladezijkant:Orion grijs;" _ $$$CRLF, 
-																					"bevat: gemont. lade")
+																					"bevat: gemont. lade; corpusprofiel 40kg;" _ $$$CRLF, 
+																					"BLUMOTION")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
@@ -376,7 +397,8 @@
 																					"D:500xB:600" _ $$$CRLF, 
 																					"Spoelbakopening = 470mm (70/470/60);" _ $$$CRLF, 
 																					"bodem:Orion grijs; ladezijkant:Orion grijs;" _ $$$CRLF, 
-																					"rugwand hoogte M; bevat: gemont. lade")
+																					"rugwand hoogte M; bevat: gemont. lade;" _ $$$CRLF, 
+																					"corpusprofiel 40kg; BLUMOTION")
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
 ]]></Implementation>
Index: DOM/PM/impl/MVXLangtekstCreator.cls.xml
===================================================================
diff -u -r62725 -r62726
--- DOM/PM/impl/MVXLangtekstCreator.cls.xml	(.../MVXLangtekstCreator.cls.xml)	(revision 62725)
+++ DOM/PM/impl/MVXLangtekstCreator.cls.xml	(.../MVXLangtekstCreator.cls.xml)	(revision 62726)
@@ -89,7 +89,7 @@
 
 		;Set Paragraaf = Paragraaf _ ..GeefZijwandTekst()
 		Set Paragraaf = Paragraaf _ ..GeefVoorwandTekst()
-		;Set Paragraaf = Paragraaf _ ..GeefGeleiderTekst()
+		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)
@@ -220,6 +220,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefGeleiderTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#Dim GeleiderTekst As TECH.String = ""
+	
+	Set GeleiderTekst = GeleiderTekst _ ..Vertaler.GeefVertaling("Geleider") _ " " _ ..GeefDraagkrachtTekst()
+	Set GeleiderTekst = GeleiderTekst _ ..#KenmerkSeparator _ ##class(DOM.PM.enu.MVXGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
+
+	Quit ..#KenmerkSeparator _ GeleiderTekst
+]]></Implementation>
+</Method>
+
+<Method name="GeefDraagkrachtTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit ..IngegevenKenmerken.Draagkracht_..Vertaler.GeefVertaling("KilogramAfkorting")
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeEnkelOnderdeelTekst">
 <Private>1</Private>
 <Implementation><![CDATA[