Index: DOM/PM/impl/DataM/DataMLBXLadeCreator.cls.xml
===================================================================
diff -u -r62130 -r72682
--- DOM/PM/impl/DataM/DataMLBXLadeCreator.cls.xml	(.../DataMLBXLadeCreator.cls.xml)	(revision 62130)
+++ DOM/PM/impl/DataM/DataMLBXLadeCreator.cls.xml	(.../DataMLBXLadeCreator.cls.xml)	(revision 72682)
@@ -10,16 +10,43 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.ProductLangtekst</ReturnType>
 <Implementation><![CDATA[
-	#dim LangtekstCreator As DOM.PM.impl.LBXLangtekstCreator = ##class(DOM.PM.impl.LBXLangtekstCreator).%New()
-	Quit LangtekstCreator.GeefLangtekst(..ProductSpecificatie.GeefIngegevenKenmerken(),..HalffabItemsBoom, Taal , ..KortTekst, ..HalffabItemsBoomOnHerwerkt)
+	#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)
+	} Else {
+		#dim LangtekstCreator As DOM.PM.impl.LBXLangtekstCreator = ##class(DOM.PM.impl.LBXLangtekstCreator).%New()
+		Set Langtekst = LangtekstCreator.GeefLangtekst(..ProductSpecificatie.GeefIngegevenKenmerken(),..HalffabItemsBoom, Taal , ..KortTekst, ..HalffabItemsBoomOnHerwerkt)
+	}
+	
+	Quit Langtekst
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalKortTekst">
-<FormalSpec>DossierNummer:%String</FormalSpec>
+<FormalSpec>DossierNummer:%String=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.KorttekstUtils).BepaalKorttekstLBX(DossierNummer, ..ProductSpecificatie.GeefIngegevenKenmerken(), ..HalffabItemsBoom)
+<Implementation><![CDATA[
+	#dim Korttekst As %String
+	
+	If (..BepaalIsMaatwerkCalculatieInEncoway()) {
+		Set Korttekst = ..VhConfig.BerekendeKenmerken.Korttekst
+	} Else {
+		Set Korttekst = ##class(DOM.PM.KorttekstUtils).BepaalKorttekstLBX(DossierNummer, ..ProductSpecificatie.GeefIngegevenKenmerken(), ..HalffabItemsBoom)
+	}
+	
+	Quit Korttekst
 ]]></Implementation>
 </Method>
 </Class>