Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWorden/Test.cls.xml
===================================================================
diff -u -r59287 -r59583
--- vhUnitTest/AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWorden/Test.cls.xml	(.../Test.cls.xml)	(revision 59287)
+++ vhUnitTest/AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWorden/Test.cls.xml	(.../Test.cls.xml)	(revision 59583)
@@ -28,7 +28,7 @@
 	#dim GeneratePickingCompleetResult As %Boolean = $$$True
 	#dim BonNummer As %String = "LIMA"
 	
-	Do ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWorden.AanduidenAxBerichtPakbonMagGeboektWordenVerzonden).%New().MarkerenAlsVerzonden(GeneratePickingCompleetResult, BonNummer)
+	Do ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper).%New().BonMarkerenAlsVerzonden(GeneratePickingCompleetResult, BonNummer)
 	
 	#dim PieceBerichtVerzonden As %String =  $Piece(^KUL("LAURA","F","LIMA",1),"\",63)
 	
@@ -41,7 +41,7 @@
 	#dim GeneratePickingCompleetResult As %Boolean = $$$False
 	#dim BonNummer As %String = "LIMA"
 	
-	Do ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWorden.AanduidenAxBerichtPakbonMagGeboektWordenVerzonden).%New().MarkerenAlsVerzonden(GeneratePickingCompleetResult, BonNummer)
+	Do ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper).%New().BonMarkerenAlsVerzonden(GeneratePickingCompleetResult, BonNummer)
 	
 	#dim PieceBerichtVerzonden As %String =  $Piece(^KUL("LAURA","F","LIMA",1),"\",63)
 		
Index: AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden.cls.xml
===================================================================
diff -u -r59580 -r59583
--- AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden.cls.xml	(.../BatchJobPakbonMagGeboektWorden.cls.xml)	(revision 59580)
+++ AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden.cls.xml	(.../BatchJobPakbonMagGeboektWorden.cls.xml)	(revision 59583)
@@ -66,26 +66,13 @@
 		#dim Piece63PakbonReedsGeboekt as %String = bon.GeefVlag(63)
 		
 		If ($$$HasLength(Piece63PakbonReedsGeboekt) = 0 ||Piece63PakbonReedsGeboekt = 0) {
-			Quit ..ManualPakbonMagGeboektWordenAfhandelaar(Node3Leverbon)
+			Quit ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper).%New(..EventRaiser, ..OrderApi).ManualPakbonMagGeboektWordenAfhandelaar(Node3Leverbon)
 		}
 	}
 
 	Quit $$$False
 ]]></Implementation>
 </Method>
-
-<Method name="ManualPakbonMagGeboektWordenAfhandelaar">
-<FormalSpec>PakbonNummer:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	Do ..EventRaiser.RaisePakbonMagGeboektWordenEvent(PakbonNummer)
-
- 	Do ##class(vhLib.Logger).%New("AXimpl.Dynamics.InventoryOut.BatchJobPakbonMagGeboektWorden").Info("Pakbon nummer '"_PakbonNummer_"', bericht 'Opnemen in automatische pakbonboeking' verzonden", ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp())
-
- 	Quit $$$True
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWorden.cls.xml
===================================================================
diff -u -r59514 -r59583
--- AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWorden.cls.xml	(.../PakbonMagGeboektWorden.cls.xml)	(revision 59514)
+++ AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWorden.cls.xml	(.../PakbonMagGeboektWorden.cls.xml)	(revision 59583)
@@ -13,7 +13,7 @@
 
 		#dim GeneratePakbonMagGeboektWordenResult As %Boolean = Generator.Generate(Request)
 		
-		Do ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWorden.AanduidenAxBerichtPakbonMagGeboektWordenVerzonden).%New().MarkerenAlsVerzonden(GeneratePakbonMagGeboektWordenResult, PakbonMagGeboektWordenEvent.Data.ConsNr)
+		Do ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper).%New().MarkerenAlsVerzonden(GeneratePakbonMagGeboektWordenResult, PakbonMagGeboektWordenEvent.Data.ConsNr)
 		
 		quit GeneratePakbonMagGeboektWordenResult
 	} Else {
Index: AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWordenHelper.cls.xml
===================================================================
diff -u
--- AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWordenHelper.cls.xml	(revision 0)
+++ AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWordenHelper.cls.xml	(revision 59583)
@@ -0,0 +1,97 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="EventRaiser">
+<Type>DOM.MAG.event.EventRaiser</Type>
+<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,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>
+
+<Method name="AfhandelenBijWijzigenVerzendwijze">
+<FormalSpec>bonnummer:%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 (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)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsVerzendwijzeMetUitgesteldPakbonBoekenAx">
+<FormalSpec>bonnummer:%String,klantnummer:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim VerzendwijzeUitgesteldVersturen As %Boolean = $$$False
+	#dim bon As DOM.VKP.Bon = ..OrderApi.GeefBon(bonnummer)
+	#dim verzendwijzeID As DOM.VKP.enu.VerzendWijze = $$$Trim(bon.GeefVerzendwijze())
+	#dim verzendwijze As DOM.VKP.VerzendWijze = ##class(DOM.VKP.VerzendWijze).OpenId(verzendwijzeID)
+		
+	If ($IsObject(verzendwijze) && $$$IsNotNullOrEmpty(verzendwijze.UitgesteldPakbonBoekenAx))
+	{
+		Set VerzendwijzeUitgesteldVersturen = verzendwijze.UitgesteldPakbonBoekenAx
+	}
+	
+	Quit VerzendwijzeUitgesteldVersturen
+]]></Implementation>
+</Method>
+
+<Method name="ManualPakbonMagGeboektWordenAfhandelaar">
+<FormalSpec>PakbonNummer:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Do ..EventRaiser.RaisePakbonMagGeboektWordenEvent(PakbonNummer)
+
+ 	Do ##class(vhLib.Logger).%New("AXimpl.Dynamics.InventoryOut.BatchJobPakbonMagGeboektWorden").Info("Pakbon nummer '"_PakbonNummer_"', bericht 'Opnemen in automatische pakbonboeking' verzonden", ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp())
+
+ 	Quit $$$True
+]]></Implementation>
+</Method>
+
+<Method name="BonMarkerenAlsVerzonden">
+<FormalSpec>GeneratePickingCompleetResult:%Boolean,Bonnummer:%String</FormalSpec>
+<Implementation><![CDATA[
+	If (GeneratePickingCompleetResult)
+	{
+		#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)
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>