Index: KFVZW.mac.rou
===================================================================
diff -u -r29059 -r59593
--- KFVZW.mac.rou	(.../KFVZW.mac.rou)	(revision 29059)
+++ KFVZW.mac.rou	(.../KFVZW.mac.rou)	(revision 59593)
@@ -45,6 +45,7 @@
  Set Datum=-$$INTDATE^vhLib.DataTypes(Datum)
  Set ^KU3(Datum,VerzWijz,UR)=KC_D_US
  Set:$D(^ORDW("D",UR)) $P(^ORDW("D",UR),D,2)=$TR(VerzWijz," ","")
+ Do ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper).%New().AfhandelenBijWijzigenVerzendwijze(UR,VerzWijz)
  Quit
  ;
 KILL(US,R,UR) 
Index: AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWordenHelper.cls.xml
===================================================================
diff -u -r59583 -r59593
--- AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWordenHelper.cls.xml	(.../PakbonMagGeboektWordenHelper.cls.xml)	(revision 59583)
+++ AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWordenHelper.cls.xml	(.../PakbonMagGeboektWordenHelper.cls.xml)	(revision 59593)
@@ -27,22 +27,34 @@
 </Method>
 
 <Method name="AfhandelenBijWijzigenVerzendwijze">
-<FormalSpec>bonnummer:%String</FormalSpec>
+<FormalSpec>bonnummer:%String,nieuweVerzendwijzeID:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim IsVerzendwijzeUitgesteldPakbonBoekenAx As %Boolean = ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PickingCompleet.PakbonMagGeboektWorden).VerzendwijzeUitgesteldPakbonBoekenAx(Node3Leverbon,Node1Klant, ..OrderApi)
-	If IsVerzendwijzeUitgesteldPakbonBoekenAx {
-		Quit $$$False
-	}
-	
 	#dim bon As DOM.VKP.Bon = ..OrderApi.GeefBon(bonnummer)
-	#dim Piece63PakbonReedsGeboekt as %String = bon.GeefVlag(63)
+	
+	If ($IsObject(bon)){
+		#dim klant As %String = $Piece(bon.GeefKlantID(), "||",2)
+		#dim verzendwijze As DOM.VKP.VerzendWijze = ##class(DOM.VKP.VerzendWijze).OpenId(##class(TECH.StringUtils).TrimWhitespaces(nieuweVerzendwijzeID))
+	
+		If verzendwijze.UitgesteldPakbonBoekenAx {
+			Quit $$$False
+		}
 		
-	If (Piece63PakbonReedsGeboekt = 1) {
-		Do ##class(vhLib.Logger).%New().Info("AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper", "Bon: "_bonnummer_", Verzendwijze gewijzigd waarbij het de pakbon in Ax meteen geboekt mag worden maar dit werd al op een eerder moment uitgevoerd.")
-	} Else {
-		Quit ..ManualPakbonMagGeboektWordenAfhandelaar(Node3Leverbon)
+		#dim Piece63PakbonReedsGeboekt as %String = bon.GeefVlagHoofding(63)
+		
+		If (Piece63PakbonReedsGeboekt = 1) {
+			Do ##class(vhLib.Logger).%New().Info("AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper", "Bon: "_bonnummer_", Verzendwijze gewijzigd waarbij het de pakbon in Ax meteen geboekt mag worden maar dit werd al op een eerder moment uitgevoerd.")
+			Quit $$$False
+		} Else {
+			Quit ..ManualPakbonMagGeboektWordenAfhandelaar(bonnummer)
+		}
 	}
+	Else {
+		Set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).ObjectExpected(),"Bonnr: "_bonnummer_", bon kan niet worden teruggevonden.")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	Quit $$$False
 ]]></Implementation>
 </Method>
 
