Index: DOM/PM/impl/ProductAPI.cls.xml
===================================================================
diff -u -r62806 -r65753
--- DOM/PM/impl/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 62806)
+++ DOM/PM/impl/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 65753)
@@ -252,16 +252,8 @@
 <ReturnType>DOM.PM.MaatwerkProduct</ReturnType>
 <Implementation><![CDATA[
 	#dim ProductID As %String
-	If (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade()) && (ProductSpecificatie.GeefVariant() = ##class(DOM.PM.enu.LadeVariant).TBXPlus())
+	If (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade()) && (ProductSpecificatie.GeefVariant() = ##class(DOM.PM.enu.LadeVariant).TAOR())
 	{
-		Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMTBXLadeCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
-		Set ProductID = ProductCreator.GeefPRNr()
-		Set KenmerkenCreator = ##class(DOM.PM.impl.DataM.DataMLadeKenmerkenCreator).%New(ProductID,ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom)
-		Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New()
-		Do BouwsteenCreator.Init(ProductID, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
-	}
-	ElseIf (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade()) && (ProductSpecificatie.GeefVariant() = ##class(DOM.PM.enu.LadeVariant).TAOR())
-	{
 		Set ProductID = ##class(DOM.PM.Product.impl.TAORMaatwerkProductCreator).%New().Creeer(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem, ProductData)
 	}
 	ElseIf (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade()) && (ProductSpecificatie.GeefVariant() = ##class(DOM.PM.enu.LadeVariant).LBXPure())
@@ -278,6 +270,13 @@
 		Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New()
 		Do BouwsteenCreator.Init(ProductID, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
 	}
+	ElseIf (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade()) && (ProductSpecificatie.GeefVariant() = ##class(DOM.PM.enu.LadeVariant).TBXAntaro())
+	{
+		Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMTBXLadeCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+		Set ProductID = ProductCreator.GeefPRNr()
+		Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New()
+		Do BouwsteenCreator.Init(ProductID, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+	}
 	ElseIf (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).AluKader())
 	{
 		Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMAluKaderCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
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>