Index: DOM/ProdRes/impl/VerwachteInvoerAPIimpl.cls.xml
===================================================================
diff -u -r29059 -r33065
--- DOM/ProdRes/impl/VerwachteInvoerAPIimpl.cls.xml	(.../VerwachteInvoerAPIimpl.cls.xml)	(revision 29059)
+++ DOM/ProdRes/impl/VerwachteInvoerAPIimpl.cls.xml	(.../VerwachteInvoerAPIimpl.cls.xml)	(revision 33065)
@@ -3,7 +3,7 @@
 <Class name="DOM.ProdRes.impl.VerwachteInvoerAPIimpl">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,DOM.ProdRes.VerwachteInvoerAPI</Super>
+<Super>TECH.RegisteredObject,DOM.ProdRes.VerwachteInvoerAPI</Super>
 <Inheritance>right</Inheritance>
 
 <Method name="AnnuleerVerwachteInvoer">
@@ -16,7 +16,7 @@
 <FormalSpec>VerwachteInvoerInfo:DOM.ProdRes.dto.VerwachteInvoerInfo</FormalSpec>
 <ReturnType>DOM.ProdRes.VerwachteInvoer</ReturnType>
 <Implementation><![CDATA[
-	Set VerwachteInvoer = ##class(DOM.ProdRes.impl.VerwachteInvoerImpl).%New(VerwachteInvoerInfo)
+	#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ##class(DOM.ProdRes.impl.VerwachteInvoerImpl).%New(VerwachteInvoerInfo)
 	Do VerwachteInvoer.Save()
 	Quit VerwachteInvoer
 ]]></Implementation>
