Index: vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml
===================================================================
diff -u -r1017 -r1074
--- vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 1017)
+++ vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 1074)
@@ -1,11 +1,10 @@
 <?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-04-19 14:40:36">
+<Export generator="Cache" version="9">
 <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>62200,52852.078374</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="OnBeforeAllTests">
@@ -22,6 +21,18 @@
 	Set ^KTO(6332,296195,101)="\629192\30\\\47.68\#\\47.68\47.68\\L\1\\100\47.68\KTRPL\\\\E\EUR\\\11/06\\118153\101\\\\\\\\"
 	Set ^KTO(6332,296195,102)="\629192\30\\\47.68\#\\47.68\47.68\\L\1\\200\47.68\KTRPL\\\\E\EUR\\\11/06\\118153\102\\\\\\\\"
 	
+	// Stockproblemen faken
+	Set ^HADPR("F","296195;100","K") = "33\62038,59594\\\\\\\\\\"
+	Set ^HADPR("F","296195;100","F") = "33\62094,58737\A\\\\\\\\\"
+	Set ^HADPR("F","296195;200","K") = "33\62038,59594\\\\\\\\\\"
+	Set ^HADPR("F","296195;200","F") = "33\62094,58737\A\\\\\\\\\"
+	Set ^HADPR("F","296195;100","AR","BSL.001") = "568126\\1\\\F"
+	Set ^HADPR("F","296195;200","AR","BSL.001") = "568127\\1\\\F"
+	
+	// Copy gemaakt van ergens anders, data kan eventueel incorrect zijn
+	Set ^KPR(568126,"W    0.0T20110221298072  1")="21.02.11\6332\KOMM. TESTKLANT VAN HOECK\2\2\11/10\0"
+	Set ^KPR(568127,"W    0.0T20110221298072  1")="21.02.11\6332\KOMM. TESTKLANT VAN HOECK\2\2\11/11\0"
+	
 	Set ^TO("IU",296195,100)=101
 	Set ^TO("IU",296195,200)=102
 		
@@ -57,6 +68,9 @@
 	Set ^KO2("F",1000,123441)=""
 	Set ^KO1(123441,"F")="1000\"
 	
+	Set ^HADPR("F","298209;100","K") = "33\62038,59594\\\\\\\\\\"
+	Set ^HADPR("F","298209;100","F") = "33\62094,58737\A\\\\\\\\\"
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -85,15 +99,24 @@
 	Kill ^KO1(123441,"F")
 	Kill ^KO2("F",1000,123441)
 	
+	Kill ^KPR(568126,"W    0.0T20110221298072  1")
+	Kill ^KPR(568127,"W    0.0T20110221298072  1")
+	
 	Quit Status
 ]]></Implementation>
 </Method>
 
-<Method name="TestSplitsToelevering">
+<Method name="aTestSplitsToelevering">
 <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
 	
@@ -161,6 +184,10 @@
 		Do DELOBJ^FLOWTOE(ToeleveringNummer)
 	}
 	
+	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)
+	
 	// Omdat de splits toeleveringen wat data wijzigt gaan we deze opnieuw laten aanmaken	
 	Do ..OnAfterAllTests()
 	Do ..OnBeforeAllTests()
@@ -208,20 +235,19 @@
 	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.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>
 
@@ -429,6 +455,142 @@
  	Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringDeletedEventListener(ToeleveringDeletedEvent)
 ]]></Implementation>
 </Method>