@@ -84,7 +96,6 @@
 		#dim bon As DOM.VKP.Bon = ..OrderApi.GeefBon(Bonnummer)
 		
 		If ($IsObject(bon)){
-			#dim bonnr As %String = bon.GeefID()
 			#dim klant As %String = $Piece(bon.GeefKlantID(), "||",2)	
 			Do bon.ZetVlag(63, $$$True)
 		}
Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWordenHelper/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWordenHelper/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWordenHelper/Test.cls.xml	(revision 59593)
@@ -0,0 +1,106 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Do ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper).%New().AfhandelenBijWijzigenVerzendwijze(UR,VerzWijz) 
+
+]]></Content>
+</UDLText>
+
+<Method name="Test AfhandelenBijWijzigenVerzendwijze - piece63 leeg - geen uitgesteldpakbonboeken verzendwijze - Triggeren PakbonmaggeboektWordenEvent">
+<Implementation><![CDATA[
+	#dim boolValue As %Boolean = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("MagWordenUitgevoerd_EventHandler_PakbonMagGeboektWorden")
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("MagWordenUitgevoerd_EventHandler_PakbonMagGeboektWorden", $$$True)
+	
+	#dim verzendwijze As %String = ##class(DOM.VKP.enu.VerzendWijze).Expediteur()
+	#dim piece63Waarde as %string  = "0"
+	#dim aantalKeerPakbonEvent As %Integer = 1
+	#dim verwachtResultaat = $$$True
+	
+	Do ..AssertTrueRaisePakbonMagGeboektWordenEvent(verzendwijze, aantalKeerPakbonEvent, piece63Waarde,verwachtResultaat)
+
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("MagWordenUitgevoerd_EventHandler_PakbonMagGeboektWorden", boolValue)
+]]></Implementation>
+</Method>
+
+<Method name="Test AfhandelenBijWijzigenVerzendwijze - piece63 true - geen uitgesteldpakbonboeken verzendwijze - Niet triggeren PakbonmaggeboektWordenEvent">
+<Implementation><![CDATA[
+	#dim boolValue As %Boolean = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("MagWordenUitgevoerd_EventHandler_PakbonMagGeboektWorden")
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("MagWordenUitgevoerd_EventHandler_PakbonMagGeboektWorden", $$$True)
+	
+	#dim verzendwijze As %String = ##class(DOM.VKP.enu.VerzendWijze).Expediteur()
+	#dim piece63Waarde as %string  = "1"
+	#dim aantalKeerPakbonEvent As %Integer = 0
+	#dim verwachtResultaat = $$$False
+	
+	Do ..AssertTrueRaisePakbonMagGeboektWordenEvent(verzendwijze, aantalKeerPakbonEvent, piece63Waarde,verwachtResultaat)
+
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("MagWordenUitgevoerd_EventHandler_PakbonMagGeboektWorden", boolValue)
+]]></Implementation>
+</Method>
+
+<Method name="Test AfhandelenBijWijzigenVerzendwijze - uitgesteldpakbonboeken verzendwijze - Niet triggeren PakbonmaggeboektWordenEvent">
+<Implementation><![CDATA[
+	#dim CONSNr As %String = "LIMA"
+	#dim verzendwijze As %String = ##class(DOM.VKP.enu.VerzendWijze).Distributeur1()
+	
+	Set $piece(^KUL("LAURA","F","LIMA",1),"\",7)= verzendwijze_"#Distributeur - GLS"
+	Set bonMock = ##class(vhTest.Mock.DOM.VKP.Bon).%New()
+	Set OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	
+	Do OrderApiStub.IndienMethodCall("GeefBon","LIMA").DanReturn(bonMock)
+	Do bonMock.VerwachtMethodCall("GeefKlantID").DanReturn("LAURA").ExactAantalKeer(1)
+	Do bonMock.VerwachtMethodCall("GeefVlag", 63).ExactAantalKeer(0)
+		
+	#dim EventRaiserMock As DOM.MAG.event.EventRaiser = ##class(vhTest.Mock.DOM.MAG.event.EventRaiser).%New()
+	Do EventRaiserMock.VerwachtMethodCall("RaisePakbonMagGeboektWordenEvent", CONSNr).ExactAantalKeer(0)
+
+	#dim result As %Boolean = ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper).%New(EventRaiserMock,OrderApiStub).AfhandelenBijWijzigenVerzendwijze(CONSNr,verzendwijze) 
+	Do ##class(Tools.Wlip).%New(43).String("result '"_result_"'")
+	
+	Do $$$AssertEquals(result, $$$False)
+	
+	Do EventRaiserMock.Verifieer()
+	Do bonMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// ook test voorzien voor bonnummer exception? Normaal ga bonnummer altijd bestaan anders kan je verzendwijze niet veranderen voor een bepaalde bonn ..
+
+]]></Content>
+</UDLText>
+
+<Method name="AssertTrueRaisePakbonMagGeboektWordenEvent">
+<FormalSpec>verzendwijze:%String,aantalKeerPakbonEvent:%Integer,piece63Waarde:%String,verwachtResultaat:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set $piece(^KUL("LAURA","F","LIMA",1),"\",7)= verzendwijze_"#Distributeur - GLS"
+	
+	#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("GeefVlag", 63).DanReturn(piece63Waarde)
+		
+	#dim EventRaiserMock As DOM.MAG.event.EventRaiser = ##class(vhTest.Mock.DOM.MAG.event.EventRaiser).%New()
+	Do EventRaiserMock.VerwachtMethodCall("RaisePakbonMagGeboektWordenEvent", CONSNr).ExactAantalKeer(aantalKeerPakbonEvent)
+
+	#dim result As %Boolean = ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper).%New(EventRaiserMock,OrderApiStub).AfhandelenBijWijzigenVerzendwijze(CONSNr,verzendwijze) 
+	Do ##class(Tools.Wlip).%New(43).String("result '"_result_"'")
+	
+	Do $$$AssertEquals(result, verwachtResultaat)
+	
+	Do EventRaiserMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>