Index: APPS/PM/KenmMWFPlugin.cls.xml
===================================================================
diff -u -r1434 -r1458
--- APPS/PM/KenmMWFPlugin.cls.xml	(.../KenmMWFPlugin.cls.xml)	(revision 1434)
+++ APPS/PM/KenmMWFPlugin.cls.xml	(.../KenmMWFPlugin.cls.xml)	(revision 1458)
@@ -26,6 +26,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsOndersteundeGroepID">
+<FormalSpec>GroepID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ($Length(GroepID) > 3) && ($Extract(GroepID,1,3) = "TBX")
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkWijzigingen">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -37,24 +44,31 @@
 	While (KenmerkModifiedEventDataIterator.HasNext())
 	{
 		Set KenmerkModifiedEventData = KenmerkModifiedEventDataIterator.Next()
-		Set HalffabClassName = ..GeefHalffabClassNameVoor(KenmerkModifiedEventData.GroepID)
-		Set CompiledClass = ##class(%Dictionary.CompiledClass).%OpenId(HalffabClassName)
-		Set SQLTableName = CompiledClass.SqlSchemaName_"."_CompiledClass.SqlTableName
-		Set ResultSet = ##class(%ResultSet).%New()
-		Do ResultSet.Prepare("SELECT ID FROM "_SQLTableName_" WHERE UnID = ? ")
-		Do ResultSet.Execute(KenmerkModifiedEventData.UnID)
-		While (ResultSet.Next())
+		If (..IsOndersteundeGroepID(KenmerkModifiedEventData.GroepID))
 		{
-			Set Object = $zobjclassmethod(HalffabClassName,"%OpenId",ResultSet.Data("ID"))
-			Do ##class(TECH.Concurrency.TransactionMgr).LockExclusive(Object)
+			Set HalffabClassName = ..GeefHalffabClassNameVoor(KenmerkModifiedEventData.GroepID)
+			Set CompiledClass = ##class(%Dictionary.CompiledClass).%OpenId(HalffabClassName)
+			Set SQLTableName = CompiledClass.SqlSchemaName_"."_CompiledClass.SqlTableName
+			Set ResultSet = ##class(%ResultSet).%New()
+			Do ResultSet.Prepare("SELECT ID FROM "_SQLTableName_" WHERE UnID = ? ")
+			Do ResultSet.Execute(KenmerkModifiedEventData.UnID)
+			While (ResultSet.Next())
+			{
+				Set Object = $zobjclassmethod(HalffabClassName,"%OpenId",ResultSet.Data("ID"))
+				Do ##class(TECH.Concurrency.TransactionMgr).LockExclusive(Object)
+			}
 		}
 	}
 	
 	// Wijzigingen doorvoeren
 	Set KenmerkModifiedEventDataIterator = ##class(TECH.ListIterator).%New(..KenmerkenModifiedEventData.Wijzigingen)
 	While (KenmerkModifiedEventDataIterator.HasNext())
 	{
-		Do ..VerwerkWijziging(KenmerkModifiedEventDataIterator.Next())
+		Set KenmerkModifiedEventData = KenmerkModifiedEventDataIterator.Next()
+		If (..IsOndersteundeGroepID(KenmerkModifiedEventData.GroepID))
+		{
+			Do ..VerwerkWijziging(KenmerkModifiedEventData)
+		}
 	}
 	
 	Set $ZTRAP = ""
