Index: DOM/ProdRes/VerwachteInvoer.cls.xml
===================================================================
diff -u -r2169 -r2195
--- DOM/ProdRes/VerwachteInvoer.cls.xml	(.../VerwachteInvoer.cls.xml)	(revision 2169)
+++ DOM/ProdRes/VerwachteInvoer.cls.xml	(.../VerwachteInvoer.cls.xml)	(revision 2195)
@@ -3,7 +3,7 @@
 <Class name="DOM.ProdRes.VerwachteInvoer">
 <ClassType>persistent</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%Persistent</Super>
+<Super>TECH.Persistent</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefAantal">
Index: DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml
===================================================================
diff -u -r2161 -r2195
--- DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml	(.../VerwachteUitvoerAPIimpl.cls.xml)	(revision 2161)
+++ DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml	(.../VerwachteUitvoerAPIimpl.cls.xml)	(revision 2195)
@@ -8,13 +8,7 @@
 <Method name="GeefVerwachteUitvoer">
 <FormalSpec>VerwachteUitvoerID:%String</FormalSpec>
 <ReturnType>DOM.ProdRes.VerwachteUitvoer</ReturnType>
-<Implementation><![CDATA[
-	Set VerwachteUitvoer = ##class(DOM.ProdRes.VerwachteUitvoer).%OpenId(VerwachteUitvoerID)
-	If ('$IsObject(VerwachteUitvoer))
-	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Verwachte uitvoer "_VerwachteUitvoerID_" bestaat niet"))
-	}
-	Quit VerwachteUitvoer
+<Implementation><![CDATA[	Quit ##class(DOM.ProdRes.VerwachteUitvoer).OpenId(VerwachteUitvoerID)
 ]]></Implementation>
 </Method>
 
@@ -23,13 +17,7 @@
 <ReturnType>DOM.ProdRes.VerwachteUitvoer</ReturnType>
 <Implementation><![CDATA[
 	Set VerwachteUitvoer = ##class(DOM.ProdRes.impl.VerwachteUitvoerImpl).%New(ReservatieVoorVerwachteUitvoer)
-	
-	Set Status = VerwachteUitvoer.%Save()
-	If ($$$ISERR(Status))
-	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon de reservaties niet opslaan voor transactiereferentie '"_ReservatieVoorVerwachteUitvoer.TransactieReferentie_"' en transactielijnreferentie '"_ReservatieVoorVerwachteUitvoer.TransactieLijnReferentie_"'",Status))
-	}
-	
+	Do VerwachteUitvoer.Save()
 	Quit VerwachteUitvoer
 ]]></Implementation>
 </Method>
@@ -44,7 +32,7 @@
 	Do ResultSet.Execute(TransactieReferentie, Bedrijf)
 	While (ResultSet.Next())
 	{
-		Set VerwachteUitvoer = ##class(DOM.ProdRes.impl.VerwachteUitvoerImpl).%OpenId(ResultSet.Data("ID"))
+		Set VerwachteUitvoer = ##class(DOM.ProdRes.impl.VerwachteUitvoerImpl).OpenId(ResultSet.Data("ID"))
 		Do VerwachteUitvoeren.Insert(VerwachteUitvoer)
 	}
 	Quit VerwachteUitvoeren
@@ -61,31 +49,21 @@
 	Do ResultSet.Execute(TransactieReferentie, TransactieLijnReferentie, Bedrijf)
 	If (ResultSet.Next())
 	{
-		Set VerwachteUitvoer = ##class(DOM.ProdRes.impl.VerwachteUitvoerImpl).%OpenId(ResultSet.Data("ID"))
+		Set VerwachteUitvoer = ##class(DOM.ProdRes.impl.VerwachteUitvoerImpl).OpenId(ResultSet.Data("ID"))
 	}
 	Quit VerwachteUitvoer
 ]]></Implementation>
 </Method>
 
 <Method name="AnnuleerVerwachteUitvoer">
 <FormalSpec>VerwachteUitvoerID:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set Status = ##class(DOM.ProdRes.VerwachteUitvoer).%DeleteId(VerwachteUitvoerID)
-	If ($$$ISERR(Status))
-	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"Kon verwachte uitvoer "_VerwachteUitvoerID_" niet verwijderen",Status))
-	}
+<Implementation><![CDATA[	Do ##class(DOM.ProdRes.VerwachteUitvoer).DeleteId(VerwachteUitvoerID)
 ]]></Implementation>
 </Method>
 
 <Method name="WisAfgewerkteVerwachteUitvoer">
 <FormalSpec>VerwachteUitvoerID:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set Status = ##class(DOM.ProdRes.VerwachteUitvoer).%DeleteId(VerwachteUitvoerID)
