Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.TestKenmerkenService") 1 vhUnitTest.TestCase Parameter Type As %String = "I"; %String vhUnitTest.DOM.PM.TestData 1 AManager:Tools.Test.Manager %Status 1 KenmerkenModifiedEvent:TECH.Events.KenmerkenModifiedEvent 0) { Set %HeeftModEventOntvangen = 1 For i=1:1:KenmerkenModifiedEvent.Data.Wijzigingen.Count(){ #dim KenmMod as TECH.Events.KenmerkModifiedEventData = KenmerkenModifiedEvent.Data.Wijzigingen.GetAt(i) Set %HeeftModEventOntvangen(KenmMod.UnID) = 1 } } ]]> KenmerkMetadataNaam:%String 1 APPS.PM.dto.Kenm.KenmerkMetadata KenmerkMetadataNaam:%String,Waarde:%String 1 APPS.PM.dto.Kenm.ProductKenmerk