Index: vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/LBXTest005TOBSetNietMeeleveren.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/LBXTest005TOBSetNietMeeleveren.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/LBXTest005TOBSetNietMeeleveren.cls.xml	(revision 33079)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.impl.MaatwerkLangtekstCreator.LBXTest005TOBSetNietMeeleveren">
+<Super>vhUnitTest.DOM.PM.impl.MaatwerkLangtekstCreator.LBXTestBase</Super>
+
+<Method name="GeefKenmerkenDto">
+<Private>1</Private>
+<ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("DOM.common.ProjectSettingsAPI_IsActiefLBXTOBIntern", $$$True, ..#Applicatie)
+	#dim LBXKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).StandaardLade()
+	
+	Set LBXKenmerken.GeleiderTechnologie = ..Enum.GeleiderTechnologie.TIPONBLUMOTION
+	
+	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionSetEenhedenEnMeenemers())
+	
+	Quit LBXKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerwachteHoofding">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "LEGRABOX [Lade] C"
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerwachteDetaillijnen">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim List As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+
+	Do List.Insert("[DiepteAfkorting]:300x[BreedteAfkorting]:564; [Bodem]:[DG]; [ladezijkant]:[OG-M]; [StalenRug]; [RugwandHoogte] C; [Bevat]: [GemonteerdeLade]; [Geleider] 40[KilogramAfkorting]; TIP-ON BLUMOTION; frontbevest. EXPANDO")
+	Do List.Insert("[Verpakt]: [Karton]")
+	Do List.Insert("[NietMeegeleverd]: [TiponBlumotionSetEenhedenEnMeenemers]")
+
+	Quit List
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/impl/LBXLangtekstCreator.cls.xml
===================================================================
diff -u -r32484 -r33079
--- DOM/PM/impl/LBXLangtekstCreator.cls.xml	(.../LBXLangtekstCreator.cls.xml)	(revision 32484)
+++ DOM/PM/impl/LBXLangtekstCreator.cls.xml	(.../LBXLangtekstCreator.cls.xml)	(revision 33079)
@@ -166,8 +166,13 @@
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#Dim KleurCode As TECH.String = ..KleurCodeBepaler.GeefKleurCodeVoorRol(..Enum.Rol.TiponBlumotionEenheid, ..HalffabItemsBoom)
-
+	#Dim KleurCode As TECH.String = ""
+	if (..HalffabItemsBoom.BevatRol(..Enum.Rol.TiponBlumotionEenheid)) {
+		Set KleurCode = ..KleurCodeBepaler.GeefKleurCodeVoorRol(..Enum.Rol.TiponBlumotionEenheid, ..HalffabItemsBoom)
+	} ElseIf (..HalffabItemsBoom.BevatRol(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers)){
+		Set KleurCode = ..KleurCodeBepaler.GeefKleurCodeVoorRol(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers, ..HalffabItemsBoom)
+	}
+	
 	Quit ..GeefKleurOmschrijving(KleurCode)
 ]]></Implementation>
 </Method>
@@ -279,13 +284,20 @@
 <Implementation><![CDATA[
 	#Dim IsGeleiderTechnologieTiponBlumotion As %Boolean = (..IngegevenKenmerken.GeleiderTechnologie = ..Enum.GeleiderTechnologie.TIPONBLUMOTION)
 	#Dim BevatRolTiponBlumotionEenheid As %Boolean = (..HalffabItemsBoom.BevatRol(..Enum.Rol.TiponBlumotionEenheid))
+	#Dim BevatRolTiponBlumotionSetEenhedenEnMeenemers As %Boolean = (..HalffabItemsBoom.BevatRol(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers))
 	#Dim GeleiderTekst As TECH.String = ""
 	
 	Set GeleiderTekst = GeleiderTekst _ ..Vertaler.GeefVertaling("Geleider") _ " " _ ..GeefDraagkrachtTekst() _ ..#KenmerkSeparator
 	Set GeleiderTekst = GeleiderTekst _ ##class(DOM.PM.enu.LBXGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
 
-	If (IsGeleiderTechnologieTiponBlumotion && BevatRolTiponBlumotionEenheid) {
-		#Dim ConcreetHalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ..HalffabItemsBoom.GeefHalffabItem(..Enum.Rol.TiponBlumotionEenheid).GeefHalffabItem("Links")
+	If (IsGeleiderTechnologieTiponBlumotion && (BevatRolTiponBlumotionEenheid || BevatRolTiponBlumotionSetEenhedenEnMeenemers)) {
+		#Dim ConcreetHalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem
+		If BevatRolTiponBlumotionSetEenhedenEnMeenemers {
+			Set ConcreetHalffabItem = ..HalffabItemsBoom.GeefHalffabItem(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers)
+		} ElseIf BevatRolTiponBlumotionEenheid { 
+			Set ConcreetHalffabItem = ..HalffabItemsBoom.GeefHalffabItem(..Enum.Rol.TiponBlumotionEenheid).GeefHalffabItem("Links")
+		}
+		
 		#Dim Product As DOM.PM.AdministratiefProduct = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ConcreetHalffabItem.GeefHalffab().GeefProductID())
 		
 		Set GeleiderTekst = GeleiderTekst _ " " _ $Extract(Product.GeefKorttekst(), 1, 7)
Index: vhDeploy/Deploy20160308xVertalingLangtekstTOB.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20160308xVertalingLangtekstTOB.cls.xml	(revision 0)
+++ vhDeploy/Deploy20160308xVertalingLangtekstTOB.cls.xml	(revision 33079)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20160308xVertalingLangtekstTOB">
+<Super>TECH.RegisteredObject</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Vertalingen toevoegen Langtekst</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","TiponBlumotionSetEenhedenEnMeenemers",,"N", "TIP-ON BLUMOTION set")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","TiponBlumotionSetEenhedenEnMeenemers",,"D", "TIP-ON BLUMOTION Set")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","TiponBlumotionSetEenhedenEnMeenemers",,"E", "TIP-ON BLUMOTION set")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","TiponBlumotionSetEenhedenEnMeenemers",,"F", "TIP-ON BLUMOTION set")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/LBXTest004TOBSet.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/LBXTest004TOBSet.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/LBXTest004TOBSet.cls.xml	(revision 33079)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.impl.MaatwerkLangtekstCreator.LBXTest004TOBSet">
+<Super>vhUnitTest.DOM.PM.impl.MaatwerkLangtekstCreator.LBXTestBase</Super>
+
+<Method name="GeefKenmerkenDto">
+<Private>1</Private>
+<ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("DOM.common.ProjectSettingsAPI_IsActiefLBXTOBIntern", $$$True, ..#Applicatie)
+	#dim LBXKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).StandaardLade()
+	
+	Set LBXKenmerken.GeleiderTechnologie = ..Enum.GeleiderTechnologie.TIPONBLUMOTION
+	
+	Quit LBXKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerwachteHoofding">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "LEGRABOX [Lade] C"
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerwachteDetaillijnen">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim List As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	Do List.Insert("[DiepteAfkorting]:300x[BreedteAfkorting]:564; [Bodem]:[DG]; [ladezijkant]:[OG-M]; [StalenRug]; [RugwandHoogte] C; [Bevat]: [GemonteerdeLade]; [Geleider] 40[KilogramAfkorting]; TIP-ON BLUMOTION T60L714 [R735]; frontbevest. EXPANDO")
+	Do List.Insert("[Verpakt]: [Karton]")	
+	
+	Quit List
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>