Index: vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml
===================================================================
diff -u -r995 -r1013
--- vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 995)
+++ vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 1013)
@@ -1,18 +1,19 @@
 <?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-05 09:12:07">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-18 14:32:52">
 <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>62186,33133.173324</TimeChanged>
+<TimeChanged>62199,52388.135891</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Do ##super()
 	
+	Set ^KTO2(6332,296195) = ""
 	Set ^KTO1(296195)="6332\"
 	
 	Set ^KTO(6332,296195,0)=103
@@ -21,13 +22,35 @@
 	Set ^KTO(6332,296195,101)="\629192\1\\\47.68\#\\47.68\47.68\\L\1\\100\47.68\KTRPL\\\\E\EUR\\\11/06\\118153\101\\\\\\\\"
 	Set ^KTO(6332,296195,102)="\629192\1\\\47.68\#\\47.68\47.68\\L\1\\100\47.68\KTRPL\\\\E\EUR\\\11/06\\118153\102\\\\\\\\"
 	
+	
+	Set ^KOD(6279,"F",118153,0)=103
+	Set ^KOD(6279,"F",118153,1)="\02.02.11\45263 cuisine cote basque\\\6279\DI2;1`DI2;2`DI2;3`DI2;4`DI2;5\1087#1096#62124,64781\\ygransart@lmc.tm.fr\\\\1\\\\EUR\\\00\2\\1087#62124,64781#118153\\\\\\\\\\\\\\\\\\\\\62124,64781"
+	Set ^KOD(6279,"F",118153,2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(6279,"F",118153,3)="0\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(6279,"F",118153,4)=2
+	Set ^KOD(6279,"F",118153,101)="703100 \629192\1\\\59.60\40#0\0\59.60\59.60\703100 \L\\\100\59.60\KF0\\\\E1\EUR\\\62138\\296195\101\62143\\\\\\\\\\\\\\\\\1\\"
+	Set ^KOD(6279,"F",118153,102)="703100 \629192\1\\\59.60\40#0\0\59.60\59.60\703100 \L\\\100\59.60\KF0\\\\E1\EUR\\\62138\\296195\102\62143\\\\\\\\\\\\\\\\\1\\"
+	
+	Set ^KO1(118153,"F")="6279\"
+	
+	
+	Set ^KTO2(6332,298209) = ""
 	Set ^KTO1(298209) ="6332\"
 	
 	Set ^KTO(6332,298209,0)=102                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         
 	Set ^KTO(6332,298209,1)="\18.03.11\KOMM. TESTKLANT VAN HOECK\\\6332\123441\1000\\\\\\\\\\EUR\62172,43200\\\2\\\\"
 	Set ^KTO(6332,298209,4)=2
 	Set ^KTO(6332,298209,101)="\614077\1\\\21.14\#\\21.14\21.14\\L\1\\100\21.14\KTRPL\\\\E\EUR\\\11/12\\123441\101\\\\\\\\"
 	
+	Set ^KOD(1000,"F",123441,0)="102"
+	Set ^KOD(1000,"F",123441,1)="\18.03.11\test h\298218\\1000\DI1\3#1191#62168,39589\\cw@vanhoecke.be\\\\\\\\EUR\\\60\2\\DIV#62168,39589#123441\\\\\\\\\\\\\\\\\\\\\62168,39590"
+	Set ^KOD(1000,"F",123441,2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(1000,"F",123441,3)="1\TESTKLANT VAN HOECKE nv\\FIRMA\Europark noord 9\9100\Sint-Niklaas\1019\N\\\\\\\\\\.\\\\test cw\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(1000,"F",123441,4)="2"
+	Set ^KOD(1000,"F",123441,101)="703100 \614077\1\\\44.49\0#\8\44.49\44.49\703100 \L\\\100\44.49\KF0\\\\E1\EUR\\1\62173\\298209\101\\\\\\\\\\\\\\\\\\1\\"
+	
+	Set ^KO1(123441,"F")="1000\"
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -37,9 +60,20 @@
 <Implementation><![CDATA[
 	Set Status = ##super()
 	
+	Kill ^KTO2(6332,298209)
+	Kill ^KTO1(298209)	
+	Kill ^KTO(6332,298209)
+	
+	Kill ^KTO2(6332,296195)
 	Kill ^KTO1(296195)	
 	Kill ^KTO(6332,296195)
 	
+	Kill ^KOD(6279,"F",118153)
+	Kill ^KO1(118153,"F")
+	
+	Kill ^KOD(1000,"F",123441)
+	Kill ^KO1(123441,"F")
+	
 	Quit Status
 ]]></Implementation>
 </Method>
@@ -266,6 +300,46 @@
 	Do $$$AssertEquals(Resultaat.Errors.Count(),1,"Er is 1 probleem")
 ]]></Implementation>
 </Method>
+
+<Method name="TestLeverImpact">
+<Implementation><![CDATA[
+	/// Maak het dataitem voor de toelevering
+	Set ToeleveringsNummer = 296195
+	Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringsNummer)
+ 	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 ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(ToeleveringsNummer)
+	Do $$$AssertEquals(ToeleveringInfo.LeverImpact,"0d","Geen leverimpact op een nieuwe toelevering")
+	Set ToeleveringInfo = "" // unswizzle
+	
+	
+	Set ToeleveringsNummers = ##class(%ListOfDataTypes).%New()
+	Do ToeleveringsNummers.Insert(ToeleveringsNummer)
+	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62135, ToeleveringsNummers)
+	
+	Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(ToeleveringsNummer)
+	Do $$$AssertEquals(ToeleveringInfo.LeverImpact,"-4d","leverimpact door de verplaatsing, door het weekend wordt dit getal groter")
+	
+	Do $$$AssertEquals(ToeleveringInfo.ExplicietePlanningen.Count(),1, "De data voor de expliciete planning is bewaard")
+	Do $$$AssertEquals($Piece(ToeleveringInfo.Gepland," "),$zd(62135,3),"Het item is gepland op de nieuwe datum")
+	
+	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62139, ToeleveringsNummers)
+	
+	Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(ToeleveringsNummer)
+	Do $$$AssertEquals(ToeleveringInfo.LeverImpact,"+2d","leverimpact door de verplaatsing")
+	
+	Do $$$AssertEquals(ToeleveringInfo.ExplicietePlanningen.Count(),2, "De data voor de expliciete planning is bewaard")
+	Do $$$AssertEquals($Piece(ToeleveringInfo.Gepland," "),$zd(62139,3),"Het item is gepland op de nieuwe datum")
+
+ 	Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(ToeleveringsNummer)
+ 	Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData)
+ 	Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringDeletedEventListener(ToeleveringDeletedEvent)
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="1280197018"/>
+<Checksum value="4273191766"/>
 </Export>