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()