Index: Prod/GAData/Product/tmpKPRCreate.mac.rou
===================================================================
diff -u -r34119 -r35112
--- Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 34119)
+++ Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 35112)
@@ -679,6 +679,11 @@
  ; Verpakking
  Set Txt=##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.Verpakking",..Val("VERPAK"),Taal)
  Do AddLT(Taal,.Oms,.Txt,.Optie,1)
+ ; Niet Meeleveren 
+ New NietMeeleverenBepaler   Set NietMeeleverenBepaler = ##class(DOM.PM.impl.TBXLangtekstCreator.NietMeeleverenBepaler).%New()
+ Set Txt = NietMeeleverenBepaler.BepaalNietMeeleverenTekst(Taal,##this)
+ Do AddLT(Taal,.Oms,.Txt,.Optie,1)
+ 
  Quit
 ltxGRP
  ; Oms via .Local
Index: DOM/PM/impl/TBXLangtekstCreator/NietMeeleverenBepaler.cls.xml
===================================================================
diff -u
--- DOM/PM/impl/TBXLangtekstCreator/NietMeeleverenBepaler.cls.xml	(revision 0)
+++ DOM/PM/impl/TBXLangtekstCreator/NietMeeleverenBepaler.cls.xml	(revision 35112)
@@ -0,0 +1,165 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.impl.TBXLangtekstCreator.NietMeeleverenBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Parameter name="KenmerkSeparator">
+<Type>%String</Type>
+<Default>; </Default>
+</Parameter>
+
+<Property name="mdNietMeeLookup">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+<Transient>1</Transient>
+</Property>
+
+<Property name="GADataProduct">
+<Type>Prod.GAData.Product</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="GADataProductZonderNietMee">
+<Type>Prod.GAData.Product</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="NietMeeKeysMetItemLabels">
+<Type>TECH.KeyValue.List</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VertaalAPI">
+<Type>DOM.common.Transl.VertaalAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VertaalAPI:DOM.common.Transl.VertaalAPI</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..VertaalAPI = $$$Inject(VertaalAPI,##class(DOM.DomeinContext).Instance().GeefVertaalAPI())
+	Do ..InitNietMeeLookup()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BepaalNietMeeleverenTekst">
+<FormalSpec>Taal:DOM.enu.Taal,GADataProduct:Prod.GAData.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Langtekst As %String = ""
+	
+	Set ..GADataProduct = GADataProduct
+	Set ..NietMeeKeysMetItemLabels = ..GeefNietMeeKeysMetItemLabels()
+	
+	If ..NietMeeKeysMetItemLabels.Count() {
+		#dim Vertaler As DOM.common.Transl.Vertaler = ..VertaalAPI.GeefStandaardVertaler(Taal)
+		#dim NietMeeVertaaldeItems As %ListOfDataTypes = Vertaler.GeefVertalingen(..GeefNietMeeVertaalSleutels())
+		If NietMeeVertaaldeItems.Count() {
+			Set Langtekst = Vertaler.GeefVertaling("NietMeegeleverd") _ ": "
+			Set Langtekst = Langtekst _ ##class(TECH.ListUtils).ListToPieces(NietMeeVertaaldeItems,..#KenmerkSeparator)
+		}
+	}
+	
+	Quit Langtekst
+]]></Implementation>
+</Method>
+
+<Method name="GeefNietMeeKeysMetItemLabels">
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set NietMeeKeysMetItemLabels = ##class(TECH.KeyValue.List).%New()
+		
+	Set NietMeeKeyIterator = ##class(TECH.ListIterator).%New(..GADataProduct.GeefNietMeeKeysInProduct())
+	While NietMeeKeyIterator.HasNext() {
+		#dim NietMeeKey As %String = NietMeeKeyIterator.Next()
+		If $D(..mdNietMeeLookup(NietMeeKey)) {
+			#dim DataItemLabel As %String = ""
+			For { Set DataItemLabel = $Order(..mdNietMeeLookup(NietMeeKey,DataItemLabel))  Quit:(DataItemLabel="")
+				Do NietMeeKeysMetItemLabels.InsertKeyValue(NietMeeKey,DataItemLabel)
+			}
+		}
+	}
+	
+	Quit NietMeeKeysMetItemLabels
+]]></Implementation>
+</Method>
+
+<Method name="GeefNietMeeVertaalSleutels">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set NietMeeVertaalSleutels = ##class(%ListOfDataTypes).%New()
+	
+	Do ..MaakGADataProductZonderNietMee()
+	
+	Set NietMeeKeyIterator = ##class(TECH.ListIterator).%New(..NietMeeKeysMetItemLabels)
+	While NietMeeKeyIterator.HasNext() {
+		#dim KeyValuePair As TECH.KeyValuePair = NietMeeKeyIterator.Next()
+		#dim NietMeeKey As %String = KeyValuePair.Key
+		#dim DataItemLabel As %String = KeyValuePair.Value
+		If ..IsNietMeeItemTeVermelden(NietMeeKey,DataItemLabel) {
+			#dim VertaalSleutel As %String = ..mdNietMeeLookup(NietMeeKey,DataItemLabel)
+			Do NietMeeVertaalSleutels.Insert(VertaalSleutel)
+		}
+	}
+	Do ..WisGADataProductZonderNietMee()
+
+	Quit NietMeeVertaalSleutels
+]]></Implementation>
+</Method>
+
+<Method name="IsNietMeeItemTeVermelden">
+<FormalSpec>NietMeeKey:%String,DataItemLabel:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#define ForcedRecalc   $$$True
+	
+	#dim TeVermelden As %Boolean = 0
+	If (..GADataProduct.Val(NietMeeKey)) {
+		#dim DataItem As Prod.GAData.Item = ..GADataProductZonderNietMee.GeefDataItemViaLabel(DataItemLabel)
+		Set:($IsObject(DataItem))&&(DataItem.IsActief($$$ForcedRecalc)) TeVermelden=$$$True
+	}
+
+	Quit TeVermelden
+]]></Implementation>
+</Method>
+
+<Method name="MaakGADataProductZonderNietMee">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..GADataProductZonderNietMee = ..GADataProduct.MaakGADataProductZonderNietMee()
+]]></Implementation>
+</Method>
+
+<Method name="WisGADataProductZonderNietMee">
+<Description>
+Forceer cleanup memory / unswizzle 	</Description>
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..GADataProductZonderNietMee = ""
+]]></Implementation>
+</Method>
+
+<Method name="InitNietMeeLookup">
+<Description>
+Let op : eerste subnodes is niet uniek (bvb. "NMTOBTOEB") ! </Description>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Kill ..mdNietMeeLookup
+	
+	Set ..mdNietMeeLookup("NMTOBSET" ,"PRTOBSET") = "NietMeeTBX-TOBSET"
+	Set ..mdNietMeeLookup("NMTOBSTG" ,"PRTOBSTG") = "NietMeeTBX-TOBSTANG"
+	Set ..mdNietMeeLookup("NMTOBTOEB","PRTOBADP") = "NietMeeTBX-TOBADAPTER"
+	Set ..mdNietMeeLookup("NMTOBTOEB","PRTOBSHD") = "NietMeeTBX-TOBSTHOUDER"
+	Set ..mdNietMeeLookup("NMTOBTOEB","PRTOBBSB") = "NietMeeTBX-TOBBODEMSTAB"
+	Set ..mdNietMeeLookup("NMCP"     ,"PRCPLI")   = "geleiders"
+	Set ..mdNietMeeLookup("NMFB"     ,"PRFB")     = "frontbevestiging"
+	Set ..mdNietMeeLookup("NMAK"     ,"PRAKLI")   = "NietMeeTBX-AK"
+	Set ..mdNietMeeLookup("NMRL"     ,"PRRL")     = "NietMeeTBX-RL"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>