Index: CHUI/MN/TRANSPCLOE.cls.xml
===================================================================
diff -u -r59933 -r64459
--- CHUI/MN/TRANSPCLOE.cls.xml	(.../TRANSPCLOE.cls.xml)	(revision 59933)
+++ CHUI/MN/TRANSPCLOE.cls.xml	(.../TRANSPCLOE.cls.xml)	(revision 64459)
@@ -25,6 +25,15 @@
 		Do CommunicatieService.ControleerRitVoorBevestiging(RitID)
 			
 		do CLOSVERV^TRANSPC(%J,.SelClose,"OT")
+		
+		If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("MagWordenUitgevoerd_EventHandler_PakbonMagGeboektWorden") {
+			Do ##class(vhLib.Logger).%New("VerwerkAfgeslotenTransport").Info("AfsluitenTransport")
+			#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)
+			Do PakbonMagGeboektWordenHelper.VerwerkAfgeslotenTransport(RitID)
+		}
+		
 	} catch {
 		set Exception = ##class(TECH.ExceptionHandler).Catch("APPS.TRANSP.GLS.Exceptions.CommunicatieException","APPS.TRANSP.Transsmart.Exceptions.CommunicatieException")
 		Do ##class(vhLib.Logger).%New().LogExceptie(Exception)
@@ -45,7 +54,21 @@
 
 <Method name="Ophalen">
 <ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	do CLOSVERV^TRANSPC(%J,.SelClose,"O")
+<Implementation><![CDATA[
+	do CLOSVERV^TRANSPC(%J,.SelClose,"O")
+	
+	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("MagWordenUitgevoerd_EventHandler_PakbonMagGeboektWorden") {
+		Do ##class(vhLib.Logger).%New("VerwerkAfgeslotenTransport").Info("Ophalen")
+		New DataR,RitID
+		Set DataR=^HULP(%J,SelClose("SELECT"))
+		#dim RitID As %String = $P(DataR,"\",21)
+		Do ##class(vhLib.Logger).%New("VerwerkAfgeslotenTransport").Info("Ophalen rit"_RitID)
+		
+		#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)
+		Do PakbonMagGeboektWordenHelper.VerwerkAfgeslotenTransport(RitID)
+	}
 ]]></Implementation>
 </Method>