Index: vhUnitTest/CHUI/VKP/OrderIngave/OrderMarkeerder/Test.cls.xml
===================================================================
diff -u -r49801 -r49803
--- vhUnitTest/CHUI/VKP/OrderIngave/OrderMarkeerder/Test.cls.xml	(.../Test.cls.xml)	(revision 49801)
+++ vhUnitTest/CHUI/VKP/OrderIngave/OrderMarkeerder/Test.cls.xml	(.../Test.cls.xml)	(revision 49803)
@@ -28,12 +28,14 @@
 	#dim RandomIndex As %String = "RandomIndex"
 	#dim RandomKlantNummer As %String = "RandomKlantNummer"
 	#dim RandomOrderNummer As %String = "RandomOrderNummer"
+	#dim RandomVerzendWijze As %String = "RandomVerzendWijze"
 	#dim IsOrderGemarkeerd As %Boolean = $$$False
 	
 	#dim HelperMock As vhTest.Mock.CHUI.VKP.OrderIngave.OrderMarkeerder.Helper = ##class(vhTest.Mock.CHUI.VKP.OrderIngave.OrderMarkeerder.Helper).%New()
 	Do HelperMock.VerwachtMethodCall("IsOrderGemarkeerd", RandomIndex, RandomKlantNummer, RandomOrderNummer).DanReturn(IsOrderGemarkeerd)
 	Do HelperMock.VerwachtMethodCall("IsMagazijnBeschikbaar", RandomOrderNummer).DanReturn($$$True)
-	Do HelperMock.VerwachtMethodCall("MarkeerOrder", RandomOrderNummer, IsOrderGemarkeerd).DanDoeNiks()
+	Do HelperMock.VerwachtMethodCall("GeefDefaultVerzendWijze", RandomKlantNummer, RandomOrderNummer).DanReturn(RandomVerzendWijze)
+	Do HelperMock.VerwachtMethodCall("MarkeerOrder", RandomOrderNummer, IsOrderGemarkeerd, RandomVerzendWijze).DanDoeNiks()
 	
 	#dim OrderMarkeerder As CHUI.VKP.OrderIngave.OrderMarkeerder = ##class(CHUI.VKP.OrderIngave.OrderMarkeerder).%New(HelperMock)
 	#dim IsVolledigOrder As %Boolean = OrderMarkeerder.IsVolledigOrder(RandomIndex, RandomKlantNummer, RandomOrderNummer)
Index: vhTest/Mock/CHUI/VKP/OrderIngave/OrderMarkeerder/Helper.cls.xml
===================================================================
diff -u -r49801 -r49803
--- vhTest/Mock/CHUI/VKP/OrderIngave/OrderMarkeerder/Helper.cls.xml	(.../Helper.cls.xml)	(revision 49801)
+++ vhTest/Mock/CHUI/VKP/OrderIngave/OrderMarkeerder/Helper.cls.xml	(.../Helper.cls.xml)	(revision 49803)
@@ -8,6 +8,13 @@
 <Super>CHUI.VKP.OrderIngave.OrderMarkeerder.Helper,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="GeefDefaultVerzendWijze">
+<FormalSpec>KlantNummer:%String,OrderNummer:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefDefaultVerzendWijze",KlantNummer,OrderNummer)
+]]></Implementation>
+</Method>
+
 <Method name="IsMagazijnBeschikbaar">
 <FormalSpec>OrderNummer:%Integer</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
@@ -29,8 +36,8 @@
 </Method>
 
 <Method name="MarkeerOrder">
-<FormalSpec>OrderNummer:%Integer,Marked:%Boolean</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("MarkeerOrder",OrderNummer,Marked)
+<FormalSpec>OrderNummer:%Integer,Marked:%Boolean,VerzW:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("MarkeerOrder",OrderNummer,Marked,VerzW)
 ]]></Implementation>
 </Method>
 </Class>
