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 34150)
@@ -0,0 +1,86 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.impl.TBXLangtekstCreator.NietMeeleverenBepaler">
+<Super>TECH.RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="KenmerkSeparator">
+<Type>%String</Type>
+<Default>; </Default>
+</Parameter>
+
+<Property name="ProductAPI">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VertaalAPI">
+<Type>DOM.common.Transl.VertaalAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Vertaler">
+<Type>DOM.common.Transl.Vertaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set ..VertaalAPI = ##class(DOM.common.Transl.impl.VertaalAPI).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BepaalNietMeeleverenTekst">
+<FormalSpec>Taal:DOM.enu.Taal,GADataProduct:Prod.GAData.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<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)
+	}
+
+	Quit Langtekst
+]]></Implementation>
+</Method>
+
+<Method name="GeefNietMeegeleverdeRollen">
+<Final>1</Final>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set NietMeegeleverdeRollen = ##class(%ListOfDataTypes).%New()
+
+	; 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")
+	
+	;HARD-CODED TEST : 
+	Do NietMeegeleverdeRollen.Insert("AdapterStuk")
+	*/
+	
+	; 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)
+		}
+	}
+	*/
+	
+	Quit NietMeegeleverdeRollen
+]]></Implementation>
+</Method>
+</Class>
+</Export>