Index: DOM/PM/impl/DataM/DataMLBXLadeCreator.cls.xml
===================================================================
diff -u -r72870 -r73017
--- DOM/PM/impl/DataM/DataMLBXLadeCreator.cls.xml	(.../DataMLBXLadeCreator.cls.xml)	(revision 72870)
+++ DOM/PM/impl/DataM/DataMLBXLadeCreator.cls.xml	(.../DataMLBXLadeCreator.cls.xml)	(revision 73017)
@@ -13,17 +13,8 @@
 	#dim Langtekst As DOM.PM.ProductLangtekst
 	
 	If (..BepaalIsMaatwerkCalculatieInEncoway()) {
-		#dim Delimiter As %String = "\r\n"
-		Set Langtekst = ..VhConfig.BerekendeKenmerken.Langtekst.GetAt(Taal)
-		#dim AantalStukken As %Integer = ##class(TECH.StringUtils).Occurrences(Langtekst, Delimiter)
-		#dim Hoofding As %String = $Piece(Langtekst, Delimiter, 1)
-		Set ListVanDetails = ##class(%ListOfDataTypes).%New()
-		
-		For i = 2 : 1 : AantalStukken {
-			Do ListVanDetails.Insert($Piece(Langtekst, Delimiter, i))
-		}
-		
-		Set Langtekst = ##class(DOM.PM.impl.ProductLangtekst).%New(Hoofding, ListVanDetails)
+		Set LangtekstCreatorEncnoway = ##class(DOM.PM.impl.LBXLangtekstCreatorEncoway).%New()
+		Set Langtekst = LangtekstCreatorEncnoway.GeefLangtekst(..VhConfig, Taal)
 	} Else {
 		#dim LangtekstCreator As DOM.PM.impl.LBXLangtekstCreator = ##class(DOM.PM.impl.LBXLangtekstCreator).%New()
 		Set Langtekst = LangtekstCreator.GeefLangtekst(..ProductSpecificatie.GeefIngegevenKenmerken(),..HalffabItemsBoom, Taal , ..KortTekst, ..HalffabItemsBoomOnHerwerkt)
Index: DOM/PM/impl/LBXLangtekstCreatorEncoway.cls.xml
===================================================================
diff -u
--- DOM/PM/impl/LBXLangtekstCreatorEncoway.cls.xml	(revision 0)
+++ DOM/PM/impl/LBXLangtekstCreatorEncoway.cls.xml	(revision 73017)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.impl.LBXLangtekstCreatorEncoway">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="LangtekstHoofding">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LangtekstDetail">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Parameter name="Delimiter">
+<Type>%String</Type>
+<Default>\r\n</Default>
+</Parameter>
+
+<Method name="GeefLangtekst">
+<FormalSpec>VhConfig:APPS.PM.Maatwerk.dto.VhConfig,Taal:DOM.enu.Taal</FormalSpec>
+<ReturnType>DOM.PM.ProductLangtekst</ReturnType>
+<Implementation><![CDATA[
+	#dim LangtekstEncoway As %String = VhConfig.BerekendeKenmerken.Langtekst.GetAt(Taal)
+	
+	Do ..BepaalHoofding(LangtekstEncoway)
+	Do ..VoegToeBasisGegevens(LangtekstEncoway)
+		
+	Quit ##class(DOM.PM.impl.ProductLangtekst).%New(..LangtekstHoofding, ..LangtekstDetail)
+]]></Implementation>
+</Method>
+
+<Method name="BepaalHoofding">
+<FormalSpec>LangtekstEncoway:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	
+	Set ..LangtekstHoofding = $Piece(LangtekstEncoway, ..#Delimiter, 1)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeBasisGegevens">
+<FormalSpec>LangtekstEncoway:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim AantalStukken As %Integer = ##class(TECH.StringUtils).Occurrences(LangtekstEncoway, ..#Delimiter)
+		
+	#dim Index As %Integer
+	For Index = 2 : 1 : AantalStukken {
+		Do ..VoegToeLangtekstParagraaf($Piece(LangtekstEncoway, ..#Delimiter, Index))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeLangtekstParagraaf">
+<FormalSpec>LangtekstDetail:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do:(LangtekstDetail'="") ..LangtekstDetail.Insert(LangtekstDetail)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>