Index: APPS/Halux/Planning/impl/ToeleveringInfo.cls.xml
===================================================================
diff -u -r3701 -r3990
--- APPS/Halux/Planning/impl/ToeleveringInfo.cls.xml	(.../ToeleveringInfo.cls.xml)	(revision 3701)
+++ APPS/Halux/Planning/impl/ToeleveringInfo.cls.xml	(.../ToeleveringInfo.cls.xml)	(revision 3990)
@@ -62,12 +62,11 @@
 </Index>
 
 <Method name="VerplaatsToelevering">
-<FormalSpec>Gebruiker:%String,Opmerking:%String,Datum:%Date</FormalSpec>
+<FormalSpec>Gebruiker:%String,Opmerking:%String,VerplaatsNaar:%TimeStamp</FormalSpec>
 <Implementation><![CDATA[
-	Set NieuwGepland = $zdt(Datum_",61200",3) // 17 uur
 	Set ExplicietePlanning = ##class(APPS.Halux.Planning.impl.ExplicietePlanning).%New(Gebruiker, Opmerking, ..Gepland)
 	Do ..ExplicietePlanningen.Insert(ExplicietePlanning)
-	Set ..Gepland = NieuwGepland
+	Set ..Gepland = VerplaatsNaar
 ]]></Implementation>
 </Method>
 
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
Index: APPS/Halux/Planning/PlanningService.cls.xml
===================================================================
diff -u -r3986 -r3990
--- APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 3986)
+++ APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 3990)
@@ -666,7 +666,7 @@
 </Method>
 
 <Method name="VerplaatsToeleveringen">
-<FormalSpec>Gebruiker:%String,Opmerking:%String,Datum:%Date,ToeleveringNummers:%ListOfDataTypes</FormalSpec>
+<FormalSpec>Gebruiker:%String,Opmerking:%String,VerplaatsNaar:%TimeStamp,ToeleveringNummers:%ListOfDataTypes</FormalSpec>
 <ReturnType>APPS.Halux.Planning.dto.VerplaatsToeleveringenResultaat</ReturnType>
 <Implementation><![CDATA[
 	Set Resultaat = ##class(APPS.Halux.Planning.dto.VerplaatsToeleveringenResultaat).%New()
@@ -678,7 +678,7 @@
 		Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(ToeleveringsNummer)
 		If ($IsObject(ToeleveringInfo))
 		{ 
-			Do ToeleveringInfo.VerplaatsToelevering(Gebruiker,Opmerking,Datum)
+			Do ToeleveringInfo.VerplaatsToelevering(Gebruiker,Opmerking,VerplaatsNaar)
 			Set Status = ToeleveringInfo.%Save()
 			If ($$$ISOK(Status))
 			{