-	If ($$$ISERR(Status))
-	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"Kon verwachte uitvoer "_VerwachteUitvoerID_" niet verwijderen",Status))
-	}
+<Implementation><![CDATA[	Do ##class(DOM.ProdRes.VerwachteUitvoer).DeleteId(VerwachteUitvoerID)
 ]]></Implementation>
 </Method>
 
Index: DOM/ProdRes/impl/VerwachteInvoerAPIimpl.cls.xml
===================================================================
diff -u -r2169 -r2195
--- DOM/ProdRes/impl/VerwachteInvoerAPIimpl.cls.xml	(.../VerwachteInvoerAPIimpl.cls.xml)	(revision 2169)
+++ DOM/ProdRes/impl/VerwachteInvoerAPIimpl.cls.xml	(.../VerwachteInvoerAPIimpl.cls.xml)	(revision 2195)
@@ -7,12 +7,7 @@
 
 <Method name="AnnuleerVerwachteInvoer">
 <FormalSpec>VerwachteInvoerID:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set Status = ##class(DOM.ProdRes.VerwachteInvoer).%DeleteId(VerwachteInvoerID)
-	If ($$$ISERR(Status))
-	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"Kon verwachte invoer "_VerwachteInvoerID_" niet verwijderen",Status))
-	}
+<Implementation><![CDATA[	Do ##class(DOM.ProdRes.VerwachteInvoer).DeleteId(VerwachteInvoerID)
 ]]></Implementation>
 </Method>
 
@@ -21,38 +16,20 @@
 <ReturnType>DOM.ProdRes.VerwachteInvoer</ReturnType>
 <Implementation><![CDATA[
 	Set VerwachteInvoer = ##class(DOM.ProdRes.impl.VerwachteInvoerImpl).%New(VerwachteInvoerInfo.Aantal,VerwachteInvoerInfo.Bedrijf, VerwachteInvoerInfo.DueIn, VerwachteInvoerInfo.ProductID, VerwachteInvoerInfo.TransactieReferentie, VerwachteInvoerInfo.TransactieLijnReferentie)
-	Set Status = VerwachteInvoer.%Save()
-	If ($$$ISERR(Status))
-	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon de verwachte invoer niet registreren",Status))
-	}
-	
+	Do VerwachteInvoer.Save()
 	Quit VerwachteInvoer
 ]]></Implementation>
 </Method>
 
 <Method name="GeefVerwachteInvoer">
 <FormalSpec>VerwachteInvoerID:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set VerwachteInvoer = ##class(DOM.ProdRes.VerwachteInvoer).%OpenId(VerwachteInvoerID)
-	
-	If ('$IsObject(VerwachteInvoer))
-	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Verwachte invoer "_VerwachteInvoerID_" bestaat niet"))
-	}
-	
-	Quit VerwachteInvoer
+<Implementation><![CDATA[	Quit ##class(DOM.ProdRes.VerwachteInvoer).OpenId(VerwachteInvoerID)
 ]]></Implementation>
 </Method>
 
 <Method name="WisBeschikbareInvoer">
 <FormalSpec>VerwachteInvoerID:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set Status = ##class(DOM.ProdRes.VerwachteInvoer).%DeleteId(VerwachteInvoerID)
-	If ($$$ISERR(Status))
-	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"Kon verwachte invoer "_VerwachteInvoerID_" niet verwijderen",Status))
-	}
+<Implementation><![CDATA[	Do ##class(DOM.ProdRes.VerwachteInvoer).DeleteId(VerwachteInvoerID)
 ]]></Implementation>
 </Method>
 
@@ -66,7 +43,7 @@
 	Do ResultSet.Execute(TransactieReferentie, TransactieLijnReferentie, Bedrijf)
 	If (ResultSet.Next())
 	{
-		Set VerwachteInvoer = ##class(DOM.ProdRes.impl.VerwachteInvoerImpl).%OpenId(ResultSet.Data("ID"))
+		Set VerwachteInvoer = ##class(DOM.ProdRes.impl.VerwachteInvoerImpl).OpenId(ResultSet.Data("ID"))
 	}
 	Quit VerwachteInvoer
 ]]></Implementation>
