Index: AXimpl/Dynamics/InventoryOut/EventHandler/PickingCompleet/PakbonMagGeboektWorden.cls.xml
===================================================================
diff -u -r59257 -r59569
--- AXimpl/Dynamics/InventoryOut/EventHandler/PickingCompleet/PakbonMagGeboektWorden.cls.xml	(.../PakbonMagGeboektWorden.cls.xml)	(revision 59257)
+++ AXimpl/Dynamics/InventoryOut/EventHandler/PickingCompleet/PakbonMagGeboektWorden.cls.xml	(.../PakbonMagGeboektWorden.cls.xml)	(revision 59569)
@@ -8,14 +8,35 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OrderApi">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Property PakbonMagGeboektWordenHelper As AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper [ Private ];
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Method %OnNew(EventRaiser As DOM.MAG.event.EventRaiser, OrderApi As DOM.VKP.OrderAPI = "", PakbonMagGeboektWordenHelper As AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper = "") As %Status [ Private, ProcedureBlock = 1, ServerOnly = 1 ]
+
+]]></Content>
+</UDLText>
+
 <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())
+	//Set ..PakbonMagGeboektWordenHelper = $$$Inject(PakbonMagGeboektWordenHelper, ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper).%New(..OrderApi))
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -26,11 +47,12 @@
 <Implementation><![CDATA[
 	if (GeneratePickingCompleetResult = $$$True)
 	{
-		#dim bon As %String = CONSNr
-		#dim klant As %String = $Piece($Get(^KU1(bon,"F")),"\",1) 
+		#dim bon As DOM.VKP.Bon = ..OrderApi.GeefBon(CONSNr)
+		#dim klantId As %String = bon.GeefKlantID()
 
-		If (..VerzendwijzeUitgesteldPakbonBoekenAx(bon, klant) = $$$False)
-		{
+		If (..VerzendwijzeUitgesteldPakbonBoekenAx(CONSNr, klantId, ..OrderApi)) {
+			Do ##class(vhLib.Logger).%New("AXimpl.Dynamics.InventoryOut.EventHandler.PickingCompleet.PakbonMagGeboektWorden").Info("Leverbon "_CONSNr_"' voor klant '"_klantId_"' werd reeds gepicked maar zal op een later moment geboekt worden in AX.")
+		}Else {
 			Do ..EventRaiser.RaisePakbonMagGeboektWordenEvent(CONSNr)
 					
 			Quit $$$True
@@ -42,20 +64,17 @@
 
 <Method name="VerzendwijzeUitgesteldPakbonBoekenAx">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>bonnummer:%String,klantnummer:%String</FormalSpec>
+<FormalSpec>bonnummer:%String,klantnummer:%String,orderApi:DOM.VKP.OrderAPI</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim VerzendwijzeUitgesteldVersturen As %Boolean = $$$False
-	#dim VerzendwijzeLong As DOM.VKP.enu.VerzendWijze = $Piece($Get(^KUL(klantnummer,"F",bonnummer,1)),"\",7)
-	
-	#dim VerzendwijzeId As DOM.VKP.enu.VerzendWijze = $Piece(VerzendwijzeLong,"#",1)
-	Set VerzendwijzeId = ##class(TECH.StringUtils).TrimWhitespaces(VerzendwijzeId)
-	
-	#dim verzendwijzeObject As DOM.VKP.VerzendWijze = ##class(DOM.VKP.VerzendWijze).%OpenId(VerzendwijzeId)
-	
-	If ($IsObject(verzendwijzeObject) && '$$$IsEmptyString(verzendwijzeObject.UitgesteldPakbonBoekenAx))
+	#dim bon As DOM.VKP.Bon = orderApi.GeefBon(bonnummer)
+	#dim verzendwijzeID As DOM.VKP.enu.VerzendWijze = ##class(TECH.StringUtils).TrimWhitespaces(bon.GeefVerzendwijze())
+	#dim verzendwijze As DOM.VKP.VerzendWijze = ##class(DOM.VKP.VerzendWijze).OpenId(verzendwijzeID)
+		
+	If ($IsObject(verzendwijze) && $$$IsNotNullOrEmpty(verzendwijze.UitgesteldPakbonBoekenAx))
 	{
-		Set VerzendwijzeUitgesteldVersturen = verzendwijzeObject.UitgesteldPakbonBoekenAx
+		Set VerzendwijzeUitgesteldVersturen = verzendwijze.UitgesteldPakbonBoekenAx
 	}
 	
 	Quit VerzendwijzeUitgesteldVersturen
Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/EventHandler/PickingCompleet/PakbonMagGeboektWorden/Test.cls.xml
===================================================================
diff -u -r59283 -r59569
--- vhUnitTest/AXimpl/Dynamics/InventoryOut/EventHandler/PickingCompleet/PakbonMagGeboektWorden/Test.cls.xml	(.../Test.cls.xml)	(revision 59283)
+++ vhUnitTest/AXimpl/Dynamics/InventoryOut/EventHandler/PickingCompleet/PakbonMagGeboektWorden/Test.cls.xml	(.../Test.cls.xml)	(revision 59569)
@@ -28,7 +28,12 @@
 	#dim verzendwijze As %String = ##class(DOM.VKP.enu.VerzendWijze).Expediteur()
 	Set $piece(^KUL("LAURA","F","LIMA",1),"\",7)= verzendwijze_"#Distributeur - GLS"
 	
-	#dim resultaat As %Boolean = ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PickingCompleet.PakbonMagGeboektWorden).VerzendwijzeUitgesteldPakbonBoekenAx("LIMA","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("GeefVerzendwijze").DanReturn(verzendwijze)
+	
+	#dim resultaat As %Boolean = ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PickingCompleet.PakbonMagGeboektWorden).VerzendwijzeUitgesteldPakbonBoekenAx("LIMA","LAURA", OrderApiStub)
 	Do $$$AssertEquals(resultaat, $$$False)
 ]]></Implementation>
 </Method>
@@ -38,7 +43,12 @@
 	#dim verzendwijze As %String = ##class(DOM.VKP.enu.VerzendWijze).OnzeDiensten()
 	Set $piece(^KUL("LAURA","F","LIMA",1),"\",7)= verzendwijze_"#Distributeur - GLS"
 	
-	#dim resultaat As %Boolean = ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PickingCompleet.PakbonMagGeboektWorden).VerzendwijzeUitgesteldPakbonBoekenAx("LIMA","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("GeefVerzendwijze").DanReturn(verzendwijze)
+	
+	#dim resultaat As %Boolean = ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PickingCompleet.PakbonMagGeboektWorden).VerzendwijzeUitgesteldPakbonBoekenAx("LIMA","LAURA", OrderApiStub)
 	Do $$$AssertEquals(resultaat, $$$True)
 ]]></Implementation>
 </Method>
@@ -78,19 +88,60 @@
 <Method name="Test RaisePakbonMagGeboektWordenEvent NIET Triggeren - verzendwijze DI">
 <Implementation><![CDATA[
 	#dim verzendwijze As %String = "DI1 "
-
+	
 	Do ..AssertTrueRaisePakbonMagGeboektWordenEvent(verzendwijze, 0, $$$False)
 ]]></Implementation>
 </Method>
 
-<Method name="Test RaisePakbonMagGeboektWordenEvent Triggeren - FAKE verzendwijze FAKE">
-<Implementation><![CDATA[
-	#dim verzendwijze As %String = "FAKE "
+<UDLText name="T">
+<Content><![CDATA[
+// TODO Deze methode aanpassen en checken of dit een exceptio ngaat gooien? Want FAKE is geen bestaande verzendwijze...
 
-	Do ..AssertTrueRaisePakbonMagGeboektWordenEvent(verzendwijze, 1, $$$True)
-]]></Implementation>
-</Method>
+]]></Content>
+</UDLText>
 
+<UDLText name="T">
+<Content><![CDATA[
+// Method "Test RaisePakbonMagGeboektWordenEvent Triggeren - FAKE verzendwijze FAKE"()
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// {
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// 	#dim verzendwijze As %String = "FAKE "
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// 
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// 	Do ..AssertTrueRaisePakbonMagGeboektWordenEvent(verzendwijze, 1, $$$True)
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// }
+
+]]></Content>
+</UDLText>
+
 <Method name="Test RaisePakbonMagGeboektWordenEvent Triggeren - verzendwijze UitgesteldPakbonBoekenAx niet uigevuld">
 <Implementation><![CDATA[
 	#dim verzendwijze As %String = "FAKE"
@@ -174,10 +225,16 @@
 	#dim GeneratePickingCompleetResult As %Boolean = $$$True
 	#dim CONSNr As %String = "LIMA"
 	
+	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)
+	
 	#dim EventRaiserMock As DOM.MAG.event.EventRaiser = ##class(vhTest.Mock.DOM.MAG.event.EventRaiser).%New()
 	Do EventRaiserMock.VerwachtMethodCall("RaisePakbonMagGeboektWordenEvent", CONSNr).ExactAantalKeer(aantalKeerPakbonEvent)
 
-	#dim PakbonMagGeboektWordenAfhandelaar As AXimpl.Dynamics.InventoryOut.EventHandler.PickingCompleet.PakbonMagGeboektWorden = ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PickingCompleet.PakbonMagGeboektWorden).%New(EventRaiserMock)
+	#dim PakbonMagGeboektWordenAfhandelaar As AXimpl.Dynamics.InventoryOut.EventHandler.PickingCompleet.PakbonMagGeboektWorden = ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PickingCompleet.PakbonMagGeboektWorden).%New(EventRaiserMock, OrderApiStub)
 	#dim result As %Boolean = PakbonMagGeboektWordenAfhandelaar.RaisePakbonMagGeboektWordenEvent(GeneratePickingCompleetResult, CONSNr)
 	
 	Do $$$AssertEquals(result, verwachtResultaat)