Index: DOM/PM/impl/DataM/DataMTBXLadeCreator.cls.xml
===================================================================
diff -u -r29059 -r65753
--- DOM/PM/impl/DataM/DataMTBXLadeCreator.cls.xml	(.../DataMTBXLadeCreator.cls.xml)	(revision 29059)
+++ DOM/PM/impl/DataM/DataMTBXLadeCreator.cls.xml	(.../DataMTBXLadeCreator.cls.xml)	(revision 65753)
@@ -5,49 +5,21 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.impl.DataM.DataMProductCreator</Super>
 
-<Method name="BepaalKortTekst">
-<FormalSpec>DossierNummer:%String</FormalSpec>
+<Method name="GeefLangtekst">
+<FormalSpec>Taal:DOM.enu.Taal</FormalSpec>
 <Private>1</Private>
-<ReturnType>%String</ReturnType>
+<ReturnType>DOM.PM.ProductLangtekst</ReturnType>
 <Implementation><![CDATA[
-	Set BodemHalffab = ..HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Bodem()).GeefHalffab()
-	Set RugHalffab = ..HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Rug()).GeefHalffab()
-	Set LadeZijkantHalffab = ..HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).LadeZijkant()_"->Links").GeefHalffab()
-	
-	Set Draagkracht = LadeZijkantHalffab.Draagkracht
-	Set Glijder = $S(Draagkracht=20:8,Draagkracht=30:8,Draagkracht=50:9,Draagkracht=65:6,Draagkracht=80:7,1:"I")
-	Set ZijkantDesign = LadeZijkantHalffab.ZijkantDesign
-	Set DesignCode=$S(ZijkantDesign="S":"/",1:ZijkantDesign)  ; S,F,B,...
-	Set FrontBevestiging = ""
-	Set KortTekst = "TB"_Glijder_RugHalffab.RugHoogte_DesignCode_FrontBevestiging_"."   // RugHoogte moet uiteindelijk uit het halffab "RugHouder" opgehaald worden en NIET uit de rug. 
-	Set $E(KortTekst,7) = DossierNummer
-	
-	Set IngegevenKenmerken = ..ProductSpecificatie.GeefIngegevenKenmerken()
-	
-	Set $E(KortTekst,12) = IngegevenKenmerken.LadeDiepte_"x"_IngegevenKenmerken.CorpusBinnenbreedte
-	
-	Set $E(KortTekst,22)=LadeZijkantHalffab.ZijkantKleur
-	
-	// Er is ook nog wat tekst voor verpakking en sifon/spoelbak/hangmap/buro
-	// Nog wat info over kostprijs van werkuren enzo
-	// Zie ktxTBX() method in Prod.GAData.Product.tmpKPRCreate.MAC
-	
-	Quit KortTekst
+	#dim LangtekstCreator As DOM.PM.impl.TBXLangtekstCreator = ##class(DOM.PM.impl.TBXLangtekstCreator).%New()
+	Quit LangtekstCreator.GeefLangtekst(..ProductSpecificatie.GeefIngegevenKenmerken(), ..HalffabItemsBoom, Taal , ..KortTekst, ..HalffabItemsBoomOnHerwerkt)
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-//Langtekstgeneratie momenteel niet via deze methode
-
-]]></Content>
-</UDLText>
-
-<Method name="GeefLangtekst">
-<FormalSpec>Taal:DOM.enu.Taal</FormalSpec>
+<Method name="BepaalKortTekst">
+<FormalSpec>DossierNummer:%String</FormalSpec>
 <Private>1</Private>
-<ReturnType>DOM.PM.ProductLangtekst</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.ProductLangtekst).%New()
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.KorttekstUtils).BepaalKorttekstTBX(DossierNummer, ..ProductSpecificatie.GeefIngegevenKenmerken(), ..HalffabItemsBoom)
 ]]></Implementation>
 </Method>
 </Class>