Index: DOM/PM/impl/TBXLangtekstCreator.cls.xml
===================================================================
diff -u -r65758 -r66151
--- DOM/PM/impl/TBXLangtekstCreator.cls.xml	(.../TBXLangtekstCreator.cls.xml)	(revision 65758)
+++ DOM/PM/impl/TBXLangtekstCreator.cls.xml	(.../TBXLangtekstCreator.cls.xml)	(revision 66151)
@@ -183,21 +183,49 @@
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#dim GeleiderTekst As TECH.String = ""
+	#dim GeleiderTekst, TOBTekst, ProductID As TECH.String = ""
+	#dim Product As DOM.PM.AdministratiefProduct
 	
 	If $$$Not(..IsGeleiderNietMeegeleverd()) {
-		Set GeleiderTekst = ..#KenmerkSeparator	_ ..Vertaler.GeefVertaling("Geleider") _ " " _ ..GeefDraagkrachtTekst()
-			Set GeleiderTekst = GeleiderTekst _ ..#KenmerkSeparator	_##class(Prod.GAMeta.BT.TBBlumotion).TaalAfhOmsClass("", ..IngegevenKenmerken.LegacyKenmerken.ItemBM, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
-	} Else {
-		Set GeleiderTekst = GeleiderTekst _ ..#KenmerkSeparator _ ##class(DOM.PM.enu.MVXGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
+		Set GeleiderTekst = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("Geleider") _ " " _ ..GeefDraagkrachtTekst()
 	}
 	
-	If (..IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).TiponBlumotion()) {
-		Set TOBInfoBepaler = ##class(DOM.PM.impl.TBXLangtekstCreator.TOBInfoBepaler).%New(..Taal)
-		Set GeleiderTekst = GeleiderTekst _ " " _ TOBInfoBepaler.BepaalTOBInfo()
+	If (..IngegevenKenmerken.GeleiderTechnologie = ..Enum.GeleiderTechnologie.TiponBlumotion) {
+		If (..IsTiponBlumotionSetEenhedenMeenemersEnAdaptersNietMeegeleverd()) {
+			#dim HalffabItem As APPS.PM.Maatwerk.dto.DotNet.VerwijderdHalffabItemParsedFromJson = ..GeefVerwijderdHalffab(..Enum.Rol.TiponBlumotionSetEenhedenMeenemersEnAdapters)
+			Set ProductID = HalffabItem.ProductId
+		} Else {
+			#dim ConcreetHalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ..HalffabItemsBoom.GeefHalffabItem(..Enum.Rol.TiponBlumotionSetEenhedenMeenemersEnAdapters).GeefHalffabItem("Links")
+			Set ProductID = ConcreetHalffabItem.GeefHalffab().GeefProductID()
+		}
+		
+		Set Product = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ProductID)
+		Set TOBTekst = ##class(DOM.PM.enu.TBXGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
+		Set TOBTekst = TOBTekst _ " " _ $Extract(Product.GeefKorttekst(), 1, 7)
+		Set TOBTekst = TOBTekst _ " " _ ..GeefKleurCodeTiponBlumotion(ProductID)
+	} Else {
+		If $$$Not(..IsGeleiderNietMeegeleverd()) {
+			Set GeleiderTekst = GeleiderTekst _ ..#KenmerkSeparator _ ##class(DOM.PM.enu.TBXGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
+		}
 	}
+	
+	Quit GeleiderTekst _ $$$IfLength(TOBTekst, ..#KenmerkSeparator, "")
+]]></Implementation>
+</Method>
 
-	Quit GeleiderTekst
+<Method name="GeefKleurCodeTiponBlumotion">
+<FormalSpec>ProductID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#define VerwijderSlash(%v) $translate(%v, "/", "")
+	
+	#dim KleurCode As TECH.String = ""
+		
+	#dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID)		
+	Set KleurCode = $$$VerwijderSlash(Product.GeefKleurVanKorttekst())
+	
+	Quit ..GeefKleurOmschrijving(KleurCode)
 ]]></Implementation>
 </Method>
 
@@ -447,6 +475,15 @@
 	Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
 ]]></Implementation>
 </Method>
+
+<Method name="IsTiponBlumotionSetEenhedenMeenemersEnAdaptersNietMeegeleverd">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Rol As %String = ..Enum.Rol.TiponBlumotionSetEenhedenMeenemersEnAdapters
+	Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/Test.cls.xml
===================================================================
diff -u -r65757 -r66151
--- vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 65757)
+++ vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 66151)
@@ -194,7 +194,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Smalle lade met TOB ">
+<Method name="Test: Smalle lade met Blumotion ">
 <Implementation><![CDATA[
 	Set ..TbxKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).SmalleLadeProBOXVerpakkingMetExtras()
 	Set ..TbxKenmerken.GeleiderTechnologie = "B"
@@ -298,6 +298,7 @@
 Method "Test: Standaardlade D met alle niet meeleverens "()
 {
 	Set ..TbxKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).StandaardLadeVoorHerwerkingBOMBOL()
+	//Terug op TOB zetten eens signaletiek in .NET zit
 	Do ..TbxKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Afdekkap())
 	Do ..TbxKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Bodemsteun())
 	Do ..TbxKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).FrontBevestiging())
@@ -319,9 +320,9 @@
 	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).InschuifElement())
 	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Opvullijst())
 	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), "Reling")
-	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), "TiponBlumotionOnderdelen")
-	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), "TiponBlumotionSet")
-	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).TiponBlumotionSynchronisatieStang())
+	;Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), "TiponBlumotionOnderdelen")
+	;Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), "TiponBlumotionSet")
+	;Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).TiponBlumotionSynchronisatieStang())
 	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), "TiponBlumotionSynchronisatieToebehoren")
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst(VerwijderdeHalffabItemsOpHalffabItemsBoom)