@@ -97,15 +74,12 @@
 		If (AantalTeLinkenReservatie > 0)
 		{
 			Set InvoerUitvoerLink = ##class(DOM.ProdRes.impl.InvoerUitvoerLinkImpl).%New(AantalTeLinkenReservatie)
-			Set Status = InvoerUitvoerLink.%Save()
-			If ($$$ISERR(Status)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon de invoeruitvoerlink niet opslaan",Status)) }
+			Do InvoerUitvoerLink.Save()
 			Do VerwachteInvoer.RegistreerInvoerUitvoerLink(InvoerUitvoerLink)
 			Do Reservatie.RegistreerInvoerUitvoerLink(InvoerUitvoerLink)
 			Set AantalTeLinkenInvoer = AantalTeLinkenInvoer - AantalTeLinkenReservatie
-			Set Status = VerwachteInvoer.%Save()
-			If ($$$ISERR(Status)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon de verwachte invoer niet opslaan",Status)) }
-			Set Status = Reservatie.%Save()
-			If ($$$ISERR(Status)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon de reservatie niet opslaan",Status)) }
+			Do VerwachteInvoer.Save()
+			Do Reservatie.Save()
 		}
 	}
 	Set $ZTRAP = ""
@@ -207,13 +181,11 @@
 			Set AantalAfsplitsen = AantalGelinkt - VerwachteInvoer.GeefAantal()
 			Do InvoerUitvoerLink.ZetAantalProducten(InvoerUitvoerLink.GeefAantalProducten()-AantalAfsplitsen)
 			Set NieuweInvoerUitvoerLink = ##class(DOM.ProdRes.impl.InvoerUitvoerLinkImpl).%New(AantalAfsplitsen)
-			Set Status = NieuweInvoerUitvoerLink.%Save()
-			If ($$$ISERR(Status)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon de InvoerUitvoerLink niet opslaan",Status)) }
+			Do NieuweInvoerUitvoerLink.Save()
 			Do NieuweVerwachteInvoer.RegistreerInvoerUitvoerLink(NieuweInvoerUitvoerLink)
 			Set VerwachteUitvoerReservatie = InvoerUitvoerLink.GeefVerwachteUitvoerReservatie()
 			Do VerwachteUitvoerReservatie.RegistreerInvoerUitvoerLink(NieuweInvoerUitvoerLink)
-			Set Status = VerwachteUitvoerReservatie.%Save()
-			If ($$$ISERR(Status)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon de verwachte uitvoer reservatie niet opslaan",Status)) }
+			Do VerwachteUitvoerReservatie.Save()
 		}
 		// Alle resterende invoer-uitvoer-linken moeten verplaatst worden naar de nieuwe verwachte invoer
 		While (InvoerUitvoerLinkIterator.HasNext())
@@ -224,10 +196,8 @@
 		}
 	}
 	
-	Set Status = VerwachteInvoer.%Save()
-	If ($$$ISERR(Status)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon de originele verwachte invoer niet opslaan",Status)) }
-	Set Status = NieuweVerwachteInvoer.%Save()
-	If ($$$ISERR(Status)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon de nieuwe verwachte invoer niet opslaan",Status)) }
+	Do VerwachteInvoer.Save()
+	Do NieuweVerwachteInvoer.Save()
 	
 	Set $ZTRAP = ""
 	Do OperatieScope.Gelukt()
@@ -274,8 +244,7 @@
 				Do VerwachteInvoer.VerwijderInvoerUitvoerLink(InvoerUitvoerLink)
 				Do SamengevoegdeVerwachteInvoer.RegistreerInvoerUitvoerLink(InvoerUitvoerLink)
 			}
-			Set Status = VerwachteInvoer.%DeleteId(VerwachteInvoer.%Id())
-			If ($$$ISERR(Status)) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"Kon verwachte invoer "_VerwachteInvoer.%Id()_" niet verwijderen",Status))
+			Do VerwachteInvoer.DeleteId(VerwachteInvoer.%Id())
 		}
 		
 		// Nagaan of er nu invoer-uitvoer-linken zijn ontstaan waar het koppel (invoer<->reservatie) hetzelfde zijn. Deze kunnen we ook samenvoegen.
