Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden/Test.cls.xml
===================================================================
diff -u -r59513 -r59580
--- vhUnitTest/AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden/Test.cls.xml	(.../Test.cls.xml)	(revision 59513)
+++ vhUnitTest/AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden/Test.cls.xml	(.../Test.cls.xml)	(revision 59580)
@@ -26,37 +26,44 @@
 <Implementation><![CDATA[
 	Set ^KUL("LAURA","F","LIMA",1) = "\08.01.20\\\\LAURA\OD #Distributeur - GLS\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\1"
 	
-    Do ..AssertVerwerkRecord(0, $$$False)
+    Do ..AssertVerwerkRecord(0, $$$False, "1", ##class(DOM.VKP.enu.VerzendWijze).OnzeDiensten())
 ]]></Implementation>
 </Method>
 
 <Method name="Test KUL record - piece 63 niet ingevuld - verzendwijze uitgesteld versturen - event triggeren">
 <Implementation><![CDATA[
 	Set ^KUL("LAURA","F","LIMA",1) = "\08.01.20\\\\LAURA\OD #Distributeur - GLS\"
     
-    Do ..AssertVerwerkRecord(1, $$$True)
+    Do ..AssertVerwerkRecord(1, $$$True, 0,##class(DOM.VKP.enu.VerzendWijze).OnzeDiensten())
 ]]></Implementation>
 </Method>
 
 <Method name="Test KUL record - piece 63 niet ingevuld - verzendwijze niet uitgesteld versturen - event niet triggeren">
 <Implementation><![CDATA[
 	Set ^KUL("LAURA","F","LIMA",1) = "\08.01.20\\\\LAURA\AFH #Distributeur - GLS\"
     
-    Do ..AssertVerwerkRecord(0, $$$False)
+    Do ..AssertVerwerkRecord(0, $$$False, 0, ##class(DOM.VKP.enu.VerzendWijze).Afhaling())
 ]]></Implementation>
 </Method>
 
 <Method name="AssertVerwerkRecord">
-<FormalSpec>aantalKeerPakbonEvent:%Integer,verwachtResultaat:%Boolean</FormalSpec>
+<FormalSpec>aantalKeerPakbonEvent:%Integer,verwachtResultaat:%Boolean,piece63waarde:%String,verzendwijze:DOM.VKP.enu.VerzendWijze</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim Node3Leverbon As %String = "LIMA"
 	#dim Node1Klant  As %String = "LAURA"
 	
+	Set bonStub = ##class(vhTest.Mock.DOM.VKP.Bon).%New()
+	Set OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do OrderApiStub.IndienMethodCall("GeefBon","LIMA").DanReturn(bonStub)
+	Do bonStub.IndienMethodCall("GeefKlantID").DanReturn("LAURA")
+	Do bonStub.IndienMethodCall("GeefVerzendwijze").DanReturn(verzendwijze)
+	Do bonStub.IndienMethodCall("GeefVlag", 63).DanReturn(piece63waarde)
+	
 	#dim EventRaiserMock As DOM.MAG.event.EventRaiser = ##class(vhTest.Mock.DOM.MAG.event.EventRaiser).%New()
 	Do EventRaiserMock.VerwachtMethodCall("RaisePakbonMagGeboektWordenEvent", Node3Leverbon).ExactAantalKeer(aantalKeerPakbonEvent)
 
-	#dim resultaat As %String = ##class(AXimpl.Dynamics.InventoryOut.BatchJobPakbonMagGeboektWorden).%New(EventRaiserMock).VerwerkBon(Node3Leverbon, Node1Klant)
+	#dim resultaat As %String = ##class(AXimpl.Dynamics.InventoryOut.BatchJobPakbonMagGeboektWorden).%New(EventRaiserMock, OrderApiStub).VerwerkBon(Node3Leverbon, Node1Klant)
 			
     Do $$$AssertEquals(resultaat, verwachtResultaat)
     Do EventRaiserMock.Verifieer()
Index: AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden.cls.xml
===================================================================
diff -u -r59513 -r59580
--- AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden.cls.xml	(.../BatchJobPakbonMagGeboektWorden.cls.xml)	(revision 59513)
+++ AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden.cls.xml	(.../BatchJobPakbonMagGeboektWorden.cls.xml)	(revision 59580)
@@ -8,14 +8,20 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OrderApi">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>EventRaiser:DOM.MAG.event.EventRaiser</FormalSpec>
+<FormalSpec>EventRaiser:DOM.MAG.event.EventRaiser,OrderApi:DOM.VKP.OrderAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..EventRaiser = $$$Inject(EventRaiser, ##class(DOM.MAG.event.EventRaiser).%New())
+	Set ..OrderApi = $$$Inject(OrderApi, ##class(DOM.DomeinContext).Instance().GeefOrderAPI())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -54,17 +60,16 @@
 <FormalSpec>Node3Leverbon:%String,Node1Klant:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim IsVerzendwijzeUitgesteldPakbonBoekenAx As %Boolean = ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PickingCompleet.PakbonMagGeboektWorden).VerzendwijzeUitgesteldPakbonBoekenAx(Node3Leverbon,Node1Klant)
+	#dim IsVerzendwijzeUitgesteldPakbonBoekenAx As %Boolean = ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PickingCompleet.PakbonMagGeboektWorden).VerzendwijzeUitgesteldPakbonBoekenAx(Node3Leverbon,Node1Klant, ..OrderApi)
 	If IsVerzendwijzeUitgesteldPakbonBoekenAx {
-		Do ##class(Tools.Wlip).%New(43).String("check")
-		#dim DataRecord As %String = ^KUL(Node1Klant,"F",Node3Leverbon,1)
-		Do ##class(Tools.Wlip).%New(43).String(DataRecord)
-		Set Piece63PakbonReedsGeboekt = $Piece(DataRecord,"\",63)
-		If ($$$Not($$$HasLength(Piece63PakbonReedsGeboekt))) {
+		#dim bon As DOM.VKP.Bon = ..OrderApi.GeefBon(Node3Leverbon)
+		#dim Piece63PakbonReedsGeboekt as %String = bon.GeefVlag(63)
+		
+		If ($$$HasLength(Piece63PakbonReedsGeboekt) = 0 ||Piece63PakbonReedsGeboekt = 0) {
 			Quit ..ManualPakbonMagGeboektWordenAfhandelaar(Node3Leverbon)
 		}
 	}
-	
+
 	Quit $$$False
 ]]></Implementation>
 </Method>