Index: DOM/ProdRes/impl/VerwachteInvoerImpl.cls.xml
===================================================================
diff -u -r2169 -r2224
--- DOM/ProdRes/impl/VerwachteInvoerImpl.cls.xml	(.../VerwachteInvoerImpl.cls.xml)	(revision 2169)
+++ DOM/ProdRes/impl/VerwachteInvoerImpl.cls.xml	(.../VerwachteInvoerImpl.cls.xml)	(revision 2224)
@@ -117,37 +117,23 @@
 ]]></Implementation>
 </Method>
 
-<Method name="%OnDelete">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>oid:%ObjectIdentity</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Status</ReturnType>
+<Method name="OnDelete">
 <Implementation><![CDATA[
-	Set Status = $$$OK
-	Set Object = ..%Open(oid)
-	If ($IsObject(Object))
+	Set InvoerUitvoerLinkIterator = ..GeefInvoerUitvoerLinkIterator()
+	While (InvoerUitvoerLinkIterator.HasNext())
 	{
-		Set InvoerUitvoerLinkIterator = Object.GeefInvoerUitvoerLinkIterator()
-		While ($$$ISOK(Status) && InvoerUitvoerLinkIterator.HasNext())
+		Set InvoerUitvoerLink = InvoerUitvoerLinkIterator.Next()
+		If ($IsObject(InvoerUitvoerLink))
 		{
-			Set InvoerUitvoerLink = InvoerUitvoerLinkIterator.Next()
-			If ($IsObject(InvoerUitvoerLink))
+			Set Reservatie = InvoerUitvoerLink.GeefVerwachteUitvoerReservatie()
+			If ($IsObject(Reservatie))
 			{
-				Set Reservatie = InvoerUitvoerLink.GeefVerwachteUitvoerReservatie()
-				If ($IsObject(Reservatie))
-				{
-					Do Reservatie.VerwijderInvoerUitvoerLink(InvoerUitvoerLink)
-					Set Status = Reservatie.%Save()
-				}
-				If ($$$ISOK(Status))
-				{
-					Set Status = InvoerUitvoerLink.%DeleteId(InvoerUitvoerLink.%Id())
-				}
+				Do Reservatie.VerwijderInvoerUitvoerLink(InvoerUitvoerLink)
+				Do Reservatie.Save()
 			}
+			Do InvoerUitvoerLink.Delete()
 		}
 	}
-	
-	Quit Status
 ]]></Implementation>
 </Method>
 
