Index: DOM/PM/impl/TBXLangtekstCreator/NietMeeleverenBepaler.cls.xml
===================================================================
diff -u -r34150 -r35022
--- DOM/PM/impl/TBXLangtekstCreator/NietMeeleverenBepaler.cls.xml	(.../NietMeeleverenBepaler.cls.xml)	(revision 34150)
+++ DOM/PM/impl/TBXLangtekstCreator/NietMeeleverenBepaler.cls.xml	(.../NietMeeleverenBepaler.cls.xml)	(revision 35022)
@@ -9,6 +9,29 @@
 <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">
+<Description>
+KeyValuePair </Description>
+<Type>%ListOfObjects</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="ProductAPI">
 <Type>DOM.PM.ProductAPI</Type>
 <Private>1</Private>
@@ -29,6 +52,7 @@
 <Implementation><![CDATA[
 	Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	Set ..VertaalAPI = ##class(DOM.common.Transl.impl.VertaalAPI).%New()
+	Do ..InitNietMeeLookup()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -39,48 +63,110 @@
 <Implementation><![CDATA[
 	Set Langtekst = ""
 	
-	Set ..Vertaler = ..VertaalAPI.GeefStandaardVertaler(Taal)
-	Set NietMeeTeLeverenRollen = ..Vertaler.GeefVertalingen(..GeefNietMeegeleverdeRollen())
-	If NietMeeTeLeverenRollen.Count() {
-		Set Langtekst = ..Vertaler.GeefVertaling("NietMeegeleverd")_": "_##class(TECH.ListUtils).ListToPieces(NietMeeTeLeverenRollen,..#KenmerkSeparator)
+	Set ..GADataProduct = GADataProduct
+	Set ..NietMeeKeysMetItemLabels = ..GeefNietMeeKeysMetItemLabels()
+	
+	If ..NietMeeKeysMetItemLabels.Count() {
+		Set ..Vertaler = ..VertaalAPI.GeefStandaardVertaler(Taal)
+		Set NietMeeVertaaldeItems = ..Vertaler.GeefVertalingen(..GeefNietMeeVertaalItems())
+		If NietMeeVertaaldeItems.Count() {
+			Set Langtekst = ..Vertaler.GeefVertaling("NietMeegeleverd")_": "_##class(TECH.ListUtils).ListToPieces(NietMeeVertaaldeItems,..#KenmerkSeparator)
+		}
 	}
 
 	Quit Langtekst
 ]]></Implementation>
 </Method>
 
-<Method name="GeefNietMeegeleverdeRollen">
-<Final>1</Final>
+<Method name="GeefNietMeeKeysMetItemLabels">
 <Private>1</Private>
-<ReturnType>%ListOfDataTypes</ReturnType>
+<ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	Set NietMeegeleverdeRollen = ##class(%ListOfDataTypes).%New()
+	Set NietMeeKeysMetItemLabels = ##class(%ListOfObjects).%New()
+	
+	Set NietMeeKeyIterator = ##class(TECH.ListIterator).%New(..GADataProduct.GeefNietMeeKeysInProduct())
+	While NietMeeKeyIterator.HasNext() {
+		Set NietMeeKey = NietMeeKeyIterator.Next()
+		If $D(..mdNietMeeLookup(NietMeeKey)) {
+			Set DataItemLabel = ""
+			For { Set DataItemLabel = $Order(..mdNietMeeLookup(NietMeeKey,DataItemLabel))  Quit:(DataItemLabel="")
+				Do NietMeeKeysMetItemLabels.Insert(##class(TECH.KeyValuePair).%New(NietMeeKey,DataItemLabel))
+			}
+		}
+	}
+	Quit NietMeeKeysMetItemLabels
+]]></Implementation>
+</Method>
 
-	; Pseudo-code (fase 1)
-	/*
-	If (NMTOBSET  = true) en (IsActief("PRTOBSET"))  dan AddRolTekst(Vertaling("NietMeeTOBSet")
-	If (NMTOBSTG  = true) en (IsActief("PRTOBSTG"))  dan AddRolTekst(Vertaling("NietMeeTOBStang")
-	If (NMTOBTOEB = true) en (IsActief("PRTOBADP"))  dan AddRolTekst(Vertaling("NietMeeTOBSynchroAdapter")
-	If (NMTOBTOEB = true) en (IsActief("PRTOBSHD"))  dan AddRolTekst(Vertaling("NietMeeTOBStangHouder")
-	If (NMTOBTOEB = true) en (IsActief("PRTOBBSB"))  dan AddRolTekst(Vertaling("NietMeeTOBBodemStabilisator")
+<Method name="GeefNietMeeVertaalItems">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set NietMeeVertaalItems = ##class(%ListOfDataTypes).%New()
 	
-	;HARD-CODED TEST : 
-	Do NietMeegeleverdeRollen.Insert("AdapterStuk")
-	*/
+	Do ..MaakGADataProductZonderNietMee()
 	
-	; Code gekopieerd van LBX/TAX 
-	/*
-	Set NietMeeleverenIterator = ##class(TECH.ListIterator).%New(..IngegevenKenmerken.NietMeeleveren)
-	While NietMeeleverenIterator.HasNext() {
-		Set Rol = NietMeeleverenIterator.Next()
-		If ..GeefAantalHalffabItemsInOnHerwerkteBoom(Rol)>0 {
-			Do NietMeegeleverdeRollen.Insert(Rol)
+	Set NietMeeKeyIterator = ##class(TECH.ListIterator).%New(..NietMeeKeysMetItemLabels)
+	While NietMeeKeyIterator.HasNext() {
+		Set KeyValuePair = NietMeeKeyIterator.Next()
+		Set NietMeeKey = KeyValuePair.Key
+		Set DataItemLabel = KeyValuePair.Value
+		If ..IsNietMeeItemTeVermelden(NietMeeKey,DataItemLabel) {
+			Do NietMeeVertaalItems.Insert(..mdNietMeeLookup(NietMeeKey,DataItemLabel))
 		}
 	}
-	*/
+	Do ..WisGADataProductZonderNietMee()
+		
+	Quit NietMeeVertaalItems
+]]></Implementation>
+</Method>
+
+<Method name="IsNietMeeItemTeVermelden">
+<FormalSpec>NietMeeKey:%String,DataItemLabel:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#define ForcedRecalc   $$$True
 	
-	Quit NietMeegeleverdeRollen
+	Set TeVermelden = 0
+	If (..GADataProduct.Val(NietMeeKey)) {
+		Set DataItem = $G(..GADataProductZonderNietMee.LookUp("IL",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>