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)
 		}