Index: APPS/VKP/Order/impl/SpaceTowerSplitser.cls.xml
===================================================================
diff -u -r33252 -r33254
--- APPS/VKP/Order/impl/SpaceTowerSplitser.cls.xml	(.../SpaceTowerSplitser.cls.xml)	(revision 33252)
+++ APPS/VKP/Order/impl/SpaceTowerSplitser.cls.xml	(.../SpaceTowerSplitser.cls.xml)	(revision 33254)
@@ -34,9 +34,15 @@
 	While ProductOrderLijnIterator.HasNext(){
 		#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = ProductOrderLijnIterator.Next()
 		If ..ProductTypeAPI.IsSpaceTowerProduct(ProductOrderLijn.GeefProductID()) {
-			While ProductOrderLijn.GeefAantal() > 1 {
+
+			#dim LijnAantalBeforeSplits As %Numeric = ""
+			#dim OrderLijnAantal As %Numeric = ProductOrderLijn.GeefAantal()
+
+			While (OrderLijnAantal > 1) && (OrderLijnAantal '= LijnAantalBeforeSplits) {
+				Set LijnAantalBeforeSplits = OrderLijnAantal
 				Do ..OrderLijnSplitser.SplitsAfAantal(Order.GeefID(),ProductOrderLijn.GeefLijnVolgNr(), 1)
 				Do ProductOrderLijn.Reload()
+				Set OrderLijnAantal = ProductOrderLijn.GeefAantal()
 			}
 		}
 		
Index: vhUnitTest/APPS/VKP/Order/impl/SpaceTowerSplitser/SplitsSpaceTowerLijnen/Test.cls.xml
===================================================================
diff -u -r33253 -r33254
--- vhUnitTest/APPS/VKP/Order/impl/SpaceTowerSplitser/SplitsSpaceTowerLijnen/Test.cls.xml	(.../Test.cls.xml)	(revision 33253)
+++ vhUnitTest/APPS/VKP/Order/impl/SpaceTowerSplitser/SplitsSpaceTowerLijnen/Test.cls.xml	(.../Test.cls.xml)	(revision 33254)
@@ -184,6 +184,32 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test Aantal groter dan 10 kan max 9 lijnen afplitsen, dus oorspronkelijke lijn houdt 5 over">
+<Implementation><![CDATA[
+	Do ..ResetOrderData(..#OrderID)
+	
+	#dim OrderID As %String = ..#OrderID
+	#dim Order As DOM.VKP.Order = ..OrderAPI.GeefOrder(OrderID)
+	Do ..OrderDataUtil.WijzigOrderLijn(..OrderLijnVeld.Aantal, 1000, OrderID, 101, 14)
+	
+	Set SpaceTowerSplitser = ##class(APPS.VKP.Order.impl.SpaceTowerSplitser).%New()
+	Do SpaceTowerSplitser.SplitsSpaceTowerLijnen(Order.GeefID())
+	
+	// Reload Order
+	Set Order = ""
+	Set Order = ..OrderAPI.GeefOrder(OrderID)
+	
+	#dim OrderLijnIterator As TECH.Iterator = Order.GeefOrderLijnIterator()
+	
+	Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 101, 5)
+	#dim i As %Integer
+	For i=0:1:8 {
+		Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 102+i, 1)
+	}
+	Do $$$AssertFalse(OrderLijnIterator.HasNext())
+]]></Implementation>
+</Method>
+
 <Method name="AssertVolgendeOrderLijn">
 <FormalSpec>OrderLijnIterator:TECH.Iterator,VerwachtOrderLijnType:DOM.VKP.enu.OrderLijnType,VerwachtLijnVolgNr:%Integer,VerwachteAantal:%Integer=1</FormalSpec>
 <Private>1</Private>
Index: APPS/VKP/Order/impl/OrderLijnSplitser.cls.xml
===================================================================
diff -u -r33235 -r33254
--- APPS/VKP/Order/impl/OrderLijnSplitser.cls.xml	(.../OrderLijnSplitser.cls.xml)	(revision 33235)
+++ APPS/VKP/Order/impl/OrderLijnSplitser.cls.xml	(.../OrderLijnSplitser.cls.xml)	(revision 33254)
@@ -31,7 +31,9 @@
 	#dim Order As DOM.VKP.Order = ..OrderAPI.GeefOrder(OrderID)
 	#dim KlantNr As %String = ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(Order.GeefKlantID())
 	
-	Do ..MaakBackOrderLijn(KlantNr, OrderID, LijnID, AantalAfTeSplitsen)
+	If ..KanBACKORDCorrectSplitsen(KlantNr, OrderID, LijnID) {
+		Do ..MaakBackOrderLijn(KlantNr, OrderID, LijnID, AantalAfTeSplitsen)
+	}
 ]]></Implementation>
 </Method>
 
@@ -42,6 +44,19 @@
 <Implementation><![CDATA[	Do BACKORD^FLOWORD6(KlantNr, OrderID, OrderLijnVolgNr, AantalBackOrder, RestAantal, LeverWeekBackOrder)
 ]]></Implementation>
 </Method>
+
+<Method name="KanBACKORDCorrectSplitsen">
+<FormalSpec>KlantNr:%String,OrderID:%String,OrderLijnVolgNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim OrderLijnUniekNummer = $P($G(^KOD(KlantNr,"F",OrderID, OrderLijnVolgNr)),"\",15)
+	#dim VolgendOLUNr As %Integer = $$BerekenVolgendOLUNr^FLOWORD6(OrderID,OrderLijnUniekNummer)
+	
+	Quit:($D(^ORD("IU",OrderID,VolgendOLUNr))) $$$False   ;  dit UniekLijnNr bestaat al, mag niet herbruikt worden (UNIEK!) 
+	Quit $$$True
+]]></Implementation>
+</Method>
 </Class>