@@ -39,13 +39,15 @@
 <ReturnType>DOM.ProdRes.VerwachteInvoer</ReturnType>
 <Implementation><![CDATA[
 	#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer  = ""
-	Set ResultSet = ##class(%ResultSet).%New()
+	#dim ResultSet As %ResultSet = ##class(%ResultSet).%New()
+	
 	Do ResultSet.Prepare("SELECT ID FROM DOM_ProdRes_impl.VerwachteInvoerImpl WHERE TransactieReferentie = ? AND TransactieLijnReferentie = ? AND Bedrijf = ?")
 	Do ResultSet.Execute(TransactieReferentie, TransactieLijnReferentie, Bedrijf)
-	If (ResultSet.Next())
-	{
+
+	If (ResultSet.Next()) {
 		Set VerwachteInvoer = ##class(DOM.ProdRes.impl.VerwachteInvoerImpl).OpenId(ResultSet.Data("ID"))
 	}
+	
 	Quit VerwachteInvoer
 ]]></Implementation>
 </Method>
@@ -57,7 +59,11 @@
 <ReturnType>DOM.ProdRes.VerwachteInvoer</ReturnType>
 <Implementation><![CDATA[
 	#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ..ZoekInvoerViaTransactieRef(TransactieReferentie, TransactieLijnReferentie, Bedrijf)
-	If ('$IsObject(VerwachteInvoer)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte invoer gevonden voor (TransactieReferentie, TransactieLijnReferentie, Bedrijf): "_TransactieReferentie_", "_TransactieLijnReferentie_", "_Bedrijf)) }
+	
+	If $$$Not($IsObject(VerwachteInvoer)) { 
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte invoer gevonden voor (TransactieReferentie, TransactieLijnReferentie, Bedrijf): " _ TransactieReferentie _ ", " _ TransactieLijnReferentie _ ", " _ Bedrijf)) 
+	}
+	
 	Quit VerwachteInvoer
 ]]></Implementation>
 </Method>
@@ -70,35 +76,35 @@
 	#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ..GeefVerwachteInvoer(VerwachteInvoerID)
 	
 	#dim OperatieScope As TECH.OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
-	try
-	{
-		Set BladInvoerReservatieIterator = ##class(BladReservatieIterator).%New(VerwachteInvoer.GeefReservatie())
-		While (BladInvoerReservatieIterator.HasNext())
-		{
+	
+	Try {
+		#dim BladInvoerReservatieIterator As TECH.Iterator = ##class(BladReservatieIterator).%New(VerwachteInvoer.GeefReservatie())
+		
+		While (BladInvoerReservatieIterator.HasNext()) {
 			#dim InvoerReservatie As DOM.ProdRes.InvoerReservatie = BladInvoerReservatieIterator.Next()
 			#dim AantalTeLinkenInvoer As %Double = InvoerReservatie.GeefAantal() - InvoerReservatie.GeefAantalGelinkt()
 			#dim ProductReservatieIterator As TECH.Iterator = VerwachteUitvoer.GeefProductReservatieIterator(InvoerReservatie.GeefProductID())
-			While (AantalTeLinkenInvoer > 0 && ProductReservatieIterator.HasNext())
-			{
+			
+			While (AantalTeLinkenInvoer > 0 && ProductReservatieIterator.HasNext()) {
 				#dim UitvoerReservatie As DOM.ProdRes.UitvoerReservatie = ProductReservatieIterator.Next()
 				#dim AantalTeLinkenReservatie As %Double = UitvoerReservatie.GeefAantal() - UitvoerReservatie.GeefAantalGelinkt()
-				If (AantalTeLinkenReservatie > AantalTeLinkenInvoer)
-				{
+				
+				If (AantalTeLinkenReservatie > AantalTeLinkenInvoer) {
 					Set AantalTeLinkenReservatie = AantalTeLinkenInvoer
 				}
-				If (AantalTeLinkenReservatie > 0) && (UitvoerReservatie.IsBlad())
-				{
+				
+				If (AantalTeLinkenReservatie > 0) && (UitvoerReservatie.IsBlad()) {
 					Do ..LinkReservaties(InvoerReservatie, UitvoerReservatie, AantalTeLinkenReservatie)
 					Set AantalTeLinkenInvoer = AantalTeLinkenInvoer - AantalTeLinkenReservatie
 				}
 			}
-		}			
+		}
+					
 		Do OperatieScope.Gelukt()
-	}
-	Catch (e)
-	{
+	} Catch {
 		Do OperatieScope.Gefaald()
-		Throw e
+		
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Rethrow()
 	}
 ]]></Implementation>
 </Method>
@@ -107,10 +113,12 @@
 <FormalSpec>InvoerReservatie:DOM.ProdRes.InvoerReservatie,UitvoerReservatie:DOM.ProdRes.UitvoerReservatie,Aantal:%Double</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set InvoerUitvoerLink = ##class(DOM.ProdRes.impl.InvoerUitvoerLinkImpl).%New(Aantal)
+	#dim InvoerUitvoerLink As DOM.ProdRes.InvoerUitvoerLink = ##class(DOM.ProdRes.impl.InvoerUitvoerLinkImpl).%New(Aantal)
 	Do InvoerUitvoerLink.Save()
+	
 	Do InvoerReservatie.RegistreerInvoerUitvoerLink(InvoerUitvoerLink)
 	Do UitvoerReservatie.RegistreerInvoerUitvoerLink(InvoerUitvoerLink)
+	
 	Do InvoerReservatie.Save()
 	Do UitvoerReservatie.Save()
 ]]></Implementation>
@@ -122,44 +130,46 @@
 <FormalSpec>VerwachteUitvoerIDs:%ListOfDataTypes</FormalSpec>
 <ReturnType>DOM.ProdRes.dto.SamenvoegVoorstellen</ReturnType>
 <Implementation><![CDATA[
-	Set SamenvoegVoorstellen = ##class(DOM.ProdRes.dto.SamenvoegVoorstellen).%New()
+	#dim SamenvoegVoorstellen As DOM.ProdRes.dto.SamenvoegVoorstellen = ##class(DOM.ProdRes.dto.SamenvoegVoorstellen).%New()
 	#dim VerwachteUitvoerAPI As DOM.ProdRes.VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
-	Set ProductArray = ##class(%ArrayOfObjects).%New()
-	Set VerwachteUitvoerIDIterator = ##class(TECH.ListIterator).%New(VerwachteUitvoerIDs)
-	While (VerwachteUitvoerIDIterator.HasNext())
-	{
+	#dim ProductArray As %ArrayOfObjects = ##class(%ArrayOfObjects).%New()
+	#dim VerwachteUitvoerIDIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(VerwachteUitvoerIDs)
+	
+	While (VerwachteUitvoerIDIterator.HasNext()) {
 		#dim VerwachteUitvoerID As %String = VerwachteUitvoerIDIterator.Next()
 		#dim VerwachteUitvoer As DOM.ProdRes.VerwachteUitvoer = VerwachteUitvoerAPI.GeefVerwachteUitvoer(VerwachteUitvoerID)
 		#dim VerwachteInvoerIterator As TECH.Iterator = VerwachteUitvoer.GeefVerwachteInvoerIterator()
-		While (VerwachteInvoerIterator.HasNext())
-		{
+		
+		While (VerwachteInvoerIterator.HasNext()) {
 			#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = VerwachteInvoerIterator.Next()
 			#dim ProductID As %String = VerwachteInvoer.GeefReservatie().GeefProductID()
-			If ('ProductArray.IsDefined(ProductID))
-			{
-				Do ProductArray.SetAt(##class(%ArrayOfDataTypes).%New(),ProductID)
+			
+			If $$$Not(ProductArray.IsDefined(ProductID)) {
+				Do ProductArray.SetAt(##class(%ArrayOfDataTypes).%New(), ProductID)
 			}
+			
 			#dim VerwachteInvoerLijst As %ArrayOfDataTypes = ProductArray.GetAt(ProductID)
-			Do VerwachteInvoerLijst.SetAt(VerwachteInvoer,VerwachteInvoer.%Id())
+			Do VerwachteInvoerLijst.SetAt(VerwachteInvoer, VerwachteInvoer.%Id())
 		}
 	}
 	
-	Set VerwachteInvoerLijstIterator = ##class(TECH.ListIterator).%New(ProductArray)
-	While (VerwachteInvoerLijstIterator.HasNext())
-	{
+	#dim VerwachteInvoerLijstIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(ProductArray)
+	
+	While (VerwachteInvoerLijstIterator.HasNext()) {
 		Set VerwachteInvoerLijst = VerwachteInvoerLijstIterator.Next()
-		If (VerwachteInvoerLijst.Count() > 1)
-		{
-			Set SamenvoegVoorstel = ##class(DOM.ProdRes.dto.SamenvoegVoorstel).%New()
+		
+		If (VerwachteInvoerLijst.Count() > 1) {
+			#dim SamenvoegVoorstel As DOM.ProdRes.dto.SamenvoegVoorstel = ##class(DOM.ProdRes.dto.SamenvoegVoorstel).%New()
 			Set SamenvoegVoorstel.Aantal = 0
 			Set SamenvoegVoorstel.ProductID = VerwachteInvoerLijstIterator.Key()
 			Set VerwachteInvoerIterator = ##class(TECH.ListIterator).%New(VerwachteInvoerLijst)
-			While (VerwachteInvoerIterator.HasNext())
-			{
+			
+			While (VerwachteInvoerIterator.HasNext()) {
 				Set VerwachteInvoer = VerwachteInvoerIterator.Next()
 				Do SamenvoegVoorstel.VerwachteInvoerIDs.Insert(VerwachteInvoer.%Id())
 				Set SamenvoegVoorstel.Aantal = SamenvoegVoorstel.Aantal + VerwachteInvoer.GeefReservatie().GeefAantal()
 			}
+			
 			Do SamenvoegVoorstellen.Insert(SamenvoegVoorstel)
 		}
 	}
@@ -178,30 +188,31 @@
 	#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ..GeefVerwachteInvoer(VerwachteInvoerID)
 	
 	#dim OperatieScope As TECH.OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
-	try
-	{
+	
+	Try {
 		#dim InvoerUitvoerLinkIterator As TECH.Iterator = VerwachteInvoer.GeefReservatie().GeefInvoerUitvoerLinkIterator()
-		While (InvoerUitvoerLinkIterator.HasNext())
-		{
+		
+		While (InvoerUitvoerLinkIterator.HasNext()) {
 			#dim InvoerUitvoerLink As DOM.ProdRes.InvoerUitvoerLink = InvoerUitvoerLinkIterator.Next()
 			#dim UitvoerReservatie As DOM.ProdRes.UitvoerReservatie = InvoerUitvoerLink.GeefUitvoerReservatie()
 			#dim InvoerReservatie As DOM.ProdRes.InvoerReservatie = InvoerUitvoerLink.GeefInvoerReservatie()
-			If (UitvoerReservatie.GeefVerwachteUitvoer() = VerwachteUitvoer)
-			{
+			
+			If (UitvoerReservatie.GeefVerwachteUitvoer() = VerwachteUitvoer) {
 				Do UitvoerReservatie.VerwijderInvoerUitvoerLink(InvoerUitvoerLink)
 				Do InvoerReservatie.VerwijderInvoerUitvoerLink(InvoerUitvoerLink)
+				
 				Do UitvoerReservatie.Save()
 				Do InvoerReservatie.Save()
+				
 				Do InvoerUitvoerLink.Delete()
 			}
 		}
 		
 		Do OperatieScope.Gelukt()
-	}
-	catch (e)
-	{
+	} Catch {
 		Do OperatieScope.Gefaald()
-		Throw e
+		
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Rethrow()
 	}
 ]]></Implementation>
 </Method>
@@ -212,22 +223,21 @@
 <Implementation><![CDATA[
 	#dim OrigineleVerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ..GeefVerwachteInvoer(VerwachteInvoerID)
 	#dim InvoerReservatie As DOM.ProdRes.InvoerReservatie = OrigineleVerwachteInvoer.GeefReservatie()
-	If (InvoerReservatie.GeefAantal() <= NieuweVerwachteInvoerInfo.Reservatie.Aantal)
-	{
+	
+	If (InvoerReservatie.GeefAantal() <= NieuweVerwachteInvoerInfo.Reservatie.Aantal) {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Splitsen kan niet worden uitgevoerd omdat het aantal van de nieuwe invoer groter is dan het origineel"))
 	}
 	
 	#dim OperatieScope As TECH.OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
-	try
-	{
+	
+	Try	{
 		Do OrigineleVerwachteInvoer.WijzigAantal(InvoerReservatie.GeefAantal()-NieuweVerwachteInvoerInfo.Reservatie.Aantal)
 		#dim NieuweVerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ..RegistreerVerwachteInvoer(NieuweVerwachteInvoerInfo)
 		
 		#dim OrigineleInvoerReservatieIterator As TECH.Iterator = ##class(BladReservatieIterator).%New(OrigineleVerwachteInvoer.GeefReservatie())
 		#dim NieuweInvoerReservatieIterator As TECH.Iterator = ##class(BladReservatieIterator).%New(NieuweVerwachteInvoer.GeefReservatie())
 		
-		While (OrigineleInvoerReservatieIterator.HasNext() && NieuweInvoerReservatieIterator.HasNext())
-		{
+		While (OrigineleInvoerReservatieIterator.HasNext() && NieuweInvoerReservatieIterator.HasNext()) {
 			#dim OrigineleInvoerReservatie As DOM.ProdRes.InvoerReservatie = OrigineleInvoerReservatieIterator.Next()
 			#dim NieuweInvoerReservatie As DOM.ProdRes.InvoerReservatie = NieuweInvoerReservatieIterator.Next()
 			
@@ -237,20 +247,18 @@
 			#dim AantalGelinkt As %Double = 0
 			#dim InvoerUitvoerLink As DOM.ProdRes.InvoerUitvoerLink
 			#dim InvoerUitvoerLinkIterator As TECH.Iterator = OrigineleInvoerReservatie.GeefInvoerUitvoerLinkIterator()
-			While (InvoerUitvoerLinkIterator.HasNext() && (OrigineleInvoerReservatie.GeefAantal() > AantalGelinkt))
-			{
+			
+			While (InvoerUitvoerLinkIterator.HasNext() && (OrigineleInvoerReservatie.GeefAantal() > AantalGelinkt)) {
 				Set InvoerUitvoerLink = InvoerUitvoerLinkIterator.Next()
 				Set AantalGelinkt = AantalGelinkt + InvoerUitvoerLink.GeefAantalProducten()
 			}
 	
 			// Als er überhaupt een invoer-uitvoer-link was komen we in deze if
-			If ($IsObject(InvoerUitvoerLink))
-			{
+			If ($IsObject(InvoerUitvoerLink)) {
 				// Het object dat aanwezig is, is degene die er heeft voor gezorgd dat de while lus is gestopt.
 				// Als het aantal gelinkt groter is dan moet het de invoer-uitvoer-link gesplitst worden.
 				// Bij gelijke aantallen moeten we niks extra doen met dit object want dan voldoet de verwachte invoer net om de link te voldoen.
-				If (OrigineleInvoerReservatie.GeefAantal() < AantalGelinkt)
-				{
+				If (OrigineleInvoerReservatie.GeefAantal() < AantalGelinkt) {
 					#dim AantalAfsplitsen As %Double = AantalGelinkt - OrigineleInvoerReservatie.GeefAantal()
 					Do InvoerUitvoerLink.ZetAantalProducten(InvoerUitvoerLink.GeefAantalProducten()-AantalAfsplitsen)
 					Set NieuweInvoerUitvoerLink = ##class(DOM.ProdRes.impl.InvoerUitvoerLinkImpl).%New(AantalAfsplitsen)
@@ -260,9 +268,9 @@
 					Do UitvoerReservatie.RegistreerInvoerUitvoerLink(NieuweInvoerUitvoerLink)
 					Do UitvoerReservatie.Save()
 				}
+				
 				// Alle resterende invoer-uitvoer-linken moeten verplaatst worden naar de nieuwe verwachte invoer
-				While (InvoerUitvoerLinkIterator.HasNext())
-				{
+				While (InvoerUitvoerLinkIterator.HasNext()) {
 					Set InvoerUitvoerLink = InvoerUitvoerLinkIterator.Next()
 					Do OrigineleInvoerReservatie.VerwijderInvoerUitvoerLink(InvoerUitvoerLink)
 					Do NieuweVerwachteInvoer.GeefReservatie().RegistreerInvoerUitvoerLink(InvoerUitvoerLink)
@@ -274,11 +282,9 @@
 		Do NieuweVerwachteInvoer.Save()
 		
 		Do OperatieScope.Gelukt()
-	}
-	Catch (e)
-	{
+	} Catch {
 		Do OperatieScope.Gefaald()
-		Throw e
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Rethrow()
 	}
 
 	Quit NieuweVerwachteInvoer
@@ -288,10 +294,13 @@
 <Method name="ControleerReservatiesOpGelijkeProducten">
 <FormalSpec>InvoerReservatie1:DOM.ProdRes.InvoerReservatie,InvoerReservatie2:DOM.ProdRes.InvoerReservatie</FormalSpec>
 <Implementation><![CDATA[
-	If (InvoerReservatie1.GeefProductID() '= InvoerReservatie2.GeefProductID()){
-		Set Exceptie = ##class(TECH.Exceptions.InvalidInputException).%New("Reservatie "_InvoerReservatie1.GeefID()_" van invoer "_InvoerReservatie1.GeefVerwachteInvoer().GeefID()_" heeft een ander product dan reservatie "_InvoerReservatie2.GeefID()_" van invoer "_InvoerReservatie2.GeefVerwachteInvoer().GeefID())
-		Do Exceptie.VoegToeExtraInfo("InvoerReservatie1ProductID:"_InvoerReservatie1.GeefProductID())
-		Do Exceptie.VoegToeExtraInfo("InvoerReservatie2ProductID:"_InvoerReservatie2.GeefProductID())
+	If $$$Not(InvoerReservatie1.GeefProductID() = InvoerReservatie2.GeefProductID()) {
+		#dim Omschrijving As TECH.String = "Reservatie " _ InvoerReservatie1.GeefID() _ " van invoer " _ InvoerReservatie1.GeefVerwachteInvoer().GeefID() _ " heeft een ander product dan reservatie " _ InvoerReservatie2.GeefID() _ " van invoer " _ InvoerReservatie2.GeefVerwachteInvoer().GeefID()
+		#dim Exceptie As TECH.Exceptions.InvalidInputException = ##class(TECH.Exceptions.InvalidInputException).%New(Omschrijving)
+		
+		Do Exceptie.VoegToeExtraInfo("InvoerReservatie1ProductID:" _ InvoerReservatie1.GeefProductID())
+		Do Exceptie.VoegToeExtraInfo("InvoerReservatie2ProductID:" _ InvoerReservatie2.GeefProductID())
+		
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 	}
 ]]></Implementation>
@@ -304,54 +313,51 @@
 <FormalSpec>VerwachteInvoerIDs:%ListOfDataTypes,DueIn:%TimeStamp,TransactieReferentie:%String,TransactieLijnReferentie:%String</FormalSpec>
 <ReturnType>DOM.ProdRes.VerwachteInvoer</ReturnType>
 <Implementation><![CDATA[
-	Set VerwachteInvoerIDIterator = ##class(TECH.ListIterator).%New(VerwachteInvoerIDs)
+	#dim VerwachteInvoerIDIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(VerwachteInvoerIDs)
 	#dim SamengevoegdeVerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ""
-	If (VerwachteInvoerIDIterator.HasNext())
-	{
+	
+	If (VerwachteInvoerIDIterator.HasNext()) {
 		Set SamengevoegdeVerwachteInvoer = ..GeefVerwachteInvoer(VerwachteInvoerIDIterator.Next())
 		Do SamengevoegdeVerwachteInvoer.WijzigDueIn(DueIn)
 		Do SamengevoegdeVerwachteInvoer.ZetTransactieReferentie(TransactieReferentie)
 		Do SamengevoegdeVerwachteInvoer.ZetTransactieLijnReferentie(TransactieLijnReferentie)
 
 		#dim SamengevoegdeInvoerReservatie = SamengevoegdeVerwachteInvoer.GeefReservatie()
-		
 		#dim OperatieScope As TECH.OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
-		try
-		{
-			While (VerwachteInvoerIDIterator.HasNext())
-			{
+		
+		Try {
+			While (VerwachteInvoerIDIterator.HasNext()) {
 				#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ..GeefVerwachteInvoer(VerwachteInvoerIDIterator.Next())
 				#dim InvoerReservatie As DOM.ProdRes.InvoerReservatie = VerwachteInvoer.GeefReservatie()
-				If (SamengevoegdeInvoerReservatie.GeefProductID() '= SamengevoegdeInvoerReservatie.GeefProductID())
-				{
+				
+				If $$$Not(SamengevoegdeInvoerReservatie.GeefProductID() = SamengevoegdeInvoerReservatie.GeefProductID()) {
 					Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Kan geen verwachte invoeren samenvoegen met verschillende producten"))
 				}
+				
 				Do SamengevoegdeVerwachteInvoer.WijzigAantal(SamengevoegdeInvoerReservatie.GeefAantal() + InvoerReservatie.GeefAantal())
 				
 				#dim InvoerUitvoerLinkIterator As TECH.Iterator = InvoerReservatie.GeefInvoerUitvoerLinkIterator()
-				While (InvoerUitvoerLinkIterator.HasNext())
-				{
+				While (InvoerUitvoerLinkIterator.HasNext()) {
 					#dim InvoerUitvoerLink As DOM.ProdRes.InvoerUitvoerLink = InvoerUitvoerLinkIterator.Next()
 					Do InvoerReservatie.VerwijderInvoerUitvoerLink(InvoerUitvoerLink)
 					Do SamengevoegdeInvoerReservatie.RegistreerInvoerUitvoerLink(InvoerUitvoerLink)
 				}
+				
 				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.
 			Set InvoerUitvoerLinkPerReservatie = ##class(%ArrayOfObjects).%New()
 			Set InvoerUitvoerLinkIterator = SamengevoegdeInvoerReservatie.GeefInvoerUitvoerLinkIterator()
-			While (InvoerUitvoerLinkIterator.HasNext())
-			{
+			
+			While (InvoerUitvoerLinkIterator.HasNext()) {
 				Set InvoerUitvoerLink = InvoerUitvoerLinkIterator.Next()
 				#dim UitvoerReservatie As DOM.ProdRes.UitvoerReservatie = InvoerUitvoerLink.GeefUitvoerReservatie()
 				#dim UitvoerReservatieID As %String = UitvoerReservatie.%Id()
-				If ('InvoerUitvoerLinkPerReservatie.IsDefined(UitvoerReservatieID))
-				{
+				
+				If $$$Not(InvoerUitvoerLinkPerReservatie.IsDefined(UitvoerReservatieID)) {
 					Do InvoerUitvoerLinkPerReservatie.SetAt(InvoerUitvoerLink, UitvoerReservatieID)
-				}
-				Else
-				{
+				} Else {
 					#dim BestaandeInvoerUitvoerLink As DOM.ProdRes.InvoerUitvoerLink = InvoerUitvoerLinkPerReservatie.GetAt(UitvoerReservatieID)
 					Do BestaandeInvoerUitvoerLink.ZetAantalProducten(BestaandeInvoerUitvoerLink.GeefAantalProducten() + InvoerUitvoerLink.GeefAantalProducten())
 					Do UitvoerReservatie.VerwijderInvoerUitvoerLink(InvoerUitvoerLink)
@@ -363,11 +369,9 @@
 				
 			Do SamengevoegdeVerwachteInvoer.Save()
 			Do OperatieScope.Gelukt()			
-		}
-		Catch (e)
-		{
+		} Catch {
 			Do OperatieScope.Gefaald()
-			Throw e
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Rethrow()
 		}
 	}
 	
@@ -380,31 +384,32 @@
 <ReturnType>%Double</ReturnType>
 <Implementation><![CDATA[
 	#dim AantalVerwacht As %Double = 0
-	Set ResultSet = ##class(%ResultSet).%New()
+	#dim ResultSet As %ResultSet = ##class(%ResultSet).%New()
 	Do ResultSet.Prepare("SELECT sum(Aantal) Aantal FROM DOM_ProdRes_impl.InvoerReservatieImpl IR"
 							_" JOIN DOM_ProdRes_impl.VerwachteInvoerImpl VI ON IR.VerwachteInvoer = VI.ID"
 							_" WHERE IR.ProductID = ? AND IR.Bedrijf = ? AND (IR.DueIn is null OR IR.DueIn < ?) AND (VI.Status is null OR VI.Status <> '"_##class(DOM.ProdRes.enu.VerwachteInvoerStatus).Ingeboekt()_"')"
 							_" GROUP BY ProductID")
 	Do ResultSet.Execute(ProductID, Bedrijf, MaxDueIn)
-	If (ResultSet.Next())
-	{
+	
+	If (ResultSet.Next()) {
 		Set AantalVerwacht = ResultSet.Data("Aantal")
 	}
+	
 	Do ResultSet.Close()
 	
-	If ('InclusiefGelinkte)
-	{
+	If $$$Not(InclusiefGelinkte) {
 		Set ResultSet = ##class(%ResultSet).%New()
 		Do ResultSet.Prepare("SELECT COALESCE(sum(AantalProducten),0) As AantalGelinkt FROM DOM_ProdRes_impl.InvoerReservatieImpl I"
 						_" LEFT JOIN DOM_ProdRes_impl.InvoerReservatieImpl_InvoerUitvoerLinken L ON L.InvoerReservatieImpl = I.ID"
 						_" LEFT JOIN DOM_ProdRes_impl.InvoerUitvoerLinkImpl IL ON IL.ID = L.element_key"
-						_" WHERE ProductID = ? AND I.Bedrijf = ? AND (DueIn is null OR DueIn < ?) AND IL.Status <> '"_##class(DOM.ProdRes.enu.InvoerUitvoerLinkStatus).Voldaan()_"'"
+						_" WHERE ProductID = ? AND I.Bedrijf = ? AND (DueIn is null OR DueIn < ?) AND IL.Status <> '" _ ##class(DOM.ProdRes.enu.InvoerUitvoerLinkStatus).Voldaan() _ "'"
 						_" GROUP BY ProductID")
 		Do ResultSet.Execute(ProductID, Bedrijf, MaxDueIn)
-		If (ResultSet.Next())
-		{
+		
+		If (ResultSet.Next()) {
 			Set AantalVerwacht = AantalVerwacht - ResultSet.Data("AantalGelinkt")
 		}
+		
 		Do ResultSet.Close()
 	}