Index: CHUI/VKP/OrderIngave/OrderMarkeerder/Helper.cls.xml
===================================================================
diff -u -r49801 -r49803
--- CHUI/VKP/OrderIngave/OrderMarkeerder/Helper.cls.xml	(.../Helper.cls.xml)	(revision 49801)
+++ CHUI/VKP/OrderIngave/OrderMarkeerder/Helper.cls.xml	(.../Helper.cls.xml)	(revision 49803)
@@ -23,8 +23,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDefaultVerzendWijze">
+<FormalSpec>KlantNummer:%String,OrderNummer:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Piece($$DEFAULT^KLVERZW(, KlantNummer, OrderNummer), ";")
+]]></Implementation>
+</Method>
+
 <Method name="MarkeerOrder">
-<FormalSpec>OrderNummer:%Integer,Marked:%Boolean</FormalSpec>
+<FormalSpec>OrderNummer:%Integer,Marked:%Boolean,VerzW:%String</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	Do ##class(Tools.Wlip).%New(42).String("MarkeerOrder:::" _ LD("SELECT") _ "|||||" _ %J _ "|||||" _ KLNr _ "|||||" _ ORDNr _ "|||||" _ OrderNummer)
@@ -34,11 +41,10 @@
 	Set Ref = LD("SELECT")
 	Set StartRef = Ref
 	
-	new R, IsNodigControleerBezwaren, GaVerder, VerzW
+	new R, IsNodigControleerBezwaren, GaVerder
 	New OLNr, Quit, OLUNr, AskLink
 	
 	Set R = ^KOD(KLNr, "F", ORDNr, 1)
-	Set VerzW = $Piece($$DEFAULT^KLVERZW(, KLNr, ORDNr), ";")
 
 	If '$D(^HULP(%J,KLNr,"M")),VerzW'=$P($G(^HULP(%J,KLNr,"V")),D) Do MODVERZW^EWORDS(VerzW)
 	
Index: CHUI/VKP/OrderIngave/OrderMarkeerder.cls.xml
===================================================================
diff -u -r49801 -r49803
--- CHUI/VKP/OrderIngave/OrderMarkeerder.cls.xml	(.../OrderMarkeerder.cls.xml)	(revision 49801)
+++ CHUI/VKP/OrderIngave/OrderMarkeerder.cls.xml	(.../OrderMarkeerder.cls.xml)	(revision 49803)
@@ -35,7 +35,9 @@
 	}
 	
 	If (MagMarkeren) {		
-		Do ..Helper.MarkeerOrder(OrderNummer, IsOrderGemarkeerd)
+		#dim DefaultVerzendWijze As %String = ..Helper.GeefDefaultVerzendWijze(KlantNummer, OrderNummer)
+		
+		Do ..Helper.MarkeerOrder(OrderNummer, IsOrderGemarkeerd, DefaultVerzendWijze)
 	} Else {
 		Set IsVolledigOrder = $$$False	
 	}
Index: vhTest/Fake/CHUI/VKP/OrderIngave/OrderMarkeerder/Helper.cls.xml
===================================================================
diff -u -r49801 -r49803
--- vhTest/Fake/CHUI/VKP/OrderIngave/OrderMarkeerder/Helper.cls.xml	(.../Helper.cls.xml)	(revision 49801)
+++ vhTest/Fake/CHUI/VKP/OrderIngave/OrderMarkeerder/Helper.cls.xml	(.../Helper.cls.xml)	(revision 49803)
@@ -7,6 +7,13 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>CHUI.VKP.OrderIngave.OrderMarkeerder.Helper</Super>
 
+<Method name="GeefDefaultVerzendWijze">
+<FormalSpec>KlantNummer:%String,OrderNummer:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="IsMagazijnBeschikbaar">
 <FormalSpec>OrderNummer:%Integer</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
@@ -28,8 +35,9 @@
 </Method>
 
 <Method name="MarkeerOrder">
-<FormalSpec>OrderNummer:%Integer,Marked:%Boolean</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<FormalSpec>OrderNummer:%Integer,Marked:%Boolean,VerzW:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 </Class>