Index: APPS/Halux/Planning/PlanningService.cls.xml
===================================================================
diff -u -r1501 -r2152
--- APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 1501)
+++ APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 2152)
@@ -316,13 +316,27 @@
 	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 ResultSet = ##class(%ResultSet).%New("APPS.Halux.Planning.impl.Queries:qGeefStockProblemen")
 		Do ResultSet.Execute(ToeleveringNummer)
 		While (ResultSet.Next())
 		{
-			Set UniekLijnNummer = Toelevering.GeefToeleveringLijn(ResultSet.Data("ToeleveringLijnNr")).GeefUniekLijnNr()
+			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",""))
 			While (BSKey '= "")
@@ -420,6 +434,12 @@
 	{
 		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))