Index: vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml
===================================================================
diff -u -r3986 -r3990
--- vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 3986)
+++ vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 3990)
@@ -315,7 +315,7 @@
 	Do DataLijst.Lijst.Insert(62200)
 	
 	// Plannen om een vaste leverimpact te krijgen
-	Set Resultaat = PlanningService.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62214, ToeleveringNummers)
+	Set Resultaat = PlanningService.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", "2011-05-03 17:00:00", ToeleveringNummers)
 	
 	Set Verplaatsingen = PlanningService.EvalueerVerplaatsing(+$H,DataLijst,ToeleveringNummers)
 	
@@ -397,7 +397,7 @@
 	Set ToeleveringsNummers = ##class(%ListOfDataTypes).%New()
 	Do ToeleveringsNummers.Insert(296195)
 	Do ToeleveringsNummers.Insert(133333)
-	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62135, ToeleveringsNummers)
+	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", "2011-02-13 17:00:00", ToeleveringsNummers)
 
 	Do $$$AssertTrue($IsObject(Resultaat),"Het resultaat is ingesteld")
 	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),ToeleveringsNummer,"Toelevering 296195 is geslaagd")
@@ -430,13 +430,13 @@
 	Set ToeleveringsNummers = ##class(%ListOfDataTypes).%New()
 	Do ToeleveringsNummers.Insert(ToeleveringsNummer)
 	
-	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62135, ToeleveringsNummers)
+	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", "2011-02-13 17:00:00", ToeleveringsNummers)
 	
 	Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(296195)
 	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt")
 	Do $$$AssertEquals($Piece(ToeleveringInfo.Gepland," "),$zd(62135,3),"Het item is gepland op de nieuwe datum")
 	
-	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62133, ToeleveringsNummers)
+	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", "2011-02-11 17:00:00", ToeleveringsNummers)
 	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt")
 	Do $$$AssertEquals($Piece(ToeleveringInfo.Gepland," "),$zd(62133,3),"Het item is gepland op de nieuwe datum")
 	
@@ -469,11 +469,11 @@
 	
 	Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(296195)
 	
-	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62135, ToeleveringsNummers)
+	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", "2011-02-13 17:00:00", ToeleveringsNummers)
 	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt")
 	Do $$$AssertEquals($Piece(ToeleveringInfo.Gepland," "),$zd(62135,3),"Het item is gepland op de nieuwe datum")
 	
-	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62133, ToeleveringsNummers)
+	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", "2011-02-11 17:00:00", ToeleveringsNummers)
 	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt")
 	Do $$$AssertEquals($Piece(ToeleveringInfo.Gepland," "),$zd(62133,3),"Het item is gepland op de nieuwe datum")
 	
@@ -539,15 +539,15 @@
 	
 	Set ToeleveringsNummers = ##class(%ListOfDataTypes).%New()
 	Do ToeleveringsNummers.Insert(ToeleveringsNummer)
-	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62135, ToeleveringsNummers)
+	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", "2011-02-13 17:00:00", ToeleveringsNummers)
 	
 	Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(ToeleveringsNummer)
 	Do $$$AssertEquals(ToeleveringInfo.LeverImpact,"-4d","leverimpact door de verplaatsing, door het weekend wordt dit getal groter")
 	
 	Do $$$AssertEquals(ToeleveringInfo.ExplicietePlanningen.Count(),1, "De data voor de expliciete planning is bewaard")
 	Do $$$AssertEquals($Piece(ToeleveringInfo.Gepland," "),$zd(62135,3),"Het item is gepland op de nieuwe datum")
 	
-	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62139, ToeleveringsNummers)
+	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", "2011-02-17 17:00:00", ToeleveringsNummers)
 	
 	Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(ToeleveringsNummer)
 	Do $$$AssertEquals(ToeleveringInfo.LeverImpact,"+2d","leverimpact door de verplaatsing")
@@ -633,7 +633,7 @@
 	// Vroeger inplannen van een stockprobleem
 	Set ToeleveringNummers = ##class(%ListOfDataTypes).%New()
 	Do ToeleveringNummers.Insert(ToeleveringNummer)
-	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62100, ToeleveringNummers)
+	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", "2011-01-09 17:00:00", ToeleveringNummers)
 	
 	Set ToeleveringDetail = Service.GeefToeleveringDetail(ToeleveringNummer)
 	
@@ -664,7 +664,7 @@
 	
 	Set ToeleveringsNummers = ##class(%ListOfDataTypes).%New()
 	Do ToeleveringsNummers.Insert(ToeleveringNummer)
-	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62100, ToeleveringsNummers)
+	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", "2011-01-09 17:00:00", ToeleveringsNummers)
 	
 	Set ToeleveringActieParameter = ##class(APPS.Halux.Planning.dto.ToeleveringActieParameter).%New()
 	Set ToeleveringActieParameter.ToeleveringNummer = ToeleveringNummer