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>