Index: APPS/VKP/Order/impl/SpaceTowerSplitser.cls.xml
===================================================================
diff -u
--- APPS/VKP/Order/impl/SpaceTowerSplitser.cls.xml	(revision 0)
+++ APPS/VKP/Order/impl/SpaceTowerSplitser.cls.xml	(revision 33134)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Order.impl.SpaceTowerSplitser">
+<Super>TECH.RegisteredObject,APPS.VKP.Order.SpaceTowerSplitser</Super>
+
+<Method name="SplitsSpaceTowerLijnen">
+<FormalSpec>OrderID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim Order As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(OrderID)
+	#dim ProductOrderLijnIterator As TECH.Iterator = Order.GeefProductOrderLijnIterator()
+	While ProductOrderLijnIterator.HasNext(){
+		#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = ProductOrderLijnIterator.Next()
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/VKP/Order/impl/SpaceTowerSplitser/SplitsSpaceTowerLijnen/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/Order/impl/SpaceTowerSplitser/SplitsSpaceTowerLijnen/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/Order/impl/SpaceTowerSplitser/SplitsSpaceTowerLijnen/Test.cls.xml	(revision 33134)
@@ -0,0 +1,182 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.Order.impl.SpaceTowerSplitser.SplitsSpaceTowerLijnen.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="OrderID">
+<Type>%String</Type>
+<Default>19999</Default>
+</Parameter>
+
+<Parameter name="OrderIDZonderLijnen">
+<Type>%String</Type>
+<Default>19998</Default>
+</Parameter>
+
+<Parameter name="OrderIDMetTekstLijn">
+<Type>%String</Type>
+<Default>19997</Default>
+</Parameter>
+
+<Parameter name="OrderIDMetProductLijn">
+<Type>%String</Type>
+<Default>19996</Default>
+</Parameter>
+
+<Property name="Order">
+<Type>DOM.VKP.Order</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderAPI">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ..VerwijderTestData()
+	Do ..MaakTestData()
+
+	Set ..OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
+
+	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Do ..VerwijderTestData()
+	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="TestOrderZonderLijnen">
+<Implementation><![CDATA[
+	#dim Order As DOM.VKP.Order = ..OrderAPI.GeefOrder(..#OrderIDZonderLijnen)
+
+	Set SpaceTowerSplitser = ##class(APPS.VKP.Order.impl.SpaceTowerSplitser).%New()
+	Do SpaceTowerSplitser.SplitsSpaceTowerLijnen(Order.GeefID())
+
+	Do $$$AssertFalse(Order.GeefOrderLijnIterator().HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="TestOrderMetEenTekstlijn">
+<Implementation><![CDATA[
+	#dim Order As DOM.VKP.Order = ..OrderAPI.GeefOrder(..#OrderIDMetTekstLijn)
+
+	Set SpaceTowerSplitser = ##class(APPS.VKP.Order.impl.SpaceTowerSplitser).%New()
+	Do SpaceTowerSplitser.SplitsSpaceTowerLijnen(Order.GeefID())
+	
+	#dim OrderLijnIterator As TECH.Iterator = Order.GeefOrderLijnIterator()
+	If $$$AssertTrue(OrderLijnIterator.HasNext()) {
+		#dim Orderlijn As DOM.VKP.impl.DataM.DataMOrderlijn = OrderLijnIterator.Next()
+		Do $$$AssertEquals(Orderlijn.GeefType(),##class(DOM.VKP.enu.OrderLijnType).Tekst())
+		Do $$$AssertEquals(Orderlijn.GeefLijnVolgNr(),101)
+	}
+	Do $$$AssertFalse(OrderLijnIterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="TestOrderMetEenProductlijn">
+<Implementation><![CDATA[
+	#dim Order As DOM.VKP.Order = ..OrderAPI.GeefOrder(..#OrderIDMetProductLijn)
+	
+	Set SpaceTowerSplitser = ##class(APPS.VKP.Order.impl.SpaceTowerSplitser).%New()
+	Do SpaceTowerSplitser.SplitsSpaceTowerLijnen(Order.GeefID())
+	
+	#dim OrderLijnIterator As TECH.Iterator = Order.GeefOrderLijnIterator()
+	If $$$AssertTrue(OrderLijnIterator.HasNext()) {
+		#dim Orderlijn As DOM.VKP.impl.DataM.DataMOrderlijn = OrderLijnIterator.Next()
+		Do $$$AssertEquals(Orderlijn.GeefType(),##class(DOM.VKP.enu.OrderLijnType).Product())
+		Do $$$AssertEquals(Orderlijn.GeefLijnVolgNr(),101)
+	}
+	Do $$$AssertFalse(OrderLijnIterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="MaakTestData">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..MaakOrderMetEenSpaceTower(..#OrderID)
+	Do ..MaakOrderZonderLijnen(..#OrderIDZonderLijnen)
+	Do ..MaakOrderMetEenTekstLijn(..#OrderIDMetTekstLijn)
+	Do ..MaakOrderMetEenProductLijn(..#OrderIDMetProductLijn)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderTestData">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.DataHelper).VerwijderOrder(..#OrderID)
+	Do ##class(vhUnitTest.DataHelper).VerwijderOrder(..#OrderIDZonderLijnen)
+	Do ##class(vhUnitTest.DataHelper).VerwijderOrder(..#OrderIDMetTekstLijn)
+	Do ##class(vhUnitTest.DataHelper).VerwijderOrder(..#OrderIDMetProductLijn)
+]]></Implementation>
+</Method>
+
+<Method name="MaakOrderHoofding">
+<FormalSpec>OrderID:%String,VolgendLijnNr:%Integer=101</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ^KOD(1000,"F",OrderID,0) = VolgendLijnNr
+	Set ^KOD(1000,"F",OrderID,1) = "\01.03.16\UT_SpaceTower_Splitser_Test\\\1000\DI1\1007#1097#63978,63399\\\\\\\\\\EUR\\\65\2\\DIV#63978,63399#"_OrderID_"\\\\\\\\\\\\\\\\\\\\\63978,63407\\\\\\\\\\\\1332076"
+	Set ^KOD(1000,"F",OrderID,2) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(1000,"F",OrderID,3) = "1\TESTKLANT VAN HOECKE nv\\FIRMA\EUROPARK-NOORD 9\9100\SINT-NIKLAAS\1019\N\\\L\\\\\\\.\"
+	Set ^KOD(1000,"F",OrderID,4) = (VolgendLijnNr-100)
+]]></Implementation>
+</Method>
+
+<Method name="MaakOrderMetEenSpaceTower">
+<FormalSpec>OrderID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#define SpaceTowerProductID   1352575
+	
+	Do ..MaakOrderHoofding(OrderID,102)
+	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 ##class(vhUnitTest.DataHelper).MaakOrderCompleet(1000,OrderID)
+]]></Implementation>
+</Method>
+
+<Method name="MaakOrderZonderLijnen">
+<FormalSpec>OrderID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..MaakOrderHoofding(OrderID,101)
+	Do ##class(vhUnitTest.DataHelper).MaakOrderCompleet(1000,OrderID)
+]]></Implementation>
+</Method>
+
+<Method name="MaakOrderMetEenTekstLijn">
+<FormalSpec>OrderID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..MaakOrderHoofding(OrderID,102)
+	Set ^KOD(1000,"F",OrderID,101) = "\\\\Dit is een tekstlijn.\\\\\\\\\\100\\KF11#1\28591;T;;OWBFI\\\\\\\\\\\\\\\\\\"
+	Do ##class(vhUnitTest.DataHelper).MaakOrderCompleet(1000,OrderID)
+]]></Implementation>
+</Method>
+
+<Method name="MaakOrderMetEenProductLijn">
+<FormalSpec>OrderID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#define ZomaarEenLadeProductID   1387324
+	
+	Do ..MaakOrderHoofding(OrderID,102)
+	Set ^KOD(1000,"F",OrderID,101) = "703100 \"_$$$ZomaarEenLadeProductID_"\1\\\49.21\0#0\0\147.63\147.63\703100 \L\\F\100\147.63\KF0\\\\E1\EUR\\1\63984\\\\\\\\\\\\\\\\\\\\\1"
+	Do ##class(vhUnitTest.DataHelper).MaakOrderCompleet(1000,OrderID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/VKP/Order/SpaceTowerSplitser.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/VKP/Order/SpaceTowerSplitser.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/VKP/Order/SpaceTowerSplitser.cls.xml	(revision 33134)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.VKP.Order.SpaceTowerSplitser">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VKP.Order.SpaceTowerSplitser,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="SplitsSpaceTowerLijnen">
+<FormalSpec>OrderID:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("SplitsSpaceTowerLijnen",OrderID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Order/SpaceTowerSplitser.cls.xml
===================================================================
diff -u
--- APPS/VKP/Order/SpaceTowerSplitser.cls.xml	(revision 0)
+++ APPS/VKP/Order/SpaceTowerSplitser.cls.xml	(revision 33134)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Order.SpaceTowerSplitser">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="SplitsSpaceTowerLijnen">
+<Abstract>1</Abstract>
+<FormalSpec>OrderID:%String</FormalSpec>
+</Method>
+</Class>
+
+
+</Export>