@@ -144,17 +158,20 @@
 		While (GewijzigdeWaardenIterator.HasNext())
 		{
 			Set GewijzigdeWaarde = GewijzigdeWaardenIterator.Next()
-			// Er zijn helemaal nog geen objecten voor dit kenmerk. We gaan er aanmaken en invullen.
-			Set Object = $zobjclassmethod(HalffabClassName,"%New")
-			// Even de waarde pollen om eventuele property "undefined" op te vangen
-			Do ..GeefPropertyWaarde(Object,Kenmerk)
-			Set $zobjproperty(Object,Kenmerk) = GewijzigdeWaarde
-			Set Object.UnID = UnID
-			// Index updaten
-			Do WaardenIndex.SetAt(##class(%ListOfObjects).%New(),GewijzigdeWaarde)
-			Do WaardenIndex.GetAt(GewijzigdeWaarde).Insert(Object)
-			// Objecten in de saveset steken.
-			Do TeBewarenObjecten.Insert(Object)
+			If (GewijzigdeWaarde '= "")
+			{
+				// Er zijn helemaal nog geen objecten voor dit kenmerk. We gaan er aanmaken en invullen.
+				Set Object = $zobjclassmethod(HalffabClassName,"%New")
+				// Even de waarde pollen om eventuele property "undefined" op te vangen
+				Do ..GeefPropertyWaarde(Object,Kenmerk)
+				Set $zobjproperty(Object,Kenmerk) = GewijzigdeWaarde
+				Set Object.UnID = UnID
+				// Index updaten
+				Do WaardenIndex.SetAt(##class(%ListOfObjects).%New(),GewijzigdeWaarde)
+				Do WaardenIndex.GetAt(GewijzigdeWaarde).Insert(Object)
+				// Objecten in de saveset steken.
+				Do TeBewarenObjecten.Insert(Object)
+			}
 		}
 	}
 	Else
@@ -172,8 +189,7 @@
 			While (GewijzigdeWaardenIterator.HasNext())
 			{
 				Set GewijzigdeWaarde = GewijzigdeWaardenIterator.Next()
-				
-				If (WaardenIndexVoorKenmerk.IsDefined(GewijzigdeWaarde))
+				If (GewijzigdeWaarde '= "") && (WaardenIndexVoorKenmerk.IsDefined(GewijzigdeWaarde))
 				{
 					Set ObjectenIterator = ##class(TECH.ListIterator).%New(WaardenIndexVoorKenmerk.GetAt(GewijzigdeWaarde))
 					While (ObjectenIterator.HasNext())
@@ -216,47 +232,50 @@
 		{
 			Set GewijzigdeWaarde = GewijzigdeWaardenIterator.Next()
 			
-			Set NieuweObjecten = ##class(%ListOfObjects).%New()
-			// Eerst nagaan of er voor deze property ooit waarden zijn gekend.
-			If ($IsObject(WaardenIndexVoorKenmerk) && ('WaardenIndexVoorKenmerk.IsDefined(GewijzigdeWaarde)) && (WaardenIndexVoorKenmerk.Count() > 0))
+			If (GewijzigdeWaarde '= "")
 			{
-				// Er zijn al waarden aanwezig. We gaan de lijst kopiëren van objecten.
-				// Alle kopiën zijn de objecten waar we onze nieuwe waarde moeten voor invullen.
-				// Het is voldoende om de objecten te kopiëren in de index van 1 waarde van het kenmerk
-				Set Lijst = PropertiesIndex.GetAt(Kenmerk).GetNext("")
-				For i=1:1:Lijst.Count() // Lijst van 1 waarde pakken en deze construct-clonen!
+				
+				Set NieuweObjecten = ##class(%ListOfObjects).%New()
+				// Eerst nagaan of er voor deze property ooit waarden zijn gekend.
+				If ($IsObject(WaardenIndexVoorKenmerk) && ('WaardenIndexVoorKenmerk.IsDefined(GewijzigdeWaarde)) && (WaardenIndexVoorKenmerk.Count() > 0))
 				{
-					Set Kopie = Lijst.GetAt(i).%ConstructClone(0)
-					Set $zobjproperty(Kopie,Kenmerk) = GewijzigdeWaarde
-					Do ObjectenLijst.Insert(Kopie)
-					Do TeBewarenObjecten.Insert(Kopie)
-					Do NieuweObjecten.Insert(Kopie)
+					// Er zijn al waarden aanwezig. We gaan de lijst kopiëren van objecten.
+					// Alle kopiën zijn de objecten waar we onze nieuwe waarde moeten voor invullen.
+					// Het is voldoende om de objecten te kopiëren in de index van 1 waarde van het kenmerk
+					Set Lijst = PropertiesIndex.GetAt(Kenmerk).GetNext("")
+					For i=1:1:Lijst.Count() // Lijst van 1 waarde pakken en deze construct-clonen!
+					{
+						Set Kopie = Lijst.GetAt(i).%ConstructClone(0)
+						Set $zobjproperty(Kopie,Kenmerk) = GewijzigdeWaarde
+						Do ObjectenLijst.Insert(Kopie)
+						Do TeBewarenObjecten.Insert(Kopie)
+						Do NieuweObjecten.Insert(Kopie)
+					}
 				}
-			}
-			ElseIf (('$IsObject(WaardenIndexVoorKenmerk)) || ('WaardenIndexVoorKenmerk.IsDefined(GewijzigdeWaarde)))
-			{
-				// Er waren nooit eerder waarden voor deze property gekend.
-				// We hoeven dus geen kopie te maken en kunnen rechtstreeks de nieuwe waarde invullen in de reeds bestaande objecten
-				For i=1:1:ObjectenLijst.Count()
+				ElseIf (('$IsObject(WaardenIndexVoorKenmerk)) || ('WaardenIndexVoorKenmerk.IsDefined(GewijzigdeWaarde)))
 				{
-					Set Object = ObjectenLijst.GetAt(i)
-					Set $zobjproperty(Object,Kenmerk) = GewijzigdeWaarde
-					Do TeBewarenObjecten.Insert(Object)
-					Do NieuweObjecten.Insert(Object)
+					// Er waren nooit eerder waarden voor deze property gekend.
+					// We hoeven dus geen kopie te maken en kunnen rechtstreeks de nieuwe waarde invullen in de reeds bestaande objecten
+					For i=1:1:ObjectenLijst.Count()
+					{
+						Set Object = ObjectenLijst.GetAt(i)
+						Set $zobjproperty(Object,Kenmerk) = GewijzigdeWaarde
+						Do TeBewarenObjecten.Insert(Object)
+						Do NieuweObjecten.Insert(Object)
+					}
 				}
-			}
-			
-			If (NieuweObjecten.Count() > 0)
-			{
-				// Onze index up-to-date houden			
-				If ('PropertiesIndex.IsDefined(Kenmerk))
+				
+				If (NieuweObjecten.Count() > 0)
 				{
-					Set WaardenIndexVoorKenmerk = ##class(%ArrayOfDataTypes).%New()
-					Do PropertiesIndex.SetAt(WaardenIndexVoorKenmerk,Kenmerk)
+					// Onze index up-to-date houden			
+					If ('PropertiesIndex.IsDefined(Kenmerk))
+					{
+						Set WaardenIndexVoorKenmerk = ##class(%ArrayOfDataTypes).%New()
+						Do PropertiesIndex.SetAt(WaardenIndexVoorKenmerk,Kenmerk)
+					}
+					Do WaardenIndexVoorKenmerk.SetAt(NieuweObjecten,GewijzigdeWaarde)
 				}
-				Do WaardenIndexVoorKenmerk.SetAt(NieuweObjecten,GewijzigdeWaarde)
 			}
-			
 		}
 	}
 	
@@ -305,6 +324,10 @@
 	Set ProductGroep = $Extract(GroepID,1,3)
 	Set Rol = $Extract(GroepID,4,$Length(GroepID))
 	
+	If (Rol = "")
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"Er kon geen rol worden afgeleid uit de productgroep """_ProductGroep_""""))
+	}
 	If ('##class(%Dictionary.CompiledClass).%ExistsId("DOM.PM.Maatwerk.Calc.HF.impl."_ProductGroep_".HalffabClassNameFactory"))
 	{
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"Er werd geen halffab classname factory gevonden voor de productgroep """_ProductGroep_""""))
@@ -327,7 +350,7 @@
 <FormalSpec>KenmerkModifiedEvent:TECH.Events.KenmerkModifiedEvent</FormalSpec>
 <Implementation><![CDATA[
 	Set KenmerkenModifiedEventData = ##class(TECH.Events.KenmerkenModifiedEventData).%New()
-	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEvent)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEvent.Data)
 	Do ..%New(KenmerkenModifiedEventData)
 ]]></Implementation>
 </Method>
@@ -342,5 +365,22 @@
 	Do ModifiedSubscription.%Save()
 ]]></Implementation>
 </Method>
+
+<Method name="ResyncMFWIndex">
+<Description>
+Do ##class(APPS.PM.KenmMWFPlugin).ResyncMFWIndex()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set ResultSet = ##class(%ResultSet).%New("Prod.Kenmerk.DataDefinitie:Extent")
+	Do ResultSet.Execute()
+	While (ResultSet.Next())
+	{
+		Set DataDefinitie = ##class(Prod.Kenmerk.DataDefinitie).%OpenId(ResultSet.Data("ID"))
+		Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(DataDefinitie.UnID,DataDefinitie.Kenmerk.Groep.Code,DataDefinitie.Kenmerk.Kenmerk,DataDefinitie.Waarden.%ConstructClone(1))
+		Set KenmerkModifiedEvent = ##class(TECH.Events.KenmerkModifiedEvent).%New(KenmerkModifiedEventData)
+		Do ..KenmerkModEventListener(KenmerkModifiedEvent)
+	}
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: vhUnitTest/APPS/PM/KenmMWFPluginMock.cls.xml
===================================================================
diff -u -r1412 -r1458
--- vhUnitTest/APPS/PM/KenmMWFPluginMock.cls.xml	(.../KenmMWFPluginMock.cls.xml)	(revision 1412)
+++ vhUnitTest/APPS/PM/KenmMWFPluginMock.cls.xml	(.../KenmMWFPluginMock.cls.xml)	(revision 1458)
@@ -12,5 +12,12 @@
 <Implementation><![CDATA[	Quit "vhUnitTest.APPS.PM.HalffabUT"
 ]]></Implementation>
 </Method>
+
+<Method name="IsOndersteundeGroepID">
+<FormalSpec>GroepID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
 </Class>
 </Export>