Index: vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml
===================================================================
diff -u -r1074 -r1133
--- vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 1074)
+++ vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 1133)
@@ -106,17 +106,61 @@
 ]]></Implementation>
 </Method>
 
-<Method name="aTestSplitsToelevering">
+<Method name="TestEvalueerSplitsToelevering">
 <Implementation><![CDATA[
 	Set Service = ##class(APPS.Halux.Planning.PlanningService).%New()
 	
 	Set TeSplitsenToeleveringNummer = 296195
+	Set AantalToeleveringen = 4
+	Set DrempelAantalProducten = 20
 
 	Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(TeSplitsenToeleveringNummer)
  	Set ToeleveringCreatedEventData = ##class(TECH.Events.ToeleveringCreatedEventData).%New(Toelevering)
  	Set ToeleveringCreatedEvent = ##class(TECH.Events.ToeleveringCreatedEvent).%New(ToeleveringCreatedEventData)
 	Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringCreatedEventListener(ToeleveringCreatedEvent)
 	
+	Set SplitsToeleveringEvaluatie = Service.EvalueerSplitsToelevering(TeSplitsenToeleveringNummer, AantalToeleveringen, DrempelAantalProducten)
+	
+	Do $$$AssertEquals(SplitsToeleveringEvaluatie.RijBeschrijvingen.GetAt(1),"KBG#HFOGUYRHB 248x998FZEV","Korttekst van de kaderdeur")
+	Do $$$AssertEquals(SplitsToeleveringEvaluatie.RijBeschrijvingen.GetAt(2),"KBG#HFOGUYRHB 248x998FZEV","Korttekst van de kaderdeur")
+	
+	Set GesplitsteToelevering1 = SplitsToeleveringEvaluatie.GesplitsteToeleveringen.GetAt(1)
+	Do $$$AssertEquals(GesplitsteToelevering1.Beschrijving,"Toelevering 1","De beschrijving")
+	Do $$$AssertEquals(GesplitsteToelevering1.Aantallen.GetAt(1),8,"Het aantal na splitsing")
+	Do $$$AssertEquals(GesplitsteToelevering1.Aantallen.GetAt(2),8,"Het aantal na splitsing")
+	
+	Set GesplitsteToelevering2 = SplitsToeleveringEvaluatie.GesplitsteToeleveringen.GetAt(2)
+	Do $$$AssertEquals(GesplitsteToelevering2.Beschrijving,"Toelevering 2","De beschrijving")
+	Do $$$AssertEquals(GesplitsteToelevering2.Aantallen.GetAt(1),8,"Het aantal na splitsing")
+	Do $$$AssertEquals(GesplitsteToelevering2.Aantallen.GetAt(2),8,"Het aantal na splitsing")
+	
+	Set GesplitsteToelevering3 = SplitsToeleveringEvaluatie.GesplitsteToeleveringen.GetAt(3)
+	Do $$$AssertEquals(GesplitsteToelevering3.Beschrijving,"Toelevering 3","De beschrijving")
+	Do $$$AssertEquals(GesplitsteToelevering3.Aantallen.GetAt(1),7,"Het aantal na splitsing")
+	Do $$$AssertEquals(GesplitsteToelevering3.Aantallen.GetAt(2),7,"Het aantal na splitsing")
+	
+	Set GesplitsteToelevering4 = SplitsToeleveringEvaluatie.GesplitsteToeleveringen.GetAt(4)
+	Do $$$AssertEquals(GesplitsteToelevering4.Beschrijving,"Toelevering 4","De beschrijving")
+	Do $$$AssertEquals(GesplitsteToelevering4.Aantallen.GetAt(1),7,"Het aantal na splitsing")
+	Do $$$AssertEquals(GesplitsteToelevering4.Aantallen.GetAt(2),7,"Het aantal na splitsing")
+	
+	Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(TeSplitsenToeleveringNummer)
+ 	Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData)
+ 	Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringDeletedEventListener(ToeleveringDeletedEvent)
+]]></Implementation>
+</Method>
+
+<Method name="TestSplitsToelevering">
+<Implementation><![CDATA[
+	Set Service = ##class(APPS.Halux.Planning.PlanningService).%New()
+	
+	Set TeSplitsenToeleveringNummer = 296195
+
+	Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(TeSplitsenToeleveringNummer)
+ 	Set ToeleveringCreatedEventData = ##class(TECH.Events.ToeleveringCreatedEventData).%New(Toelevering)
+ 	Set ToeleveringCreatedEvent = ##class(TECH.Events.ToeleveringCreatedEvent).%New(ToeleveringCreatedEventData)
+	Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringCreatedEventListener(ToeleveringCreatedEvent)
+	
 	Set AantalToeleveringen = 3
 	Set DrempelAantalProducten = 20
 	
@@ -231,6 +275,9 @@
 	Do DataLijst.Lijst.Insert(62100)
 	Do DataLijst.Lijst.Insert(62200)
 	
+	// Plannen om een vaste leverimpact te krijgen
+	Set Resultaat = PlanningService.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62214, ToeleveringNummers)
+	
 	Set Resultaat = PlanningService.EvalueerVerplaatsing(+$H,DataLijst,ToeleveringNummers)
 	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.")
@@ -246,8 +293,8 @@
 	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.GetAt(1),"Toelevering 298209 wordt naar achter verplaatst en krijgt een leverimpact.","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.","Het naar achter plaatsen van een toelevering levert een impactprobleem op")
