Index: vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml
===================================================================
diff -u -r956 -r995
--- vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 956)
+++ vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 995)
@@ -1,11 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-24 16:51:14">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-05 09:12:07">
 <Class name="vhUnitTest.APPS.Halux.Planning.TestPlanningService">
 <Description>
 do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.Planning.TestPlanningService")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62174,60759.541411</TimeChanged>
+<TimeChanged>62186,33133.173324</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="OnBeforeAllTests">
@@ -44,6 +44,64 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestDueOutAlternatieven">
+<Implementation><![CDATA[
+	Set Service = ##class(APPS.Halux.Planning.PlanningService).%New()
+	Set AantalWeken = 2
+	Set ToeleveringNummers = ##class(%ListOfDataTypes).%New()
+	Do ToeleveringNummers.Insert(296195)
+	Do ToeleveringNummers.Insert(298209)
+	Set Alternatieven = Service.GeefDueOutAlternatieven(AantalWeken, ToeleveringNummers)
+	
+	Set Alternatief1 = Alternatieven.Lijst.GetAt(1)
+	Do $$$AssertEquals(Alternatief1.ToeleveringNummer,296195,"Alternatief voor toelevering 296195")
+	Do $$$AssertTrue(Alternatief1.Data.Count()>0,"Er zijn nieuwe dueouts voorgesteld")
+	
+	Set Alternatief2 = Alternatieven.Lijst.GetAt(2)
+	Do $$$AssertEquals(Alternatief2.ToeleveringNummer,298209,"Alternatief voor toelevering 298209")
+	Do $$$AssertTrue(Alternatief2.Data.Count()>0,"Er zijn nieuwe dueouts voorgesteld")
+]]></Implementation>
+</Method>
+
+<Method name="TestEvalueerVerplaatsing">
+<Implementation><![CDATA[
+	Set Toeleveringen = ##class(%ListOfObjects).%New()
+	Do Toeleveringen.Insert(##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(298209))
+	Set BatchService = ##class(APPS.Halux.common.BatchService).%New()
+	
+	Set Batch = BatchService.GeefNieuweBatch(Toeleveringen,##class(APPS.Halux.common.enu.ProductieLijn).Een())
+	Do Batch.%Save()
+	
+	Set PlanningService = ##class(APPS.Halux.Planning.PlanningService).%New()
+	
+	Set ToeleveringNummers = ##class(%ListOfDataTypes).%New()
+	Do ToeleveringNummers.Insert(298209)
+	Do ToeleveringNummers.Insert(296195)
+	Set DataLijst = ##class(APPS.Halux.Planning.dto.DataLijst).%New()
+	Do DataLijst.Lijst.Insert(62100)
+	Do DataLijst.Lijst.Insert(62200)
+	
+	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.")
+	
+	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.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)	
+	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 ##class(APPS.Halux.common.BatchService).%New().VerwijderBatch(Batch.GeefBatchID())
+]]></Implementation>
+</Method>
+
 <Method name="TestInstellingen">
 <Implementation><![CDATA[
 	Set Service = ##class(APPS.Halux.Planning.PlanningService).%New()
@@ -58,15 +116,17 @@
 	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.CorpusMontageVerpakken),"De drempel is ingesteld")
-	Do $$$AssertTrue($IsObject(ResourceDrempels.CorpusVoorbereiding),"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.Houtzaag),"De drempel is ingesteld")
 	Do $$$AssertTrue($IsObject(ResourceDrempels.KartonMachine),"De drempel is ingesteld")
-	Do $$$AssertTrue($IsObject(ResourceDrempels.TBXBoxpressKeller),"De drempel is ingesteld")
-	Do $$$AssertTrue($IsObject(ResourceDrempels.TBXBoxpressLijn1),"De drempel is ingesteld")
-	Do $$$AssertTrue($IsObject(ResourceDrempels.TBXBoxpressLijn2),"De drempel is ingesteld")
-	Do $$$AssertTrue($IsObject(ResourceDrempels.TBXSpecialsMontage),"De drempel is ingesteld")
-	Do $$$AssertTrue($IsObject(ResourceDrempels.TBXVoormontage),"De drempel is ingesteld")
-	Do $$$AssertTrue($IsObject(ResourceDrempels.TBXZaag),"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>
 
@@ -92,7 +152,7 @@
 	Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(296195)
 	
 	Do $$$AssertEquals(ToeleveringInfo.ExplicietePlanningen.Count(),1, "De data voor de expliciete planning is bewaard")
-	Do $$$AssertEquals(ToeleveringInfo.Dag,62135,"Het item is gepland op de nieuwe datum")
+	Do $$$AssertEquals($Piece(ToeleveringInfo.Gepland," "),$zd(62135,3),"Het item is gepland op de nieuwe datum")
 	
 	Set Bestaat = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%ExistsId(133333)
 	Do $$$AssertFalse(Bestaat, "De data voor de expliciete planning is niet bewaard")
@@ -120,19 +180,19 @@
 	
 	Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(296195)
 	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt")
-	Do $$$AssertEquals(ToeleveringInfo.Dag,62135,"Het item is gepland op de nieuwe datum")
+	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)
 	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt")
-	Do $$$AssertEquals(ToeleveringInfo.Dag,62133,"Het item is gepland op de nieuwe datum")
+	Do $$$AssertEquals($Piece(ToeleveringInfo.Gepland," "),$zd(62133,3),"Het item is gepland op de nieuwe datum")
 	
 	Set Resultaat = Service.VerwijderLaatsteVerplaatsing(ToeleveringsNummer)
 	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt")
-	Do $$$AssertEquals(ToeleveringInfo.Dag,62135,"Het item is terug geplaatst op de vorige verplaatsing")
+	Do $$$AssertEquals($Piece(ToeleveringInfo.Gepland," "),$zd(62135,3),"Het item is terug geplaatst op de vorige verplaatsing")
 	
 	Set Resultaat = Service.VerwijderLaatsteVerplaatsing(ToeleveringsNummer)
 	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt")
-	Do $$$AssertEquals(ToeleveringInfo.Dag,62137,"Het item is terug geplaatst op de vorige verplaatsing")
+	Do $$$AssertEquals($Piece(ToeleveringInfo.Gepland," "),$zd(62137,3),"Het item is terug geplaatst op de vorige verplaatsing")
 	
 	Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(ToeleveringsNummer)
  	Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData)
@@ -157,15 +217,15 @@
 	
 	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62135, ToeleveringsNummers)
 	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt")
