Index: vhUnitTest/APPS/VKP/impl/OrderSplitser/TestVolgensLijnFilterProductZonderSubmagazijn.cls.xml
===================================================================
diff -u -r40144 -r70295
--- vhUnitTest/APPS/VKP/impl/OrderSplitser/TestVolgensLijnFilterProductZonderSubmagazijn.cls.xml	(.../TestVolgensLijnFilterProductZonderSubmagazijn.cls.xml)	(revision 40144)
+++ vhUnitTest/APPS/VKP/impl/OrderSplitser/TestVolgensLijnFilterProductZonderSubmagazijn.cls.xml	(.../TestVolgensLijnFilterProductZonderSubmagazijn.cls.xml)	(revision 70295)
@@ -128,7 +128,7 @@
 	#dim Order As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(..#OrderID)
 	Do $$$AssertEquals(Order.GeefKlantID(),"K||7587")
 	Do $$$AssertEquals(Order.GeefOrderReferentie(),"27.09.12 TRANSFERTORDER")
-	Do $$$AssertEquals(Order.GeefVerzendingWijze(),"TH2")
+	Do $$$AssertEquals(Order.GeefVerzendingWijze(),"THD")
 	
 	#dim OrderLijnIt As TECH.Iterator = Order.GeefOrderLijnIterator()
 	If $$$AssertTrue($IsObject(OrderLijnIt),"Er is een OrderLijnIterator") {
@@ -166,7 +166,7 @@
 	}
 	
 	Do ..ControleOrderHoofdingIdentiek(Order,NieuwOrder)	
-	Do $$$AssertEquals(Order.GeefVerzendingWijze(),"TH2", "Herrekenen van de magazijnplaats voor producten die nog in order zitten.")
+	Do $$$AssertEquals(Order.GeefVerzendingWijze(),"THD", "Herrekenen van de magazijnplaats voor producten die nog in order zitten.")
 	Do $$$AssertEquals(NieuwOrder.GeefVerzendingWijze(),"TH", "Herrekenen van de magazijnplaats voor producten die nog in order zitten.")
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/VKP/impl/OrderSplitser/TestStelInAlsTransfertOrderIndienNodig.cls.xml
===================================================================
diff -u -r40150 -r70295
--- vhUnitTest/APPS/VKP/impl/OrderSplitser/TestStelInAlsTransfertOrderIndienNodig.cls.xml	(.../TestStelInAlsTransfertOrderIndienNodig.cls.xml)	(revision 40150)
+++ vhUnitTest/APPS/VKP/impl/OrderSplitser/TestStelInAlsTransfertOrderIndienNodig.cls.xml	(.../TestStelInAlsTransfertOrderIndienNodig.cls.xml)	(revision 70295)
@@ -101,7 +101,7 @@
 	#dim Order As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(345)
 	Do $$$AssertEquals(Order.GeefKlantID(),"K||7587")
 	Do $$$AssertEquals(Order.GeefOrderReferentie(),"27.09.12 TRANSFERTORDER")
-	Do $$$AssertEquals(Order.GeefVerzendingWijze(),"TH2")
+	Do $$$AssertEquals(Order.GeefVerzendingWijze(),"THD")
 	
 	#dim OrderLijnIt As TECH.Iterator = Order.GeefOrderLijnIterator()
 	If $$$AssertTrue($IsObject(OrderLijnIt),"Er is een OrderLijnIterator") {
@@ -119,7 +119,7 @@
 		Do $$$AssertFalse(OrderLijnIt.HasNext(),"Er zijn geen orderlijnen meer.")
 	}
 	
-	Do $$$AssertEquals(Order.GeefVerzendingWijze(),"TH2", "Herrekenen van de magazijnplaats voor producten die nog in order zitten.")
+	Do $$$AssertEquals(Order.GeefVerzendingWijze(),"THD", "Herrekenen van de magazijnplaats voor producten die nog in order zitten.")
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/VKP/impl/OrderSplitser/TestVolgensLijnFilterSubmagazijn.cls.xml
===================================================================
diff -u -r40143 -r70295
--- vhUnitTest/APPS/VKP/impl/OrderSplitser/TestVolgensLijnFilterSubmagazijn.cls.xml	(.../TestVolgensLijnFilterSubmagazijn.cls.xml)	(revision 40143)
+++ vhUnitTest/APPS/VKP/impl/OrderSplitser/TestVolgensLijnFilterSubmagazijn.cls.xml	(.../TestVolgensLijnFilterSubmagazijn.cls.xml)	(revision 70295)
@@ -129,7 +129,7 @@
 	#dim Order As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(..#OrderID)
 	Do $$$AssertEquals(Order.GeefKlantID(),"K||7587")
 	Do $$$AssertEquals(Order.GeefOrderReferentie(),"27.09.12 TRANSFERTORDER")
-	Do $$$AssertEquals(Order.GeefVerzendingWijze(),"TH2")
+	Do $$$AssertEquals(Order.GeefVerzendingWijze(),"THD")
 	
 	#dim OrderLijnIt As TECH.Iterator = Order.GeefOrderLijnIterator()
 	If $$$AssertTrue($IsObject(OrderLijnIt),"Er is een OrderLijnIterator") {
@@ -150,7 +150,7 @@
 	#dim NieuwOrder As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(..#OrderIDGemaaktDoorVerzendcodeOpsplitsing)
 	Do $$$AssertEquals(NieuwOrder.GeefKlantID(),"K||7587")
 	Do $$$AssertEquals(NieuwOrder.GeefOrderReferentie(),"27.09.12 TRANSFERTORDER")
-	Do $$$AssertEquals(NieuwOrder.GeefVerzendingWijze(),"TH5")
+	Do $$$AssertEquals(NieuwOrder.GeefVerzendingWijze(),"THR")
 	
 	Set OrderLijnIt = NieuwOrder.GeefOrderLijnIterator()
 	If $$$AssertTrue($IsObject(OrderLijnIt),"Er is een OrderLijnIterator") {
@@ -167,8 +167,8 @@
 	}
 	
 	Do ..ControleOrderHoofdingIdentiek(Order,NieuwOrder)	
-	Do $$$AssertEquals(Order.GeefVerzendingWijze(),"TH2", "Herrekenen van de magazijnplaats voor producten die nog in order zitten.")
-	Do $$$AssertEquals(NieuwOrder.GeefVerzendingWijze(),"TH5", "Herrekenen van de magazijnplaats voor producten die nog in order zitten.")
+	Do $$$AssertEquals(Order.GeefVerzendingWijze(),"THD", "Herrekenen van de magazijnplaats voor producten die nog in order zitten.")
+	Do $$$AssertEquals(NieuwOrder.GeefVerzendingWijze(),"THR", "Herrekenen van de magazijnplaats voor producten die nog in order zitten.")
 ]]></Implementation>
 </Method>