+	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")
 ]]></Implementation>
 </Method>
 
@@ -258,23 +305,26 @@
 	Set Instellingen = Service.GeefInstellingen()
 	
 	Do $$$AssertTrue($IsObject(Instellingen),"De instellingen zijn een object")
-	Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels),"De resourcedrempels zijn gezet")
 	
-	Set ResourceDrempels = Instellingen.ResourceDrempels
+	Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt("Maandag")),"De resourcedrempels zijn gezet")
+	Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt("Dinsdag")),"De resourcedrempels zijn gezet")
+	Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt("Woensdag")),"De resourcedrempels zijn gezet")
+	Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt("Donderdag")),"De resourcedrempels zijn gezet")
+	Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt("Vrijdag")),"De resourcedrempels zijn gezet")
+	Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt("Zaterdag")),"De resourcedrempels zijn gezet")
+	Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt("Zondag")),"De resourcedrempels zijn gezet")
 	
+	Set ResourceDrempels = Instellingen.ResourceDrempels.GetAt("Maandag")
+	
 	Do $$$AssertTrue($IsObject(ResourceDrempels.ALUFrees),"De drempel is ingesteld")
-	Do $$$AssertTrue($IsObject(ResourceDrempels.ALUOperator),"De drempel is ingesteld")
-	Do $$$AssertTrue($IsObject(ResourceDrempels.ALUZaag),"De drempel is ingesteld")
-	Do $$$AssertTrue($IsObject(ResourceDrempels.BewerkingsCenter),"De drempel is ingesteld")
-	Do $$$AssertTrue($IsObject(ResourceDrempels.HoekkastInpak),"De drempel is ingesteld")
-	Do $$$AssertTrue($IsObject(ResourceDrempels.HoekkastMontage),"De drempel is ingesteld")
-	Do $$$AssertTrue($IsObject(ResourceDrempels.HoekkastZaag),"De drempel is ingesteld")
+	Do $$$AssertTrue($IsObject(ResourceDrempels.ALUTeam),"De drempel is ingesteld")
+	Do $$$AssertTrue($IsObject(ResourceDrempels.ALUMontage),"De drempel is ingesteld")
+	Do $$$AssertTrue($IsObject(ResourceDrempels.Bewerkingscenter),"De drempel is ingesteld")
+	Do $$$AssertTrue($IsObject(ResourceDrempels.HoekkastTeam),"De drempel is ingesteld")
 	Do $$$AssertTrue($IsObject(ResourceDrempels.Houtzaag),"De drempel is ingesteld")
 	Do $$$AssertTrue($IsObject(ResourceDrempels.KartonMachine),"De drempel is ingesteld")
 	Do $$$AssertTrue($IsObject(ResourceDrempels.TBXPers1),"De drempel is ingesteld")
 	Do $$$AssertTrue($IsObject(ResourceDrempels.TBXPers2),"De drempel is ingesteld")
-	Do $$$AssertTrue($IsObject(ResourceDrempels.TBXPers3),"De drempel is ingesteld")
-	Do $$$AssertTrue($IsObject(ResourceDrempels.TBXPicking),"De drempel is ingesteld")
 	Do $$$AssertTrue($IsObject(ResourceDrempels.Voormontage),"De drempel is ingesteld")
 ]]></Implementation>
 </Method>