@@ -295,16 +264,13 @@
 				Set BestaandeInvoerUitvoerLink = InvoerUitvoerLinkPerReservatie.GetAt(VerwachteUitvoerReservatieID)
 				Do BestaandeInvoerUitvoerLink.ZetAantalProducten(BestaandeInvoerUitvoerLink.GeefAantalProducten() + InvoerUitvoerLink.GeefAantalProducten())
 				Do VerwachteUitvoerReservatie.VerwijderInvoerUitvoerLink(InvoerUitvoerLink)
-				Set Status = VerwachteUitvoerReservatie.%Save()
-				If ($$$ISERR(Status)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon de nieuwe verwachte invoer niet opslaan",Status)) }
+				Do VerwachteUitvoerReservatie.Save()
 				Do SamengevoegdeVerwachteInvoer.VerwijderInvoerUitvoerLink(InvoerUitvoerLink)
-				Set Status = InvoerUitvoerLink.%DeleteId(InvoerUitvoerLink.%Id())
-				If ($$$ISERR(Status)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"Kon invoer-uitvoer-link "_InvoerUitvoerLink.%Id()_" niet verwijderen",Status)) }
+				Do InvoerUitvoerLink.DeleteId(InvoerUitvoerLink.%Id())
 			}
 		}
 				
-		Set Status = SamengevoegdeVerwachteInvoer.%Save()
-		If ($$$ISERR(Status)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon de nieuwe verwachte invoer niet opslaan",Status)) }
+		Do SamengevoegdeVerwachteInvoer.Save()
 		
 		Set $ZTRAP = ""
 		Do OperatieScope.Gelukt()
Index: DOM/ProdRes/InvoerUitvoerLink.cls.xml
===================================================================
diff -u -r2161 -r2195
--- DOM/ProdRes/InvoerUitvoerLink.cls.xml	(.../InvoerUitvoerLink.cls.xml)	(revision 2161)
+++ DOM/ProdRes/InvoerUitvoerLink.cls.xml	(.../InvoerUitvoerLink.cls.xml)	(revision 2195)
@@ -3,7 +3,7 @@
 <Class name="DOM.ProdRes.InvoerUitvoerLink">
 <ClassType>persistent</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%Persistent</Super>
+<Super>TECH.Persistent</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefAantalProducten">
Index: TECH/Persistent.cls.xml
===================================================================
diff -u
--- TECH/Persistent.cls.xml	(revision 0)
+++ TECH/Persistent.cls.xml	(revision 2195)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Persistent">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="OpenId">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Id:%String</FormalSpec>
+<ReturnType>%ObjectHandle</ReturnType>
+<Implementation><![CDATA[
+	Set Object = ..%OpenId(Id)
+	If ('$IsObject(Object))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).ObjectExpected(),"Kon object van type "_..%ClassName(1)_" niet openen met id "_Id))
+	}
+	Quit Object
+]]></Implementation>
+</Method>
+
+<Method name="Save">
+<Implementation><![CDATA[
+	Set Status = ..%Save()
+	If ('Status)
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon object van type "_..%ClassName(1)_" niet opslaan",Status))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="DeleteId">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Id:%String</FormalSpec>
+<ReturnType>%ObjectHandle</ReturnType>
+<Implementation><![CDATA[
+	Set Status = ..%DeleteId(Id)
+	If ('Status)
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kon object van type "_..%ClassName(1)_" met id "_Id_" niet verwijderen",Status))
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/ProdRes/Reservatie.cls.xml
===================================================================
diff -u -r2161 -r2195
--- DOM/ProdRes/Reservatie.cls.xml	(.../Reservatie.cls.xml)	(revision 2161)
+++ DOM/ProdRes/Reservatie.cls.xml	(.../Reservatie.cls.xml)	(revision 2195)
@@ -3,7 +3,7 @@
 <Class name="DOM.ProdRes.Reservatie">
 <ClassType>persistent</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%Persistent</Super>
+<Super>TECH.Persistent</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefProductID">
Index: DOM/ProdRes/VerwachteUitvoer.cls.xml
===================================================================
diff -u -r2161 -r2195
--- DOM/ProdRes/VerwachteUitvoer.cls.xml	(.../VerwachteUitvoer.cls.xml)	(revision 2161)
+++ DOM/ProdRes/VerwachteUitvoer.cls.xml	(.../VerwachteUitvoer.cls.xml)	(revision 2195)
@@ -3,7 +3,7 @@
 <Class name="DOM.ProdRes.VerwachteUitvoer">
 <ClassType>persistent</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%Persistent</Super>
+<Super>TECH.Persistent</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefTransactieReferentie">