Index: DOM/PM/impl/MVXLangtekstCreator.cls.xml
===================================================================
diff -u -r66136 -r69909
--- DOM/PM/impl/MVXLangtekstCreator.cls.xml	(.../MVXLangtekstCreator.cls.xml)	(revision 66136)
+++ DOM/PM/impl/MVXLangtekstCreator.cls.xml	(.../MVXLangtekstCreator.cls.xml)	(revision 69909)
@@ -299,18 +299,34 @@
 	
 	If (..IngegevenKenmerken.GeleiderTechnologie = ..Enum.GeleiderTechnologie.TIPONBLUMOTION) {
 		If (..IsTiponBlumotionEenheidNietMeegeleverd()) {
-			#dim HalffabItem As APPS.PM.Maatwerk.dto.DotNet.VerwijderdHalffabItemParsedFromJson = ..GeefVerwijderdHalffab("TiponBlumotionEenheid")
+			#dim HalffabItem As APPS.PM.Maatwerk.dto.DotNet.VerwijderdHalffabItemParsedFromJson = ..GeefVerwijderdHalffab(..Enum.Rol.TiponBlumotionEenheid)
 			Set ProductID = HalffabItem.ProductId
-		
 		} Else {
-			#dim ConcreetHalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ..HalffabItemsBoom.GeefHalffabItem(..Enum.Rol.TiponBlumotionEenheid).GeefHalffabItem("Links")
-			Set ProductID = ConcreetHalffabItem.GeefHalffab().GeefProductID()
+			#dim SamengesteldHalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ..HalffabItemsBoom.GeefHalffabItem(..Enum.Rol.TiponBlumotionEenheid)
+			If ($IsObject(SamengesteldHalffabItem)) {
+				#dim ConcreetHalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = SamengesteldHalffabItem.GeefHalffabItem("Links")
+				Set ProductID = ConcreetHalffabItem.GeefHalffab().GeefProductID()
+			}
 		}
 		
-		Set Product = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ProductID)
-		Set TOBTekst = ##class(DOM.PM.enu.MVXGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
-		Set TOBTekst = TOBTekst _ " " _ $Extract(Product.GeefKorttekst(), 1, 7)
-		Set TOBTekst = TOBTekst _ " " _ ..GeefKleurCodeTiponBlumotion(ProductID)
+		If (ProductID = "") {
+			If (..IsTiponBlumotionSetEenhedenEnMeenemersNietMeegeleverd()) {
+				Set HalffabItem = ..GeefVerwijderdHalffab(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers)
+				Set ProductID = HalffabItem.ProductId
+			} Else {
+				Set ConcreetHalffabItem = ..HalffabItemsBoom.GeefHalffabItem(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers)
+				If $IsObject(ConcreetHalffabItem) {
+					Set ProductID = ConcreetHalffabItem.GeefHalffab().GeefProductID()
+				}
+			}
+		}
+		
+		If $$$Not(ProductID = "") {
+			Set Product = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ProductID)
+			Set TOBTekst = ##class(DOM.PM.enu.MVXGeleiderTechnologie).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.MVXGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
@@ -473,6 +489,15 @@
 	Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
 ]]></Implementation>
 </Method>
+
+<Method name="IsTiponBlumotionSetEenhedenEnMeenemersNietMeegeleverd">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Rol As %String = ..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers
+	Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
+]]></Implementation>
+</Method>
 </Class>