Index: ULTOER.mac.rou
===================================================================
diff -u -r62359 -r64464
--- ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 62359)
+++ ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 64464)
@@ -710,6 +710,17 @@
  . . Set I=I+1,Transporten(I)=Transport_D_Transport_" | "_Transporteur_" | "_$S(TransportType="T":"Terugname",1:"Levering")
  . Set R=$$WILD^vhPOPUP("C;C","-1O","",.Transporten,$G(DefaultTransport)) Set:zb'="CANC" Transport=$P(R,D)
  If Transport,$$^vhTXTPOP("ULTOER","CLOSETRANSP") Do ##class(BL.Flow.Cons.TransportData).AutoClose(Transport,$G(Print))
+ 
+ If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("MagWordenUitgevoerd_EventHandler_PakbonMagGeboektWorden") {
+	#dim EventRaiser = ##class(DOM.MAG.event.EventRaiser).%New()
+	#dim OrderApi = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
+	#dim PakbonMagGeboektWordenHelper = ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper).%New(EventRaiser,OrderApi)
+		
+	If (PakbonMagGeboektWordenHelper.IsVerzendwijzeMetUitgesteldPakbonBoekenAx(BONNr)) {
+		Do ##class(vhLib.Logger).%New("VerwerkAfgeslotenTransport").Info("Bon nummer '"_BONNr, ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp())
+		Do PakbonMagGeboektWordenHelper.ManualPakbonMagGeboektWordenAfhandelaar(BONNr)
+	}
+}
  Quit
  ;
  ; Afdrukken Levernota's