Index: TECH/OperatieScope.cls.xml
===================================================================
diff -u -r1074 -r1434
--- TECH/OperatieScope.cls.xml	(.../OperatieScope.cls.xml)	(revision 1074)
+++ TECH/OperatieScope.cls.xml	(.../OperatieScope.cls.xml)	(revision 1434)
@@ -132,8 +132,8 @@
 
 <UDLText name="T">
 <Content><![CDATA[
-/** Opmerking: Exception kan een object van klasse %Library.Exception zijn, 
-	    of kan een error datatype zijn.
+/** Opmerking: Exception kan een object van het type TECH.IException zijn of een string.
+/				Indien undefined zal geen exceptie worden opgegooid en moet foutafhandeling zelf worden voorzien.
 	*/
 ]]></Content>
 </UDLText>
@@ -149,11 +149,17 @@
 	}
 	
 	If (0 = ..NestingNiveau) {
-		Do ..OperatieGefaald(Exception)
+		Do ..OperatieGefaald(.Exception)
 	}
 	
-	//Set $ECODE = Exception
-	$$$ThrowError($$$errGeneralError,Exception)
+	If $Data(Exception)
+	{
+		If ('$IsObject(Exception))
+		{
+			Set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError,Exception)
+		}
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
 ]]></Implementation>
 </Method>
 
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>