Index: APPS/PM/KenmMWFPlugin.cls.xml
===================================================================
diff -u -r1425 -r1434
--- APPS/PM/KenmMWFPlugin.cls.xml	(.../KenmMWFPlugin.cls.xml)	(revision 1425)
+++ APPS/PM/KenmMWFPlugin.cls.xml	(.../KenmMWFPlugin.cls.xml)	(revision 1434)
@@ -62,16 +62,16 @@
 	Quit
 Fout
 	Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch()
 	Do OperatieScope.Gefaald()
+	Do ##class(vhLib.Logger).%New(..#ApplicatieNaam).Error("Exceptie verwerking",Exception.ToString())
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkWijziging">
 <FormalSpec>KenmerkModifiedEventData:TECH.Events.KenmerkModifiedEventData</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-
-	
 	Set UnID = KenmerkModifiedEventData.UnID
 	Set GroepID = KenmerkModifiedEventData.GroepID
 	Set Kenmerk = KenmerkModifiedEventData.Kenmerk
@@ -111,7 +111,7 @@
 		While (PropertiesIterator.HasNext())
 		{
 			Set Property = PropertiesIterator.Next()
-			If ('Property.Private) && ('Property.InheritedId)
+			If ('Property.Private)
 			{
 				Set PropertyWaarde = $zobjproperty(Object,Property.Name)
 				If (PropertyWaarde '= "")
@@ -146,6 +146,8 @@
 			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
@@ -192,7 +194,7 @@
 				For i=1:1:Lijst.Count()
 				{
 					Do ##class(TECH.ListUtils).RemoveObjectFromList(Lijst.GetAt(i),ObjectenTeVerwijderenLijst)
-					Do PropertiesIndex.GetAt(Kenmerk).RemoveAt($zobjproperty(Lijst.GetAt(i),Kenmerk))
+					Do PropertiesIndex.GetAt(Kenmerk).RemoveAt(..GeefPropertyWaarde(Lijst.GetAt(i),Kenmerk))
 					Set $zobjproperty(Lijst.GetAt(i),Kenmerk) = ""
 					Do TeBewarenObjecten.Insert(Lijst.GetAt(i))
 				}
@@ -204,7 +206,7 @@
 			For i=1:1:ObjectenTeVerwijderenLijst.Count()
 			{
 				Do ##class(TECH.ListUtils).RemoveObjectFromList(ObjectenTeVerwijderenLijst.GetAt(i),ObjectenLijst)
-				Do PropertiesIndex.GetAt(Kenmerk).RemoveAt($zobjproperty(ObjectenTeVerwijderenLijst.GetAt(i),Kenmerk))
+				Do PropertiesIndex.GetAt(Kenmerk).RemoveAt(..GeefPropertyWaarde(ObjectenTeVerwijderenLijst.GetAt(i),Kenmerk))
 			}
 		}
 		
@@ -279,6 +281,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPropertyWaarde">
+<FormalSpec>Object:%Persistent,PropertyNaam:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set $ZTRAP = "OnbekendeProperty"
+	Set Waarde = $zobjproperty(Object,PropertyNaam)
+	Set $ZTRAP = ""
+	Quit Waarde
+OnbekendeProperty
+	Set $ZTRAP = ""
+	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"De property "_PropertyNaam_" bestaat niet op de klasse "_Object.%ClassName(1)))
+]]></Implementation>
+</Method>
+
 <Method name="GeefHalffabClassNameVoor">
 <FormalSpec>GroepID:%String</FormalSpec>
 <Private>1</Private>
@@ -288,6 +305,11 @@
 	Set ProductGroep = $Extract(GroepID,1,3)
 	Set Rol = $Extract(GroepID,4,$Length(GroepID))
 	
+	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_""""))
+	}
+	
 	Set HalffabClassNameFactory = $zobjclassmethod("DOM.PM.Maatwerk.Calc.HF.impl."_ProductGroep_".HalffabClassNameFactory","%New")
 	Quit HalffabClassNameFactory.GeefHalffabKlasseNaamVoor(Rol)
 ]]></Implementation>