Index: APPS/Halux/Planning/PlanningService.cls.xml
===================================================================
diff -u -r2219 -r3292
--- APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 2219)
+++ APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 3292)
@@ -596,7 +596,6 @@
 <ReturnType>APPS.Halux.Planning.dto.SplitsToeleveringResultaat</ReturnType>
 <Implementation><![CDATA[
 	Set Resultaat = ##class(APPS.Halux.Planning.dto.SplitsToeleveringResultaat).%New()
-	Set Resultaat.Wijzigingen = ##class(%XML.DataSet).%New()
 	
 	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
 	Set Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringNummer)
@@ -606,7 +605,7 @@
 		TSTART
 		
 		Set SplitsEvaluatieResultaat = ..EvalueerSplitsToelevering(ToeleveringNummer, AantalToeleveringen, DrempelAantalProducten)
-		
+		Do SplitsEvaluatieResultaat.XMLExportToString(.xml,"","literal,indent")
 		Set UniekeLijnNummers = ##class(%ListOfDataTypes).%New()
 		Set ProductToeleveringLijnIterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.LEV.enu.ToeleveringLijnType).Product())
 		While (ProductToeleveringLijnIterator.HasNext())
@@ -616,7 +615,6 @@
 		}
 		
 		Set GewijzigdeToeleveringen = ##class(%ListOfObjects).%New()
-		
 		For i = 2:1:AantalToeleveringen
 		{
 			Set AfTeSplitsenLijnen = ##class(%ListOfDataTypes).%New()
@@ -670,8 +668,8 @@
 	
 SplitsFout
 	Set $ZTRAP = ""
-	TROLLBACK
 	Set Resultaat.Boodschap = ##class(TECH.ExceptionHandler).Catch().ToString()
+	TROLLBACK
 	Quit Resultaat
 ]]></Implementation>
 </Method>
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()
Index: vhUnitTest/APPS/common/Toelevering.cls.xml
===================================================================
diff -u -r2786 -r3292
--- vhUnitTest/APPS/common/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 2786)
+++ vhUnitTest/APPS/common/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 3292)
@@ -32,6 +32,8 @@
 	
 	/// Hoofding voor Toelevering aanmaken	
 	Set ^KTO(LeverancierID,ToeleveringID,1)="\"_Datum_"\STOCK\\\"_ToeleveringID_"\"_OrderID_"\\\\\\\\\\\EUR\\\\\\\\"
+	/// Index
+	Set ^KTO1(ToeleveringID)= LeverancierID_"\"
 	
 	/// Producten toevoegen aan toelevering 
 	Set LijnNr = 101	
@@ -41,10 +43,12 @@
 		Set ProductID = $P($P(ProductLijst,"\",I),";",1)
 		Set Aantal = $P($P(ProductLijst,"\",I),";",2)
 		
-		Set ^KTO(LeverancierID,ToeleveringID,LijnNr)="\"_ProductID_"\"_Aantal_"\\\2.84\#\\284.00\284.00\\L\14\\"_(UniekLijnNr*100)_"\284.00\KTRPL\\\\E\EUR\\G\11/46\\\\11/46\\\\\\\"
+		Set LijnCode = (UniekLijnNr*100)
+		Set ^KTO(LeverancierID,ToeleveringID,LijnNr)="\"_ProductID_"\"_Aantal_"\\\2.84\#\\284.00\284.00\\L\14\\"_LijnCode_"\284.00\KTRPL\\\\E\EUR\\G\11/46\\\\11/46\\\\\\\"
 		
 		/// Index opbouwen voor deze ToeleveringLijn
 		DO BUILDTO^FLOWTOE3(LeverancierID, ToeleveringID, LijnNr)
+		Do ProductToeleveringLijnGemaakt^FLOWTOE2(LeverancierID, ToeleveringID, LijnNr)
 		
 		/// LijnNummer ophogen
 		Set LijnNr = LijnNr + 1
@@ -54,10 +58,6 @@
 	/// Volgend UniekLijnNr instellen
 	Set ^KTO(LeverancierID,ToeleveringID,4) = UniekLijnNr
 	
-	/// Index
-	Set ^KTO1(ToeleveringID)= LeverancierID_"\"
-	
-	D WLIP^vhDBG(127,"Toelevering aangemaakt met ID : "_ToeleveringID)
 	Quit ToeleveringID
 ]]></Implementation>
 </Method>