-	Do $$$AssertEquals(ToeleveringInfo.Dag,62135,"Het item is gepland op de nieuwe datum")
+	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)
 	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt")
-	Do $$$AssertEquals(ToeleveringInfo.Dag,62133,"Het item is gepland op de nieuwe datum")
+	Do $$$AssertEquals($Piece(ToeleveringInfo.Gepland," "),$zd(62133,3),"Het item is gepland op de nieuwe datum")
 	
 	Set Resultaat = Service.VerwijderAlleVerplaatsingen(ToeleveringsNummer)
 	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt")
-	Do $$$AssertEquals(ToeleveringInfo.Dag,62137,"Het item is terug geplaatst op de dueout time")
+	Do $$$AssertEquals($Piece(ToeleveringInfo.Gepland," "),$zd(62137,3),"Het item is terug geplaatst op de dueout time")
 	
 	Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(ToeleveringsNummer)
  	Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData)
@@ -179,7 +239,7 @@
 	Do ToeleveringNummers.Insert(298209)
 	
 	Set Service = ##class(APPS.Halux.Planning.PlanningService).%New()
-	Set Resultaat = Service.MaakBatch(ToeleveringNummers)
+	Set Resultaat = Service.MaakBatch(1,ToeleveringNummers)
 	
 	Do $$$AssertTrue($IsObject(Resultaat),"Het resultaat is een object")
 	Do $$$AssertTrue(Resultaat.BatchID > 0,"Een batch werd aangemaakt")
@@ -196,7 +256,7 @@
 	Do ToeleveringNummers.Insert(296195)
 	
 	Set Service = ##class(APPS.Halux.Planning.PlanningService).%New()
-	Set Resultaat = Service.MaakBatch(ToeleveringNummers)
+	Set Resultaat = Service.MaakBatch(1,ToeleveringNummers)
 	
 	// Maakbatch zal falen omdat de toelevering enkel kaderdeuren bevat
 	
@@ -207,5 +267,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1938909177"/>
+<Checksum value="1280197018"/>
 </Export>