Index: TECH/Persistent.cls.xml
===================================================================
diff -u -r2220 -r2224
--- TECH/Persistent.cls.xml	(.../Persistent.cls.xml)	(revision 2220)
+++ TECH/Persistent.cls.xml	(.../Persistent.cls.xml)	(revision 2224)
@@ -29,6 +29,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="OnDelete">
+<Description>
+Deze method kan beter overschreven worden dan de %OnDelete.
+De OnDelete loopt sowieso in zijn geheel binnen een transactie.
+Wanneer een exceptie optreedt binnen de method zal de delete actie volledig teruggedraaid worden.</Description>
+</Method>
+
 <Method name="Delete">
 <Implementation><![CDATA[
 	If (..%Id() '= "")
@@ -50,5 +57,25 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="%OnDelete">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>oid:%ObjectIdentity</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set $ZTRAP = "DeleteFout"
+	Set Object = ..%Open(oid)
+	If ($IsObject(Object))
+	{
+		Do Object.OnDelete()
+	}
+	Set $ZTRAP = ""
+	Quit $$$OK
+DeleteFout
+	Set $ZTRAP = ""
+	Quit $$$ERROR($$$GeneralError,##class(TECH.ExceptionHandler).Catch().GeefOmschrijving())
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: DOM/ProdRes/impl/VerwachteUitvoerImpl.cls.xml
===================================================================
diff -u -r2161 -r2224
--- DOM/ProdRes/impl/VerwachteUitvoerImpl.cls.xml	(.../VerwachteUitvoerImpl.cls.xml)	(revision 2161)
+++ DOM/ProdRes/impl/VerwachteUitvoerImpl.cls.xml	(.../VerwachteUitvoerImpl.cls.xml)	(revision 2224)
@@ -134,20 +134,8 @@
 ]]></Implementation>
 </Method>
 
-<Method name="%OnDelete">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>oid:%ObjectIdentity</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set Status = $$$OK
-	Set Object = ..%Open(oid)
-	If ($IsObject(Object))
-	{
-		Set Reservatie = Object.GeefReservatie()
-		Set Status = Reservatie.%DeleteId(Reservatie.%Id())
-	}
-	Quit Status
+<Method name="OnDelete">
+<Implementation><![CDATA[	Do ..GeefReservatie().Delete()
 ]]></Implementation>
 </Method>
 
Index: DOM/ProdRes/impl/ReservatieImpl.cls.xml
===================================================================
diff -u -r2221 -r2224
--- DOM/ProdRes/impl/ReservatieImpl.cls.xml	(.../ReservatieImpl.cls.xml)	(revision 2221)
+++ DOM/ProdRes/impl/ReservatieImpl.cls.xml	(.../ReservatieImpl.cls.xml)	(revision 2224)
@@ -170,42 +170,28 @@
 ]]></Implementation>
 </Method>
 
-<Method name="%OnDelete">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>oid:%ObjectIdentity</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Status</ReturnType>
+<Method name="OnDelete">
 <Implementation><![CDATA[
-	Set Status = $$$OK
-	Set Object = ..%Open(oid)
-	If ($IsObject(Object))
+	Set ReservatieIterator = ..GeefKindReservatieIterator()
+	While (ReservatieIterator.HasNext())
 	{
-		Set ReservatieIterator = Object.GeefKindReservatieIterator()
-		While ($$$ISOK(Status) && ReservatieIterator.HasNext())
+		Do ReservatieIterator.Next().Delete()
+	}
+	Set InvoerUitvoerLinkIterator = ..GeefInvoerUitvoerLinkIterator()
+	While (InvoerUitvoerLinkIterator.HasNext())
+	{
+		Set InvoerUitvoerLink = InvoerUitvoerLinkIterator.Next()
+		If ($IsObject(InvoerUitvoerLink))
 		{
-			Set Reservatie = ReservatieIterator.Next()
-			Set Status = Reservatie.%DeleteId(Reservatie.%Id())
-		}
-		Set InvoerUitvoerLinkIterator = Object.GeefInvoerUitvoerLinkIterator()
-		While ($$$ISOK(Status) && InvoerUitvoerLinkIterator.HasNext())
-		{
-			Set InvoerUitvoerLink = InvoerUitvoerLinkIterator.Next()
-			If ($IsObject(InvoerUitvoerLink))
+			Set VerwachteInvoer = InvoerUitvoerLink.GeefVerwachteInvoer()
+			If ($IsObject(VerwachteInvoer))
 			{
-				Set VerwachteInvoer = InvoerUitvoerLink.GeefVerwachteInvoer()
-				If ($IsObject(VerwachteInvoer))
-				{
-					Do VerwachteInvoer.VerwijderInvoerUitvoerLink(InvoerUitvoerLink)
-					Set Status = VerwachteInvoer.%Save()
-				}
-				If ($$$ISOK(Status))
-				{
-					Set Status = InvoerUitvoerLink.%DeleteId(InvoerUitvoerLink.%Id())
-				}
+				Do VerwachteInvoer.VerwijderInvoerUitvoerLink(InvoerUitvoerLink)
+				Do VerwachteInvoer.Save()
 			}
+			Do InvoerUitvoerLink.Delete()
 		}
 	}
-	Quit Status
 ]]></Implementation>
 </Method>