Index: vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml
===================================================================
diff -u -r2831 -r3292
--- vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 2831)
+++ vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 3292)
@@ -15,12 +15,18 @@
 	Set ^KTO2(6332,296195) = ""
 	Set ^KTO1(296195)="6332\"
 	
+	Set ^TO("IU",296195,100)=101
+	Set ^TO("IU",296195,200)=102
+	
 	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\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\\\\\\\\"
 	
+	Do ProductToeleveringLijnGemaakt^FLOWTOE2(6332, 296195, 101)
+	Do ProductToeleveringLijnGemaakt^FLOWTOE2(6332, 296195, 102)
+	
 	// Stockproblemen faken
 	Set ^HADPR("F","296195;100","K") = "33\62038,59594\\\\\\\\\\"
 	Set ^HADPR("F","296195;100","F") = "33\62094,58737\A\\\\\\\\\"
@@ -32,9 +38,6 @@
 	// 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
 		
 	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"
@@ -56,12 +59,14 @@
 	Set ^KTO2(6332,298209) = ""
 	Set ^KTO1(298209) ="6332\"
 	
+	Set ^TO("IU",298209,100)=101
+	
 	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 ^TO("IU",298209,100)=101
+	Do ProductToeleveringLijnGemaakt^FLOWTOE2(6332, 298209, 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"
@@ -93,17 +98,23 @@
 <Implementation><![CDATA[
 	Set Status = ##super()
 	
-	Kill ^TO("IU",298209)
-	Kill ^TO("IU",296195)
-	
 	Kill ^ORD("IU",118153)
 	
+	Do ProductToeleveringLijnAnnulatie^FLOWTOE2(6332, 298209, 101)
+	
 	Kill ^KTO2(6332,298209)
 	Kill ^KTO1(298209)	
 	Kill ^KTO(6332,298209)
 	
+	Set LijnID = $Order(^KTO(6332,296195,100))
+	While (LijnID '= "")
+	{
+		Do ProductToeleveringLijnAnnulatie^FLOWTOE2(6332, 296195, LijnID)
+		Set LijnID = $Order(^KTO(6332,296195,LijnID))
+	}
+	
 	Kill ^KTO2(6332,296195)
-	Kill ^KTO1(296195)	
+	Kill ^KTO1(296195)
 	Kill ^KTO(6332,296195)
 	
 	Kill ^KOD(6279,"F",118153)
@@ -118,6 +129,9 @@
 	Kill ^KPR(568126,"W    0.0T20110221298072  1")
 	Kill ^KPR(568127,"W    0.0T20110221298072  1")
 	
+	Kill ^TO("IU",298209)
+	Kill ^TO("IU",296195)
+	
 	Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(118153,100,6279,703100)
 	Set ProductOrderLijnGemaakt = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(ProductOrderLijnEventData)
 	Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ProductOrderLijnGemaakt)
@@ -174,7 +188,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestSplitsToelevering">
+<Method name="aTestSplitsToelevering">
 <Implementation><![CDATA[
 	Set Service = ##class(APPS.Halux.Planning.PlanningService).%New()
 	
@@ -192,6 +206,7 @@
 	Do $$$AssertEquals(Resultaat.Boodschap,"Toelevering -1 bestaat niet","De toelevering bestaat niet")
 
 	Set Resultaat = Service.SplitsToelevering(TeSplitsenToeleveringNummer, AantalToeleveringen, DrempelAantalProducten)
+	Do $$$AssertTrue($IsObject(Resultaat.Wijzigingen),"Er zijn wijzigingen")
 	Do Resultaat.Wijzigingen.Execute()
 	
 	Set UniekeToeleveringNummers = ##class(%ArrayOfDataTypes).%New()