Index: APPS/VKP/Order/impl/SpaceTowerSplitser.cls.xml
===================================================================
diff -u -r33302 -r33318
--- APPS/VKP/Order/impl/SpaceTowerSplitser.cls.xml	(.../SpaceTowerSplitser.cls.xml)	(revision 33302)
+++ APPS/VKP/Order/impl/SpaceTowerSplitser.cls.xml	(.../SpaceTowerSplitser.cls.xml)	(revision 33318)
@@ -50,11 +50,11 @@
 <FormalSpec>ProductOrderLijn:DOM.VKP.ProductOrderlijn</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim LijnAantalBeforeSplits As %Numeric = ""
+	#dim VorigeAantal As %Numeric = ""
 	#dim OrderLijnAantal As %Numeric = ProductOrderLijn.GeefAantal()
 
-	While (OrderLijnAantal > 1) && (OrderLijnAantal '= LijnAantalBeforeSplits) {
-		Set LijnAantalBeforeSplits = OrderLijnAantal
+	While (OrderLijnAantal > 1) && (OrderLijnAantal '= VorigeAantal) {
+		Set VorigeAantal = OrderLijnAantal
 		Do ..OrderLijnSplitser.SplitsAfAantal(ProductOrderLijn.GeefOrderID(),ProductOrderLijn.GeefLijnVolgNr(), 1)
 		Do ProductOrderLijn.Reload()
 		Set OrderLijnAantal = ProductOrderLijn.GeefAantal()
Index: FLOWORD.mac.rou
===================================================================
diff -u -r29059 -r33318
--- FLOWORD.mac.rou	(.../FLOWORD.mac.rou)	(revision 29059)
+++ FLOWORD.mac.rou	(.../FLOWORD.mac.rou)	(revision 33318)
@@ -513,6 +513,7 @@
  . Set $P(^KOD(KLNr,"F",ORDNr,1),D,10)=FaxNrOrEmail
  Else  Do:'$$CHKLACHT(ORDNr) KLACHT
  
+ Do ##class(APPS.VKP.Order.impl.SpaceTowerSplitser).%New().SplitsSpaceTowerLijnen(ORDNr)
  Set R=^KOD(KLNr,"F",ORDNr,1)
  Do:'Closed
  .Set R=^KOD(KLNr,"F",ORDNr,1) Set:$P(R,D,45)="" $P(R,D,45)=$H,^KOD(KLNr,"F",ORDNr,1)=R ; Referentiedatum voor DOM levertermijn