Index: APPS/Halux/Planning/PlanningService.cls.xml
===================================================================
diff -u -r3463 -r3701
--- APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 3463)
+++ APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 3701)
@@ -24,10 +24,10 @@
 	}
 	
 	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
-	Set Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringNummer)
 	
-	If $IsObject(Toelevering)
+	If (ToeleveringAPI.BestaatToelevering(ToeleveringNummer))
 	{
+		Set Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringNummer)
 		Set ProductToeleveringLijnIterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.LEV.enu.ToeleveringLijnType).Product())
 
 		While (ProductToeleveringLijnIterator.HasNext())
@@ -81,9 +81,9 @@
 	While (ToeleveringNummersIterator.HasNext())
 	{
 		Set ToeleveringNummer = ToeleveringNummersIterator.Next()
-		Set Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringNummer)
-		If ($IsObject(Toelevering))
+		If (ToeleveringAPI.BestaatToelevering(ToeleveringNummer))
 		{
+			Set Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringNummer)
 			Do Toeleveringen.Insert(Toelevering)
 			Set Batch = BatchService.GeefBijhorendeBatch(Toelevering)
 			If ($IsObject(Batch))
@@ -316,12 +316,7 @@
 	If ($IsObject(ToeleveringInfo))
 	{		
 		Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringNummer)
-		
-		If ('$IsObject(Toelevering))
-		{
-			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Toelevering "_ToeleveringNummer_" bestaat niet"))
-		}
-		
+
 		Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 		Set DataService = ##class(APPS.common.DataService).%New()
 		
@@ -332,11 +327,6 @@
 			Set ToeleveringLijnNr = ResultSet.Data("ToeleveringLijnNr")
 			Set ToeleveringLijn = Toelevering.GeefToeleveringLijn(ToeleveringLijnNr)
 			
-			If ('$IsObject(Toelevering))
-			{
-				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Toelevering "_ToeleveringNummer_" heeft geen lijn met nummer "_ToeleveringLijnNr))
-			}
-			
 			Set UniekLijnNummer = ToeleveringLijn.GeefUniekLijnNr()
 			Set FabKey=ToeleveringNummer_";"_UniekLijnNummer
 			Set BSKey = $O(^HADPR("F",FabKey,"AR",""))
@@ -438,11 +428,6 @@
 		Set ToeleveringNummer = ToeleveringNummersIterator.Next()
 		Set Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringNummer)
 		
-		If ('$IsObject(Toelevering))
-		{
-			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Toelevering "_ToeleveringNummer_" bestaat niet"))
-		}
-		
 		Set VerzendWijze = ""
 		Set Order = Toelevering.GeefOrder()
 		If ($IsObject(Order))
@@ -545,16 +530,18 @@
 	While (Iterator.HasNext())
 	{
 		Set ToeleveringNummer = Iterator.Next()
-		Set Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringNummer)
-		If ('$IsObject(Toelevering))
+		If (ToeleveringAPI.BestaatToelevering(ToeleveringNummer))
 		{
+			Do Toeleveringen.Insert(ToeleveringAPI.GeefToelevering(ToeleveringNummer))
+		}
+		Else
+		{
 			Set MaakBatchError = ##class(APPS.Halux.Planning.dto.MaakBatchError).%New()
 			Set MaakBatchError.ToeleveringNummer = ToeleveringNummer
 			Do MaakBatchError.Boodschappen.Insert("De toelevering is niet aanwezig in het systeem")
 			Do Resultaat.Errors.Insert(MaakBatchError)
 			Set Resultaat.IsGeslaagd = 0
 		}
-		Do Toeleveringen.Insert(Toelevering)
 	}
 
 	If (Resultaat.IsGeslaagd)
@@ -601,12 +588,11 @@
 	Set Resultaat = ##class(APPS.Halux.Planning.dto.SplitsToeleveringResultaat).%New()
 	
 	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
-	Set Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringNummer)
 	
-	If $IsObject(Toelevering)
+	If (ToeleveringAPI.BestaatToelevering(ToeleveringNummer))
 	{
+		Set Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringNummer)
 		TSTART
-		
 		Set SplitsEvaluatieResultaat = ..EvalueerSplitsToelevering(ToeleveringNummer, AantalToeleveringen, DrempelAantalProducten)
 		Do SplitsEvaluatieResultaat.XMLExportToString(.xml,"","literal,indent")
 		Set UniekeLijnNummers = ##class(%ListOfDataTypes).%New()
@@ -871,9 +857,10 @@
 			{
 				If ('##class(TECH.Config.ConfigMgr).Instance().GetBoolean("Halux_Planning_AutoResync")) { w "Modified "_DataToeNr_" "_GlobalToelevering.GeefToeNr(),! }
 				// De toeleveringnr komt in beide sets voor
-				Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(DataToeNr)
-				If ($IsObject(Toelevering))
+				Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+				If (ToeleveringAPI.BestaatToelevering(DataToeNr))
 				{
+					Set Toelevering = ToeleveringAPI.GeefToelevering(DataToeNr)
  					Set ToeleveringModifiedEventData = ##class(TECH.Events.ToeleveringModifiedEventData).%New(Toelevering)
  					Set ToeleveringModifiedEvent = ##class(TECH.Events.ToeleveringModifiedEvent).%New(ToeleveringModifiedEventData)
  					Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringModEventListener(ToeleveringModifiedEvent)