Index: vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml
===================================================================
diff -u -r3526 -r3986
--- vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 3526)
+++ vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 3986)
@@ -317,23 +317,39 @@
 	// Plannen om een vaste leverimpact te krijgen
 	Set Resultaat = PlanningService.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62214, ToeleveringNummers)
 	
-	Set Resultaat = PlanningService.EvalueerVerplaatsing(+$H,DataLijst,ToeleveringNummers)
+	Set Verplaatsingen = PlanningService.EvalueerVerplaatsing(+$H,DataLijst,ToeleveringNummers)
+	
+	Set Resultaat = Verplaatsingen.GetAt(1)
+	Do $$$AssertEquals(Resultaat.ToeleveringID,ToeleveringNummers.GetAt(1),"De evaluatie voor de eerste toelevering")
 	Do $$$AssertEquals(Resultaat.Evaluaties.Count(),1,"Er is 1 algemene opmerking")
 	Do $$$AssertEquals(Resultaat.Evaluaties.GetAt(1),"Toelevering 298209 zit reeds in een batch en kan beter niet verplaatst worden.","Deze toelevering hebben we in een batch gestoken en kunnen we dus beter niet verplaatsen.")
 	
 	Do ##class(APPS.Halux.common.BatchService).%New().VerwijderBatch(Batch.GeefBatchID())
 	
 	Set VerplaatsingEvaluatie1 = Resultaat.VerplaatsingEvaluaties.GetAt(1)
 	Do $$$AssertEquals(VerplaatsingEvaluatie1.VerplaatsNaar,62100,"Evalueer verplaatsing naar 62100")
-	Do $$$AssertEquals(VerplaatsingEvaluatie1.Evaluaties.Count(),2,"Er zijn 2 dag specifieke opmerkingen")
+	Do $$$AssertEquals(VerplaatsingEvaluatie1.Evaluaties.Count(),1,"Er is 1 dag specifieke opmerking")
 	Do $$$AssertEquals(VerplaatsingEvaluatie1.Evaluaties.GetAt(1),"Toelevering 298209 met een stockprobleem wordt best niet naar voor verplaatst.","Naar voor plaatsen van een toelevering met een stockprobleem is af te raden")
-	Do $$$AssertEquals(VerplaatsingEvaluatie1.Evaluaties.GetAt(2),"Toelevering 296195 met een stockprobleem wordt best niet naar voor verplaatst.","Naar voor plaatsen van een toelevering met een stockprobleem is af te raden")
-
-	Set VerplaatsingEvaluatie2 = Resultaat.VerplaatsingEvaluaties.GetAt(2)	
+	
+	Set VerplaatsingEvaluatie2 = Resultaat.VerplaatsingEvaluaties.GetAt(2)
 	Do $$$AssertEquals(VerplaatsingEvaluatie2.VerplaatsNaar,62200,"Evalueer verplaatsing naar 62200")
-	Do $$$AssertEquals(VerplaatsingEvaluatie2.Evaluaties.Count(),2,"Er zijn 2 dag specifieke opmerkingen")
+	Do $$$AssertEquals(VerplaatsingEvaluatie2.Evaluaties.Count(),1,"Er is 1 dag specifieke opmerking")
 	Do $$$AssertEquals(VerplaatsingEvaluatie2.Evaluaties.GetAt(1),"Toelevering 298209 wordt naar achter verplaatst en krijgt een leverimpact. Leverimpact ten opzichte van due out: 28 dagen. Leverimpact ten opzichte van de planning: -"_($H-62200)_" dagen.","Het naar achter plaatsen van een toelevering levert een impactprobleem op")
-	Do $$$AssertEquals(VerplaatsingEvaluatie2.Evaluaties.GetAt(2),"Toelevering 296195 wordt naar achter verplaatst en krijgt een leverimpact. Leverimpact ten opzichte van due out: 63 dagen. Leverimpact ten opzichte van de planning: -"_($H-62200)_" dagen.","Het naar achter plaatsen van een toelevering levert een impactprobleem op")
+	Do $$$AssertEquals(VerplaatsingEvaluatie2.LeverimpactDueOutInDagen, 28,"De leverimpact ten opzichte van de due out")
+	Do $$$AssertEquals(VerplaatsingEvaluatie2.LeverimpactPlanningInDagen, -($H-62200),"De leverimpact ten opzichte van de planning")
+	
+	Set Resultaat = Verplaatsingen.GetAt(2)
+	Set VerplaatsingEvaluatie1 = Resultaat.VerplaatsingEvaluaties.GetAt(1)
+	Do $$$AssertEquals(VerplaatsingEvaluatie1.VerplaatsNaar,62100,"Evalueer verplaatsing naar 62100")
+	Do $$$AssertEquals(VerplaatsingEvaluatie1.Evaluaties.Count(),1,"Er is 1 dag specifieke opmerking")
+	Do $$$AssertEquals(VerplaatsingEvaluatie1.Evaluaties.GetAt(1),"Toelevering 296195 met een stockprobleem wordt best niet naar voor verplaatst.","Naar voor plaatsen van een toelevering met een stockprobleem is af te raden")
+	
+	Set VerplaatsingEvaluatie2 = Resultaat.VerplaatsingEvaluaties.GetAt(2)	
+	Do $$$AssertEquals(VerplaatsingEvaluatie2.VerplaatsNaar,62200,"Evalueer verplaatsing naar 62200")
+	Do $$$AssertEquals(VerplaatsingEvaluatie2.Evaluaties.Count(),1,"Er is 1 dag specifieke opmerking")
+	Do $$$AssertEquals(VerplaatsingEvaluatie2.Evaluaties.GetAt(1),"Toelevering 296195 wordt naar achter verplaatst en krijgt een leverimpact. Leverimpact ten opzichte van due out: 63 dagen. Leverimpact ten opzichte van de planning: -"_($H-62200)_" dagen.","Het naar achter plaatsen van een toelevering levert een impactprobleem op")
+	Do $$$AssertEquals(VerplaatsingEvaluatie2.LeverimpactDueOutInDagen, 63, "De leverimpact ten opzichte van de due out")
+	Do $$$AssertEquals(VerplaatsingEvaluatie2.LeverimpactPlanningInDagen, -($H-62200),"De leverimpact ten opzichte van de planning")
 ]]></Implementation>
 </Method>