+
+<Method name="TestGeefPlanningSuggestie">
+<Implementation><![CDATA[
+	Set Service = ##class(APPS.Halux.Planning.PlanningService).%New()
+	
+	Set DatumLijst = ##class(%ListOfDataTypes).%New()
+	Do DatumLijst.Insert(62201)
+	Do DatumLijst.Insert(62202)
+	Do DatumLijst.Insert(62203)
+	
+	Set Suggestie = Service.GeefPlanningSuggestie(DatumLijst)
+	Do $$$AssertEquals(Suggestie,"","Er is geen suggestie omdat alle datums elkaar opvolgen")
+	
+	Set DatumLijst = ##class(%ListOfDataTypes).%New()
+	Do DatumLijst.Insert(62203)
+	Do DatumLijst.Insert(62206)
+	Do DatumLijst.Insert(62207)
+	Do DatumLijst.Insert(62208)
+	
+	Set Suggestie = Service.GeefPlanningSuggestie(DatumLijst)
+	Do $$$AssertEquals(Suggestie,"","Er is geen suggestie omdat alle datums werkdagen zijn die op elkaar opvolgen")
+	
+	Set DatumLijst = ##class(%ListOfDataTypes).%New()
+	Do DatumLijst.Insert(62201)
+	Do DatumLijst.Insert(62203)
+	
+	Set Suggestie = Service.GeefPlanningSuggestie(DatumLijst)
+	Do $$$AssertEquals(Suggestie,"Kan best gepland worden op: "_$C(13,10)_"20-4 (Wo), 22-4 (Vr)","Door het gat op donderdag wordt er wel een suggestie gedaan")
+	
+	Set DatumLijst = ##class(%ListOfDataTypes).%New()
+	Do DatumLijst.Insert(62203)
+	Do DatumLijst.Insert(62207)
+	
+	Set Suggestie = Service.GeefPlanningSuggestie(DatumLijst)
+	Do $$$AssertEquals(Suggestie,"Kan best gepland worden op: "_$C(13,10)_"22-4 (Vr), 26-4 (Di)","Door het gat op donderdag wordt er wel een suggestie gedaan")
+]]></Implementation>
+</Method>
+
+<Method name="TestStockProbleemInfo">
+<Implementation><![CDATA[
+	Set ToeleveringNummer = 296195
+	Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringNummer)
+ 	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 Service = ##class(APPS.Halux.Planning.PlanningService).%New()
+	Set StockProbleemInfoLijst = Service.GeefStockProbleemInfo(ToeleveringNummer)
+	
+	Do $$$AssertEquals(StockProbleemInfoLijst.Count(),2,"Er is 1 product met een stockprobleem op 2 halffabrikaten")
+	Do $$$AssertEquals(StockProbleemInfoLijst.GetAt(1).ProductCode,"KBG#HFOGUYRHB 248x998FZEV","Het halffabrikaat met stockprobleem")
+	Do $$$AssertEquals(StockProbleemInfoLijst.GetAt(1).HalffabrikaatCode,"SPF.B600   B-STR2840 BZWI","Het halffabrikaat met stockprobleem")
+	Do $$$AssertFalse(StockProbleemInfoLijst.GetAt(1).IsVerwachtExact,"Verwachte datum is niet exact")
+	Do $$$AssertEquals(StockProbleemInfoLijst.GetAt(1).VerwachtInWeek,11,"Verwacht in week 10")
+	
+ 	Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(ToeleveringNummer)
+ 	Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData)
+ 	Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringDeletedEventListener(ToeleveringDeletedEvent)
+]]></Implementation>
+</Method>
+
+<Method name="TestToeleveringDetail">
+<Implementation><![CDATA[
+	Set Service = ##class(APPS.Halux.Planning.PlanningService).%New()
+	
+	Set ToeleveringNummer = 296195
+	Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringNummer)
+ 	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)
+	
+	// Vroeger inplannen van een stockprobleem
+	Set ToeleveringNummers = ##class(%ListOfDataTypes).%New()
+	Do ToeleveringNummers.Insert(ToeleveringNummer)
+	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62100, ToeleveringNummers)
+	
+	Set ToeleveringDetail = Service.GeefToeleveringDetail(ToeleveringNummer)
+	
+	Do $$$AssertTrue(ToeleveringDetail.ActieInfoLijst.Count()>0,"Er zijn actie info objecten aangemaakt")
+	Do $$$AssertTrue(ToeleveringDetail.StockProbleemInfoLijst.Count()>0,"Er zijn stockprobleem info objecten aangemaakt")
+	
+	Do $$$AssertTrue($Length(ToeleveringDetail.DisplayString)>0,"De display string is ingevuld")
+	
+	Do Service.VerwijderAlleVerplaatsingen(ToeleveringNummer)
+	
+ 	Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(ToeleveringNummer)
+ 	Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData)
+ 	Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringDeletedEventListener(ToeleveringDeletedEvent)
+]]></Implementation>
+</Method>
+
+<Method name="TestVoerUitActie">
+<Implementation><![CDATA[
+	Set Service = ##class(APPS.Halux.Planning.PlanningService).%New()
+	
+	Set ToeleveringNummer = 296195
+	
+	Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringNummer)
+ 	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 ToeleveringsNummers = ##class(%ListOfDataTypes).%New()
+	Do ToeleveringsNummers.Insert(ToeleveringNummer)
+	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62100, ToeleveringsNummers)
+	
+	Set ToeleveringActieParameter = ##class(APPS.Halux.Planning.dto.ToeleveringActieParameter).%New()
+	Set ToeleveringActieParameter.ToeleveringNummer = ToeleveringNummer
+	Set Resultaat = Service.VoerUitActie(##class(APPS.Halux.Planning.enu.ActieCode).VerplaatsDueOut(),ToeleveringActieParameter)
+	
+	Do $$$AssertTrue(Resultaat.IsGeslaagd,"Het verplaatsen naar de due out is geslaagd")
+	Do $$$AssertEquals(Resultaat.FoutBoodschap,"","De foutboodschap is leeg")
+	
+	Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(ToeleveringNummer)
+	
+	Do $$$AssertEquals(ToeleveringInfo.Gepland,$zdt("62137,43200",3),"De toelevering is terug gepland op de dueout")
+	Do $$$AssertEquals(ToeleveringInfo.GeplandStatus,##class(APPS.Halux.Planning.enu.GeplandStatus).Impliciet(),"De toelevering werd terug op impliciet gepland geplaatst")
+	
+	Set ToeleveringInfo = "" // unswizzle
+	
+	Set Resultaat = Service.VoerUitActie(##class(APPS.Halux.Planning.enu.ActieCode).VerplaatsVerwacht(),ToeleveringActieParameter)
+	
+	Do $$$AssertTrue(Resultaat.IsGeslaagd,"Het verplaatsen naar de verwacht datum is geslaagd")
+	Do $$$AssertEquals(Resultaat.FoutBoodschap,"","De foutboodschap is leeg")
+	
+	Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(ToeleveringNummer)
+	
+	Do $$$AssertEquals(ToeleveringInfo.Gepland,"2011-03-16 00:00:00","De toelevering is verplaatst naar de verwacht datum")
+	
+	Set ToeleveringInfo = "" // unswizzle
+	
+ 	Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(ToeleveringNummer)
+ 	Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData)
+ 	Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringDeletedEventListener(ToeleveringDeletedEvent)
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="605608065"/>
 </Export>