Index: vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml
===================================================================
diff -u -r1013 -r1017
--- vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 1013)
+++ vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 1017)
@@ -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-04-18 14:32:52">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 14:40:36">
 <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>62199,52388.135891</TimeChanged>
+<TimeChanged>62200,52852.078374</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="OnBeforeAllTests">
@@ -19,18 +19,21 @@
 	Set ^KTO(6332,296195,0)=103
 	Set ^KTO(6332,296195,1)="\02.02.11\KOMM. OPTIMA PACK\\\6332\118153\6279\\\\\\\\\\EUR\62137,43200\\\2\\\\"
 	Set ^KTO(6332,296195,4)=2
-	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 ^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\\\\\\\\"
 	
-	
+	Set ^TO("IU",296195,100)=101
+	Set ^TO("IU",296195,200)=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 ^KOD(6279,"F",118153,101)="703100 \629192\30\\\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\30\\\59.60\40#0\0\59.60\59.60\703100 \L\\\200\59.60\KF0\\\\E1\EUR\\\62138\\296195\102\62143\\\\\\\\\\\\\\\\\1\\"
 	
+	Set ^KO2("F",1000,118153)=""
 	Set ^KO1(118153,"F")="6279\"
 	
 	
@@ -42,13 +45,16 @@
 	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 ^TO("IU",298209,100)=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 ^KO2("F",1000,123441)=""
 	Set ^KO1(123441,"F")="1000\"
 	
 	Quit $$$OK
@@ -60,6 +66,9 @@
 <Implementation><![CDATA[
 	Set Status = ##super()
 	
+	Kill ^TO("IU",298209)
+	Kill ^TO("IU",296195)
+	
 	Kill ^KTO2(6332,298209)
 	Kill ^KTO1(298209)	
 	Kill ^KTO(6332,298209)
@@ -70,14 +79,94 @@
 	
 	Kill ^KOD(6279,"F",118153)
 	Kill ^KO1(118153,"F")
+	Kill ^KO2("F",1000,118153)
 	
 	Kill ^KOD(1000,"F",123441)
 	Kill ^KO1(123441,"F")
+	Kill ^KO2("F",1000,123441)
 	
 	Quit Status
 ]]></Implementation>
 </Method>
 
+<Method name="TestSplitsToelevering">
+<Implementation><![CDATA[
+	Set Service = ##class(APPS.Halux.Planning.PlanningService).%New()
+	
+	Set TeSplitsenToeleveringNummer = 296195
+	Set AantalToeleveringen = 3
+	Set DrempelAantalProducten = 20
+	
+	Set Resultaat = Service.SplitsToelevering(-1, AantalToeleveringen, DrempelAantalProducten)
+	Do $$$AssertEquals(Resultaat.Boodschap,"Toelevering -1 bestaat niet","De toelevering bestaat niet")
+
+	Set Resultaat = Service.SplitsToelevering(TeSplitsenToeleveringNummer, AantalToeleveringen, DrempelAantalProducten)
+	Do Resultaat.Wijzigingen.Execute()
+	
+	Set UniekeToeleveringNummers = ##class(%ArrayOfDataTypes).%New()
+	
+	While (Resultaat.Wijzigingen.Next())
+	{
+		Set ToeleveringNummer = Resultaat.Wijzigingen.Data("ToeleveringNummer")
+		If (ToeleveringNummer '= TeSplitsenToeleveringNummer)
+		{
+			Do UniekeToeleveringNummers.SetAt("",ToeleveringNummer)
+		}
+	}
+	
+	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	
+	Set ToeleveringNummerIterator = ##class(TECH.ListIterator).%New(UniekeToeleveringNummers)
+	
+	// De originele toelevering is toelevering 1
+	
+	Set Toelevering = ToeleveringAPI.GeefToelevering(TeSplitsenToeleveringNummer)
+	Set LijnIterator = Toelevering.GeefToeleveringLijnIterator()
+	Do $$$AssertTrue(LijnIterator.HasNext(),"Er is een lijn")
+	Do $$$AssertEquals(LijnIterator.Next().GeefAantal(),10,"10 producten per lijn")
+	Do $$$AssertTrue(LijnIterator.HasNext(),"Er is een tweede lijn")
+	Do $$$AssertEquals(LijnIterator.Next().GeefAantal(),10,"10 producten per lijn")
+	
+	// De eerste afgesplitste toelevering is 2
+	Do ToeleveringNummerIterator.Next()
+	Set ToeleveringNummer = ToeleveringNummerIterator.Key()
+	Set Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringNummer)
+	Set LijnIterator = Toelevering.GeefToeleveringLijnIterator()
+	Do $$$AssertTrue(LijnIterator.HasNext(),"Er is een lijn")
+	Do $$$AssertEquals(LijnIterator.Next().GeefAantal(),10,"10 producten per lijn")
+	Do $$$AssertTrue(LijnIterator.HasNext(),"Er is een tweede lijn")
+	Do $$$AssertEquals(LijnIterator.Next().GeefAantal(),10,"10 producten per lijn")
+	
+	// De tweede afgesplitste toelevering is 3
+	Do ToeleveringNummerIterator.Next()
+	Set ToeleveringNummer = ToeleveringNummerIterator.Key()
+	Set Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringNummer)
+	Set LijnIterator = Toelevering.GeefToeleveringLijnIterator()
+	Do $$$AssertTrue(LijnIterator.HasNext(),"Er is een lijn")
+	Do $$$AssertEquals(LijnIterator.Next().GeefAantal(),10,"10 producten per lijn")
+	Do $$$AssertTrue(LijnIterator.HasNext(),"Er is een tweede lijn")
+	Do $$$AssertEquals(LijnIterator.Next().GeefAantal(),10,"10 producten per lijn")
+	
+	// Verwijder de aangemaakte toeleveringen
+	Set ToeleveringNummerIterator = ##class(TECH.ListIterator).%New(UniekeToeleveringNummers)
+	While (ToeleveringNummerIterator.HasNext())
+	{
+		Do ToeleveringNummerIterator.Next()
+		Set ToeleveringNummer = ToeleveringNummerIterator.Key()
+		
+		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)
+		
+		Do DELOBJ^FLOWTOE(ToeleveringNummer)
+	}
+	
+	// Omdat de splits toeleveringen wat data wijzigt gaan we deze opnieuw laten aanmaken	
+	Do ..OnAfterAllTests()
+	Do ..OnBeforeAllTests()
+]]></Implementation>
+</Method>
+
 <Method name="TestDueOutAlternatieven">
 <Implementation><![CDATA[
 	Set Service = ##class(APPS.Halux.Planning.PlanningService).%New()
@@ -341,5 +430,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="4273191766"/>
+<Checksum value="605608065"/>
 </Export>