Index: DOM/PM/impl/TBXLangtekstCreator.cls.xml
===================================================================
diff -u -r67063 -r67322
--- DOM/PM/impl/TBXLangtekstCreator.cls.xml	(.../TBXLangtekstCreator.cls.xml)	(revision 67063)
+++ DOM/PM/impl/TBXLangtekstCreator.cls.xml	(.../TBXLangtekstCreator.cls.xml)	(revision 67322)
@@ -189,12 +189,12 @@
 	#dim GeleiderTekst, TOBTekst, ProductID As TECH.String = ""
 	#dim Product As DOM.PM.AdministratiefProduct
 	
-	If $$$Not(..IsGeleiderNietMeegeleverd()) {
+	If $$$Not(##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, ..Enum.Rol.Geleider)) {
 		Set GeleiderTekst = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("Geleider") _ " " _ ..GeefDraagkrachtTekst()
 	}
 	
 	If (..IngegevenKenmerken.GeleiderTechnologie = ..Enum.GeleiderTechnologie.TiponBlumotion) {
-		If (..IsTiponBlumotionSetEenhedenMeenemersEnAdaptersNietMeegeleverd()) {
+		If $$$Not(##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, ..Enum.Rol.TiponBlumotionSetEenhedenMeenemersEnAdapters)) {
 			#dim HalffabItem As APPS.PM.Maatwerk.dto.DotNet.VerwijderdHalffabItemParsedFromJson = ..GeefVerwijderdHalffab(..Enum.Rol.TiponBlumotionSetEenhedenMeenemersEnAdapters)
 			Set ProductID = HalffabItem.ProductId
 		} Else {
@@ -207,7 +207,7 @@
 		Set TOBTekst = TOBTekst _ " " _ $Extract(Product.GeefKorttekst(), 1, 7)
 		Set TOBTekst = TOBTekst _ " " _ ..GeefKleurCodeTiponBlumotion(ProductID)
 	} Else {
-		If $$$Not(..IsGeleiderNietMeegeleverd()) {
+		If $$$Not(##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, ..Enum.Rol.Geleider)) {
 			Set GeleiderTekst = GeleiderTekst _ ..#KenmerkSeparator _ ##class(DOM.PM.enu.TBXGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
 		}
 	}
@@ -238,10 +238,10 @@
 <Implementation><![CDATA[
 	#dim ZijwandTekst As %String = ""
 	
-	If ((..IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling()) && $$$Not(..IsRelingZijkantNietMeegeleverd())) {
+	If ((..IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling()) && $$$Not(##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, ..Enum.Rol.RelingZijkant))) {
 		Set ZijwandTekst = ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBBoxSide).TaalAfhOmsClass("", "ER", ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
 	}
-	If ((..IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement()) && $$$Not(..IsInschuifElementNietMeegeleverd())) {
+	If ((..IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement()) && $$$Not(##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, ..Enum.Rol.InschuifElement))) {
 		Set ZijwandTekst = ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBBoxSide).TaalAfhOmsClass("", "INSCHF", ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
 		Set ZijwandTekst = ZijwandTekst _ " " _ ##class(Prod.GAMeta.BT.TBVulstukKleur).TaalAfhOmsClass("", ..IngegevenKenmerken.LegacyKenmerken.ItemKV, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
 	}
@@ -270,7 +270,7 @@
 <Implementation><![CDATA[
 	#dim FrontBevestigingTekst As %String = ""
 	
-	If ($$$Not(..IngegevenKenmerken.IsBinnenlade) &&  $$$Not(..IsFrontBevestigingNietMeegeleverd())) {
+	If ($$$Not(..IngegevenKenmerken.IsBinnenlade) &&  $$$Not(##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, ..Enum.Rol.FrontBevestiging))) {
 		Set FrontBevestigingTekst =  ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBFBevestiging).TaalAfhOmsClass("", ..IngegevenKenmerken.FrontBevestiging, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
 	}
 	
@@ -302,7 +302,7 @@
 <Implementation><![CDATA[
 	#dim AfdekkapTekst As TECH.String = ""
 	
-	If $$$Not(..IsAfdekkapNietMeegeleverd()) { 
+	If $$$Not(##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, ..Enum.Rol.Afdekkap)) { 
 		Set AfdekkapTekst = ..#KenmerkSeparator _ ##class(Res.Vertaling).GetVertaling("TB","LT-AFDEKKAP","O",..Taal, , 1)
 	}
 	
@@ -316,7 +316,7 @@
 <Implementation><![CDATA[
 	#dim OpvullijstTekst As TECH.String = ""
 	
-	If ($$$Not(..IsOpvullijstNietMeegeleverd()) && (..IngegevenKenmerken.HeeftOpvullijstLinks || ..IngegevenKenmerken.HeeftOpvullijstRechts)) { 
+	If ($$$Not(##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, ..Enum.Rol.Opvullijst)) && (..IngegevenKenmerken.HeeftOpvullijstLinks || ..IngegevenKenmerken.HeeftOpvullijstRechts)) { 
 		Set OpvullijstTekst = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("Opvullijst")
 		
 		If (..IngegevenKenmerken.HeeftOpvullijstLinks && ..IngegevenKenmerken.HeeftOpvullijstRechts) {
@@ -424,69 +424,6 @@
 	Quit VerpakkingType
 ]]></Implementation>
 </Method>
-
-<Method name="IsAfdekkapNietMeegeleverd">
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim Rol As %String = ..Enum.Rol.Afdekkap
-	Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
-]]></Implementation>
-</Method>
-
-<Method name="IsFrontBevestigingNietMeegeleverd">
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim Rol As %String = ..Enum.NietMeeleveren.FrontBevestiging
-	Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
-]]></Implementation>
-</Method>
-
-<Method name="IsGeleiderNietMeegeleverd">
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim Rol As %String = ..Enum.Rol.Geleider
-	Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
-]]></Implementation>
-</Method>
-
-<Method name="IsInschuifElementNietMeegeleverd">
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim Rol As %String = ..Enum.Rol.InschuifElement
-	Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
-]]></Implementation>
-</Method>
-
-<Method name="IsRelingZijkantNietMeegeleverd">
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim Rol As %String = ..Enum.Rol.RelingZijkant
-	Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
-]]></Implementation>
-</Method>
-
-<Method name="IsOpvullijstNietMeegeleverd">
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim Rol As %String = ..Enum.Rol.Opvullijst
-	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 -r67060 -r67322
--- vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 67060)
+++ vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 67322)
@@ -179,6 +179,8 @@
 	Set VerwijderdeHalffabItemsOpHalffabItemsBoom = ##class(%ArrayOfObjects).%New()
 	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).InschuifElement())
 	
+	Do ..TbxKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).InschuifElement())
+	
 	Set ..TbxKenmerken.ZijwandVerhogingType = ..Enum.ZijwandVerhogingType.InschuifElement
 	Set ..TbxKenmerken.LegacyKenmerken.ItemKV = "ALU.MG"
 	
@@ -357,7 +359,7 @@
 	If ($IsObject(VerwijderdeHalffabItems)) {
 		Set HalffabItemsBoom.VerwijderdeHalffabItems = VerwijderdeHalffabItems
 	}
-	Quit ..TbxLangtekstCreator.GeefLangtekst(..TbxKenmerken, HalffabItemsBoom, Taal,, "")
+	Quit ..TbxLangtekstCreator.GeefLangtekst(..TbxKenmerken, HalffabItemsBoom, Taal,, HalffabItemsBoom) //2e HalffabItemsBoom is placeholder, onherwerkte boom bestaat niet in .NET
 ]]></Implementation>
 </Method>