Index: APPS/Halux/Planning/PlanningService.cls.xml
===================================================================
diff -u -r1448 -r1501
--- APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 1448)
+++ APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 1501)
@@ -281,20 +281,22 @@
 	Set ToeleveringNummers = ##class(%ListOfDataTypes).%New()
 	Do ToeleveringNummers.Insert(ToeleveringNummer)
 	Set DueOutAlternatievenLijst = ..GeefDueOutAlternatieven(AantalWeken, ToeleveringNummers)
-	While (DueOutAlternatievenLijst.Lijst.GetAt(1).Data.Count() < 4)
+	If (DueOutAlternatievenLijst.Lijst.Count() > 0)
 	{
-		Set AantalWeken = AantalWeken + 1
-		Set DueOutAlternatievenLijst = ..GeefDueOutAlternatieven(AantalWeken, ToeleveringNummers)
+		While (DueOutAlternatievenLijst.Lijst.GetAt(1).Data.Count() < 4)
+		{
+			Set AantalWeken = AantalWeken + 1
+			Set DueOutAlternatievenLijst = ..GeefDueOutAlternatieven(AantalWeken, ToeleveringNummers)
+		}
+		
+		Set DueOutAlternatieven = ##class(%ListOfDataTypes).%New()
+		For i=1:1:4
+		{
+			Do DueOutAlternatieven.Insert(DueOutAlternatievenLijst.Lijst.GetAt(1).Data.GetAt(i))
+		}
+		
+		Set ToeleveringDetail.PlanningSuggestie = ..GeefPlanningSuggestie(DueOutAlternatieven)
 	}
-	
-	Set DueOutAlternatieven = ##class(%ListOfDataTypes).%New()
-	For i=1:1:4
-	{
-		Do DueOutAlternatieven.Insert(DueOutAlternatievenLijst.Lijst.GetAt(1).Data.GetAt(i))
-	}
-	
-	Set ToeleveringDetail.PlanningSuggestie = ..GeefPlanningSuggestie(DueOutAlternatieven)
-	
 	Set ToeleveringDetail.DisplayString = DisplayString
 	
 	Quit ToeleveringDetail