Index: APPS/VKP/Order/impl/SpaceTowerSplitser.cls.xml
===================================================================
diff -u -r33173 -r33236
--- APPS/VKP/Order/impl/SpaceTowerSplitser.cls.xml	(.../SpaceTowerSplitser.cls.xml)	(revision 33173)
+++ APPS/VKP/Order/impl/SpaceTowerSplitser.cls.xml	(.../SpaceTowerSplitser.cls.xml)	(revision 33236)
@@ -34,8 +34,9 @@
 	While ProductOrderLijnIterator.HasNext(){
 		#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = ProductOrderLijnIterator.Next()
 		If ..ProductTypeAPI.IsSpaceTowerProduct(ProductOrderLijn.GeefProductID()) {
-			If ProductOrderLijn.GeefAantal() > 1 {
-				Do ..OrderLijnSplitser.SplitsAfAantal(Order.GeefID(),ProductOrderLijn.GeefLijnVolgNr(), ProductOrderLijn.GeefAantal()-1)
+			While ProductOrderLijn.GeefAantal() > 1 {
+				Do ..OrderLijnSplitser.SplitsAfAantal(Order.GeefID(),ProductOrderLijn.GeefLijnVolgNr(), 1)
+				Do ProductOrderLijn.Reload()
 			}
 		}
 		
Index: vhUnitTest/APPS/VKP/Order/impl/SpaceTowerSplitser/SplitsSpaceTowerLijnen/Test.cls.xml
===================================================================
diff -u -r33173 -r33236
--- vhUnitTest/APPS/VKP/Order/impl/SpaceTowerSplitser/SplitsSpaceTowerLijnen/Test.cls.xml	(.../Test.cls.xml)	(revision 33173)
+++ vhUnitTest/APPS/VKP/Order/impl/SpaceTowerSplitser/SplitsSpaceTowerLijnen/Test.cls.xml	(.../Test.cls.xml)	(revision 33236)
@@ -122,27 +122,30 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestOrderMetSpaceTowerAantal2">
+<Method name="TestOrderMetSpaceTowerAantal3">
 <Implementation><![CDATA[
 	#dim Order As DOM.VKP.Order = ..OrderAPI.GeefOrder(..#OrderID)
 	Set ^KOD(1000,"F",..#OrderID,101) = "703000 \"_$$$SpaceTowerProductID_"\1\\\619\0#0\8\619\619\703000 \L\\\100\619\KF0\\\\E1\EUR\\\63981\\\\\\\\\\\\\\\\\\\\\1"
-	Do ..OrderDataUtil.WijzigOrderLijn(..OrderLijnVeld.Aantal, 1000, ..#OrderID, 101, 2)
+	Do ..OrderDataUtil.WijzigOrderLijn(..OrderLijnVeld.Aantal, 1000, ..#OrderID, 101, 3)
 	
-	Set OrderLijnSplitserMock = ##class(vhTest.Mock.APPS.VKP.Order.impl.OrderLijnSplitser).%New()
-	Do OrderLijnSplitserMock.VerwachtMethodCall("SplitsAfAantal",..#OrderID,101,1).DanDoeNiks()
-	Set SpaceTowerSplitser = ##class(APPS.VKP.Order.impl.SpaceTowerSplitser).%New(OrderLijnSplitserMock)
+	;Set OrderLijnSplitserMock = ##class(vhTest.Mock.APPS.VKP.Order.impl.OrderLijnSplitser).%New()
+	;Do OrderLijnSplitserMock.VerwachtMethodCall("SplitsAfAantal",..#OrderID,101,1).DanDoeNiks()
+	Set SpaceTowerSplitser = ##class(APPS.VKP.Order.impl.SpaceTowerSplitser).%New()  ; OrderLijnSplitserMock)
 	Do SpaceTowerSplitser.SplitsSpaceTowerLijnen(Order.GeefID())
 	
+	// Reload Order
+	Set Order = ""
+	Set Order = ..OrderAPI.GeefOrder(..#OrderID)
+	
 	#dim OrderLijnIterator As TECH.Iterator = Order.GeefOrderLijnIterator()
 	
-	// TO DO :  de code om effectief af te splitsen moet nog geschreven worden  --> wellicht refactor van deze test 
-	;Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 101, 1)
-	;Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 102, 1)
-	Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 101, 2)
+	Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 101, 1)
+	Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 102, 1)
+	Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 103, 1)
 
 	Do $$$AssertFalse(OrderLijnIterator.HasNext())
 	
-	Do OrderLijnSplitserMock.Verifieer()
+	;Do OrderLijnSplitserMock.Verifieer()
 ]]></Implementation>
 </Method>