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() } }