Index: vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/NietMeeleverenBepaler/BepaalNietMeeleverenTekst/GADataItemMock.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/NietMeeleverenBepaler/BepaalNietMeeleverenTekst/GADataItemMock.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/NietMeeleverenBepaler/BepaalNietMeeleverenTekst/GADataItemMock.cls.xml	(revision 35113)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.impl.TBXLangtekstCreator.NietMeeleverenBepaler.BepaalNietMeeleverenTekst.GADataItemMock">
+<Description>
+Extends Prod.GAData.Item </Description>
+<ClassType/>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ItemLabel">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DataItemIsActief">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ItemLabel:%String,IsActief:%Boolean</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ItemLabel = ItemLabel
+	Set ..DataItemIsActief = IsActief
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="IsActief">
+<Description>
+Method Override</Description>
+<FormalSpec>ForceRecalc:%Boolean</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..DataItemIsActief
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/NietMeeleverenBepaler/BepaalNietMeeleverenTekst/GADataProductMock.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/NietMeeleverenBepaler/BepaalNietMeeleverenTekst/GADataProductMock.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/NietMeeleverenBepaler/BepaalNietMeeleverenTekst/GADataProductMock.cls.xml	(revision 35113)
@@ -0,0 +1,91 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.impl.TBXLangtekstCreator.NietMeeleverenBepaler.BepaalNietMeeleverenTekst.GADataProductMock">
+<ClassType/>
+<Super>Prod.GAData.Product</Super>
+
+<Property name="mdMockItemValues">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+<Transient>1</Transient>
+</Property>
+
+<Property name="mdMockDataItems">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+<Transient>1</Transient>
+</Property>
+
+<Method name="VoegToeMockDataItem">
+<FormalSpec>ItemLabel:%String,NietMeeKenmerkNaam:%String="",ItemIsActiefIndienWelMeeleveren:%Boolean=$$$True</FormalSpec>
+<Implementation><![CDATA[	Set ..mdMockDataItems(ItemLabel)=$LB(NietMeeKenmerkNaam,ItemIsActiefIndienWelMeeleveren)
+]]></Implementation>
+</Method>
+
+<Method name="WijzigMockDataItemActief">
+<FormalSpec>ItemLabel:%String,ItemIsActiefIndienWelMeeleveren:%Boolean</FormalSpec>
+<Implementation><![CDATA[	Set $LI(..mdMockDataItems(ItemLabel),2)=ItemIsActiefIndienWelMeeleveren
+]]></Implementation>
+</Method>
+
+<Method name="SetMockItemVal">
+<FormalSpec>ProgLabel:%String,ItemVal:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..mdMockItemValues(ProgLabel,"Val")=ItemVal
+]]></Implementation>
+</Method>
+
+<Method name="SetItemValByPL">
+<Description>
+Method Override </Description>
+<FormalSpec>ProgLabel:%Library.String,ItemVal:%Library.String,blnForceSet:%Boolean=0</FormalSpec>
+<ReturnType>%Library.Status</ReturnType>
+<Implementation><![CDATA[	Do ..SetMockItemVal(ProgLabel,ItemVal)
+]]></Implementation>
+</Method>
+
+<Method name="Val">
+<Description>
+Method Override </Description>
+<FormalSpec>ProgLabel:%Library.String</FormalSpec>
+<ReturnType>%Library.String</ReturnType>
+<Implementation><![CDATA[	Quit $G(..mdMockItemValues(ProgLabel,"Val"))
+]]></Implementation>
+</Method>
+
+<Method name="GeefDataItemViaLabel">
+<Description>
+Method Override </Description>
+<FormalSpec>ItemLabel:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>Prod.GAData.Item</ReturnType>
+<Implementation><![CDATA[
+	Quit:($$$Not($D(..mdMockDataItems(ItemLabel)))) ""
+	
+	#dim lbDataItemInfo As %List = ..mdMockDataItems(ItemLabel)
+	#dim NietMeeKenmerkNaam As %String = $LI(lbDataItemInfo,1)
+	#dim ItemIsActiefIndienWelMeeleveren As %Boolean = $LI(lbDataItemInfo,2)
+	
+	#dim IsActief As %Boolean = ItemIsActiefIndienWelMeeleveren 
+	If ($$$HasLength(NietMeeKenmerkNaam)) {
+		Set IsActief = IsActief && (..Val(NietMeeKenmerkNaam) = $$$False)
+	}
+	
+	Set DataItem = ##class(vhUnitTest.DOM.PM.impl.TBXLangtekstCreator.NietMeeleverenBepaler.BepaalNietMeeleverenTekst.GADataItemMock).%New(ItemLabel,IsActief)
+	Quit DataItem
+]]></Implementation>
+</Method>
+
+<Method name="CopyObject">
+<Description>
+Method Override 
+Voor dit gemockte object volstaat een simpele ConstructClone() i.p.v. do #super() </Description>
+<FormalSpec>CopyMode:%Library.String="FullCopy"</FormalSpec>
+<Implementation><![CDATA[
+	#dim GADataProductZonderNietMee As Prod.GAData.Product = ..%ConstructClone($$$False)
+	Quit GADataProductZonderNietMee
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/NietMeeleverenBepaler/BepaalNietMeeleverenTekst/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/NietMeeleverenBepaler/BepaalNietMeeleverenTekst/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/NietMeeleverenBepaler/BepaalNietMeeleverenTekst/Test.cls.xml	(revision 35113)
@@ -0,0 +1,125 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.impl.TBXLangtekstCreator.NietMeeleverenBepaler.BepaalNietMeeleverenTekst.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Taal">
+<Type>DOM.enu.Taal</Type>
+<InitialExpression>##class(DOM.enu.Taal).Nederlands()</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="VertaalAPI">
+<Type>vhTest.Mock.DOM.common.Transl.VertaalAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..VertaalAPI = ##class(vhTest.Mock.DOM.common.Transl.VertaalAPI).%New()
+	Set VertalerStub = ##class(vhTest.Utils.Vertaler).%New("", ..Taal)
+	Do ..VertaalAPI.IndienMethodCall("GeefStandaardVertaler", ..Taal).DanReturn(VertalerStub)
+]]></Implementation>
+</Method>
+
+<Method name="Test Alles meegeleverd dus NietMee langtekst is leeg">
+<Implementation><![CDATA[
+	#dim GADataProduct As vhUnitTest.DOM.PM.impl.TBXLangtekstCreator.NietMeeleverenBepaler.BepaalNietMeeleverenTekst.GADataProductMock = ..MaakGADataProduct()
+	
+	Do ..AssertLangtekst(GADataProduct,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test meer dan 1 (CP en TOBSTG) niet meegeleverd">
+<Implementation><![CDATA[
+	#dim GADataProduct As vhUnitTest.DOM.PM.impl.TBXLangtekstCreator.NietMeeleverenBepaler.BepaalNietMeeleverenTekst.GADataProductMock = ..MaakGADataProduct()
+	Do GADataProduct.SetMockItemVal("NMCP",      $$$True)
+	Do GADataProduct.SetMockItemVal("NMTOBSTG",  $$$True)
+	
+	Do ..AssertLangtekst(GADataProduct,"[NietMeegeleverd]: [geleiders]; [NietMeeTBX-TOBSTANG]")
+]]></Implementation>
+</Method>
+
+<Method name="Test NietMee onbekend item, wordt niet vermeld">
+<Description>
+Deze geeft aan dat de software niet crasht indien er bvb. een nieuwe item NM... zou bijkomen </Description>
+<Implementation><![CDATA[
+	#dim GADataProduct As vhUnitTest.DOM.PM.impl.TBXLangtekstCreator.NietMeeleverenBepaler.BepaalNietMeeleverenTekst.GADataProductMock = ..MaakGADataProduct()
+	Do GADataProduct.SetMockItemVal("NM_Onbekend", $$$True)
+	
+	Do ..AssertLangtekst(GADataProduct,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test ASM niet meegeleverd, maar is niet gekend in mdNietMeeLookup, dus wordt niet vermeld">
+<Implementation><![CDATA[
+	#dim GADataProduct As vhUnitTest.DOM.PM.impl.TBXLangtekstCreator.NietMeeleverenBepaler.BepaalNietMeeleverenTekst.GADataProductMock = ..MaakGADataProduct()
+	Do GADataProduct.SetMockItemVal("NMASM",     $$$True)
+	
+	Do ..AssertLangtekst(GADataProduct,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test ASM en TOBSET niet meegeleverd (ASM: zie vorige), alleen TOBSET wordt vermeld">
+<Implementation><![CDATA[
+	#dim GADataProduct As vhUnitTest.DOM.PM.impl.TBXLangtekstCreator.NietMeeleverenBepaler.BepaalNietMeeleverenTekst.GADataProductMock = ..MaakGADataProduct()
+	Do GADataProduct.SetMockItemVal("NMTOBSET",  $$$True)
+	Do GADataProduct.SetMockItemVal("NMASM",     $$$True)
+	
+	Do ..AssertLangtekst(GADataProduct,"[NietMeegeleverd]: [NietMeeTBX-TOBSET]")
+]]></Implementation>
+</Method>
+
+<Method name="Test NietMee heeft impact op 3 items; dus 3 items vermeld in langtekst">
+<Implementation><![CDATA[
+	#dim GADataProduct As vhUnitTest.DOM.PM.impl.TBXLangtekstCreator.NietMeeleverenBepaler.BepaalNietMeeleverenTekst.GADataProductMock = ..MaakGADataProduct()
+	Do GADataProduct.SetMockItemVal("NMTOBTOEB", $$$True)
+	
+	Do ..AssertLangtekst(GADataProduct,"[NietMeegeleverd]: [NietMeeTBX-TOBADAPTER]; [NietMeeTBX-TOBBODEMSTAB]; [NietMeeTBX-TOBSTHOUDER]")
+]]></Implementation>
+</Method>
+
+<Method name="Test NietMee heeft impact op 3 items, waarvan 1 sowieso niet actief; andere 2 vermeld in langtekst">
+<Implementation><![CDATA[
+	#dim GADataProduct As vhUnitTest.DOM.PM.impl.TBXLangtekstCreator.NietMeeleverenBepaler.BepaalNietMeeleverenTekst.GADataProductMock = ..MaakGADataProduct()
+	Do GADataProduct.SetMockItemVal("NMTOBTOEB", $$$True)
+	Do GADataProduct.WijzigMockDataItemActief("PRTOBBSB", $$$False)
+	
+	Do ..AssertLangtekst(GADataProduct,"[NietMeegeleverd]: [NietMeeTBX-TOBADAPTER]; [NietMeeTBX-TOBSTHOUDER]")
+]]></Implementation>
+</Method>
+
+<Method name="AssertLangtekst">
+<FormalSpec>GADataProduct:Prod.GAData.Product,VerwachteTekst:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set NietMeeleverenBepaler = ##class(DOM.PM.impl.TBXLangtekstCreator.NietMeeleverenBepaler).%New(..VertaalAPI)
+	#dim Langtekst As %String = NietMeeleverenBepaler.BepaalNietMeeleverenTekst(..Taal,GADataProduct)
+
+	Do $$$AssertEquals(Langtekst,VerwachteTekst)
+]]></Implementation>
+</Method>
+
+<Method name="MaakGADataProduct">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set GADataProduct = ##class(vhUnitTest.DOM.PM.impl.TBXLangtekstCreator.NietMeeleverenBepaler.BepaalNietMeeleverenTekst.GADataProductMock).%New()
+	
+	Do GADataProduct.VoegToeMockDataItem("PRCPLI",   "NMCP",      $$$True)
+	Do GADataProduct.VoegToeMockDataItem("PRTOBSET", "NMTOBSET",  $$$True)
+	Do GADataProduct.VoegToeMockDataItem("PRTOBSTG", "NMTOBSTG",  $$$True)
+	Do GADataProduct.VoegToeMockDataItem("PRTOBADP", "NMTOBTOEB", $$$True)
+	Do GADataProduct.VoegToeMockDataItem("PRTOBSHD", "NMTOBTOEB", $$$True)
+	Do GADataProduct.VoegToeMockDataItem("PRTOBBSB", "NMTOBTOEB", $$$True)
+	Do GADataProduct.VoegToeMockDataItem("PRASM",    "NMASM",     $$$True)
+	
+	Quit GADataProduct
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>