Index: vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml
===================================================================
diff -u -r3996 -r4000
--- vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 3996)
+++ vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 4000)
@@ -571,7 +571,7 @@
 	Do DatumLijst.Insert(62203)
 	
 	Set Suggestie = Service.GeefPlanningSuggestie(DatumLijst)
-	Do $$$AssertEquals(Suggestie,"","Er is geen suggestie omdat alle datums elkaar opvolgen")
+	Do $$$AssertEquals(Suggestie,"Wordt dagelijks geleverd dus geen voorkeurdatum voor de planning","Alle datums werkdagen zijn die elkaar opvolgen")
 	
 	Set DatumLijst = ##class(%ListOfDataTypes).%New()
 	Do DatumLijst.Insert(62203)
@@ -580,21 +580,21 @@
 	Do DatumLijst.Insert(62208)
 	
 	Set Suggestie = Service.GeefPlanningSuggestie(DatumLijst)
-	Do $$$AssertEquals(Suggestie,"","Er is geen suggestie omdat alle datums werkdagen zijn die op elkaar opvolgen")
+	Do $$$AssertEquals(Suggestie,"Wordt dagelijks geleverd dus geen voorkeurdatum voor de planning","Alle datums werkdagen zijn die elkaar opvolgen")
 	
 	Set DatumLijst = ##class(%ListOfDataTypes).%New()
 	Do DatumLijst.Insert(62201)
 	Do DatumLijst.Insert(62203)
 	
 	Set Suggestie = Service.GeefPlanningSuggestie(DatumLijst)
-	Do $$$AssertEquals(Suggestie,"Kan best gepland worden op: "_$C(13,10)_"20-4 (Wo), 22-4 (Vr)","Door het gat op donderdag wordt er wel een suggestie gedaan")
+	Do $$$AssertEquals(Suggestie,"Kan best gepland worden op: "_$C(13,10)_"20/04 (wo), 22/04 (vr)","Door het gat op donderdag wordt er wel een suggestie gedaan")
 	
 	Set DatumLijst = ##class(%ListOfDataTypes).%New()
 	Do DatumLijst.Insert(62203)
 	Do DatumLijst.Insert(62207)
 	
 	Set Suggestie = Service.GeefPlanningSuggestie(DatumLijst)
-	Do $$$AssertEquals(Suggestie,"Kan best gepland worden op: "_$C(13,10)_"22-4 (Vr), 26-4 (Di)","Door het gat op donderdag wordt er wel een suggestie gedaan")
+	Do $$$AssertEquals(Suggestie,"Kan best gepland worden op: "_$C(13,10)_"22/04 (vr), 26/04 (di)","Door het gat op donderdag wordt er wel een suggestie gedaan")
 ]]></Implementation>
 </Method>
 
Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r2165 -r4000
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 2165)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 4000)
@@ -130,5 +130,12 @@
 	 Quit Pattern
 ]]></Implementation>
 </Method>
+
+<Method name="AlignRight">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Input:%String,Filler:%String,Width:%String</FormalSpec>
+<Implementation><![CDATA[	Quit $Tr($J(Input,Width)," ",Filler)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: APPS/Halux/Planning/PlanningService.cls.xml
===================================================================
diff -u -r3996 -r4000
--- APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 3996)
+++ APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 4000)
@@ -405,13 +405,20 @@
 		While (DagenIterator.HasNext())
 		{
 			Set DueOutDag = DagenIterator.Next()
-			Set Suggestie = Suggestie_##class(TECH.DateTime).Dag(DueOutDag)_"-"_##class(TECH.DateTime).Maand(DueOutDag)_" ("_$Extract(##class(TECH.DateTime).DagNaam(DueOutDag),1,2)_")"
+			Set Dag = ##class(TECH.DateTime).Dag(DueOutDag)
+			Set Maand = ##class(TECH.DateTime).Maand(DueOutDag)
+			Set DagNaamTweeLetters = ##class(TECH.StringUtils).ToLower($Extract(##class(TECH.DateTime).DagNaam(DueOutDag),1,2))
+			Set Suggestie = Suggestie_##class(TECH.StringUtils).AlignRight(Dag,0,2)_"/"_##class(TECH.StringUtils).AlignRight(Maand,0,2)_" ("_DagNaamTweeLetters_")"
 			If (DagenIterator.HasNext())
 			{
 				Set Suggestie = Suggestie_", "
 			}
 		}
 	}
+	Else
+	{
+		Set Suggestie = "Wordt dagelijks geleverd dus geen voorkeurdatum voor de planning"
+	}
 	
 	Quit Suggestie
 ]]></Implementation>