Index: APPS/Halux/Planning/dto/ToeleveringDetail.cls.xml
===================================================================
diff -u -r1073 -r3996
--- APPS/Halux/Planning/dto/ToeleveringDetail.cls.xml	(.../ToeleveringDetail.cls.xml)	(revision 1073)
+++ APPS/Halux/Planning/dto/ToeleveringDetail.cls.xml	(.../ToeleveringDetail.cls.xml)	(revision 3996)
@@ -26,5 +26,9 @@
 <Property name="PlanningSuggestie">
 <Type>%String</Type>
 </Property>
+
+<Property name="VerplaatsOpmerking">
+<Type>%String</Type>
+</Property>
 </Class>
 </Export>
Index: vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml
===================================================================
diff -u -r3990 -r3996
--- vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 3990)
+++ vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 3996)
@@ -631,12 +631,14 @@
 	Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringCreatedEventListener(ToeleveringCreatedEvent)
 	
 	// Vroeger inplannen van een stockprobleem
+	Set VerplaatsOpmerking = "Een opmerking"
 	Set ToeleveringNummers = ##class(%ListOfDataTypes).%New()
 	Do ToeleveringNummers.Insert(ToeleveringNummer)
-	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", "2011-01-09 17:00:00", ToeleveringNummers)
+	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", VerplaatsOpmerking, "2011-01-09 17:00:00", ToeleveringNummers)
 	
 	Set ToeleveringDetail = Service.GeefToeleveringDetail(ToeleveringNummer)
 	
+	Do $$$AssertEquals(ToeleveringDetail.VerplaatsOpmerking,VerplaatsOpmerking,"De verplaatsopmerking")
 	Do $$$AssertTrue(ToeleveringDetail.ActieInfoLijst.Count()>0,"Er zijn actie info objecten aangemaakt")
 	Do $$$AssertTrue(ToeleveringDetail.StockProbleemInfoLijst.Count()>0,"Er zijn stockprobleem info objecten aangemaakt")
 	
Index: APPS/Halux/Planning/impl/ToeleveringInfo.cls.xml
===================================================================
diff -u -r3990 -r3996
--- APPS/Halux/Planning/impl/ToeleveringInfo.cls.xml	(.../ToeleveringInfo.cls.xml)	(revision 3990)
+++ APPS/Halux/Planning/impl/ToeleveringInfo.cls.xml	(.../ToeleveringInfo.cls.xml)	(revision 3996)
@@ -96,6 +96,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLaatsteVerplaatsOpmerking">
+<Implementation><![CDATA[
+	Set Opmerking = ""
+	If (..ExplicietePlanningen.Count() > 0)
+	{
+		Set Opmerking = ..ExplicietePlanningen.GetAt(..ExplicietePlanningen.Count()).Opmerking
+	}	
+	Quit Opmerking
+]]></Implementation>
+</Method>
+
 <Method name="GeplandSet">
 <FormalSpec>Gepland:%TimeStamp</FormalSpec>
 <ReturnType>%Status</ReturnType>
Index: APPS/Halux/Planning/PlanningService.cls.xml
===================================================================
diff -u -r3990 -r3996
--- APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 3990)
+++ APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 3996)
@@ -213,6 +213,7 @@
 	
 	If ($IsObject(ToeleveringInfo))
 	{		
+		Set ToeleveringDetail.VerplaatsOpmerking = ToeleveringInfo.GeefLaatsteVerplaatsOpmerking()		
 		Set ToeleveringDetail.StockProbleemInfoLijst = ..GeefStockProbleemInfo(ToeleveringNummer)
 
 		If (ToeleveringDetail.StockProbleemInfoLijst.Count() > 0)