Index: DOM/PM/impl/MVXLangtekstCreator.cls.xml
===================================================================
diff -u -r62752 -r62760
--- DOM/PM/impl/MVXLangtekstCreator.cls.xml	(.../MVXLangtekstCreator.cls.xml)	(revision 62752)
+++ DOM/PM/impl/MVXLangtekstCreator.cls.xml	(.../MVXLangtekstCreator.cls.xml)	(revision 62760)
@@ -8,19 +8,25 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OnderdeelTekstBepaler">
+<Type>DOM.PM.impl.Langtekst.MVXEnkelOnderdeelTekstBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="UitsparingTekstFormatter">
 <Type>DOM.PM.Maatwerk.MVX.impl.UitsparingTekstFormatter</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>IngegevenKenmerkenTypeApi:DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI=""</FormalSpec>
+<FormalSpec>IngegevenKenmerkenTypeApi:DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI="",OnderdeelTekstBepaler:DOM.PM.impl.Langtekst.MVXEnkelOnderdeelTekstBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..IngegevenKenmerkenTypeApi = $$$Implementation(IngegevenKenmerkenTypeApi, ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI())
+	Set ..IngegevenKenmerkenTypeApi = $$$Inject(IngegevenKenmerkenTypeApi, ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI())
+	Set ..OnderdeelTekstBepaler = $$$Inject(OnderdeelTekstBepaler, ##class(DOM.PM.impl.Langtekst.MVXEnkelOnderdeelTekstBepaler).%New())
 	Set ..UitsparingTekstFormatter = ##class(DOM.PM.Maatwerk.MVX.impl.UitsparingTekstFormatter).%New()
 	
 	Quit $$$OK
@@ -95,7 +101,7 @@
 		Do ..VoegToeLangtekstParagraaf(..GeefVerpakkingTekst())
 	} Else {
 		Do ..VoegToeLangtekstParagraaf(Paragraaf)
-		;Do ..VoegToeEnkelOnderdeelTekst()
+		Do ..VoegToeEnkelOnderdeelTekst()
 	}
 ]]></Implementation>
 </Method>
@@ -228,20 +234,18 @@
 <Method name="VoegToeEnkelOnderdeelTekst">
 <Private>1</Private>
 <Implementation><![CDATA[
-	/*
 	#define Scheiding "******"
 	
 	Do ..VoegToeLangtekstParagraaf($$$Scheiding)
 	
-	#Dim OnderdeelTekst As TECH.String = ..OnderdeelTekstBepaler.BepaalOnderdeelTekst(..Taal, ..IngegevenKenmerken, ..HalffabItemsBoom)
+	#dim OnderdeelTekst As TECH.String = ..OnderdeelTekstBepaler.BepaalOnderdeelTekst(..Taal, ..IngegevenKenmerken)
 	
 	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>
Index: vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml
===================================================================
diff -u -r62752 -r62760
--- vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 62752)
+++ vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 62760)
@@ -435,6 +435,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Front only">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).ProductieWijzeFront()
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX binnenlade M" _ $$$CRLF, 
+																					"D:500xB:600" _ $$$CRLF, 
+																					"******" _ $$$CRLF, 
+																					"ENKEL Orion grijs gesloten voorstuk" _ $$$CRLF, 
+																					"******")
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
+]]></Implementation>
+</Method>
+
 <Method name="GeefLangtekst">
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>