Index: AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWordenHelper.cls.xml
===================================================================
diff -u -r60828 -r64460
--- AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWordenHelper.cls.xml	(.../PakbonMagGeboektWordenHelper.cls.xml)	(revision 60828)
+++ AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWordenHelper.cls.xml	(.../PakbonMagGeboektWordenHelper.cls.xml)	(revision 64460)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.RegisteredObject,TECH.Mockable</Super>
 
 <Property name="EventRaiser">
 <Type>DOM.MAG.event.EventRaiser</Type>
@@ -33,7 +33,7 @@
 	#dim Bon As DOM.VKP.Bon = ..OrderApi.GeefBon(Bonnummer)
 	
 	If ($IsObject(Bon)){
-		#dim Verzendwijze As DOM.VKP.VerzendWijze = ##class(DOM.VKP.VerzendWijze).OpenId(##class(TECH.StringUtils).TrimWhitespaces(NieuweVerzendwijzeID))
+		#dim Verzendwijze As DOM.VKP.VerzendWijze = ##class(DOM.VKP.VerzendWijze).OpenId($Piece(##class(TECH.StringUtils).TrimWhitespaces(NieuweVerzendwijzeID),";"))
 	
 		If Verzendwijze.UitgesteldPakbonBoekenAx {
 			Quit $$$False
@@ -63,9 +63,10 @@
 <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)
+	#dim VerzendwijzeID As DOM.VKP.enu.VerzendWijze = $$$Trim(Bon.GeefVerzendwijzeID())
 	
+	#dim Verzendwijze As DOM.VKP.VerzendWijze = ##class(DOM.VKP.VerzendWijze).OpenId(VerzendwijzeID)
+
 	If ($IsObject(Verzendwijze) && $$$IsNotNullOrEmpty(Verzendwijze.UitgesteldPakbonBoekenAx))
 	{
 		Set VerzendwijzeUitgesteldVersturen = Verzendwijze.UitgesteldPakbonBoekenAx
@@ -100,6 +101,30 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkAfgeslotenTransport">
+<FormalSpec>RitID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhLib.Logger).%New("VerwerkAfgeslotenTransport").Info("Rit nummer '"_RitID_"', bericht 'Opnemen in automatische pakbonboeking' verzenden", ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp())
+	#dim Rit As DOM.TRANSP.impl.DataM.DataMRit =  ##class(DOM.TRANSP.impl.DataM.DataMRit).%New(RitID)
+	#dim LeveringIDIterator As TECH.Iterator = Rit.GeefLeveringIDIterator()
+	
+	while LeveringIDIterator.HasNext() {
+		#dim Levering As DOM.TRANSP.impl.DataM.DataMLevering = ##class(DOM.TRANSP.impl.DataM.DataMLevering).%New(RitID, LeveringIDIterator.Next())
+		Do ##class(vhLib.Logger).%New("VerwerkAfgeslotenTransport").Info("Levering nummer '"_Levering.GeefCode(), ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp())
+		#dim BonIterator  As TECH.Iterator = Levering.GeefBonIterator()
+		while BonIterator.HasNext() {
+			#dim Bon As DOM.VKP.Bon = BonIterator.Next()
+			#dim LeverbonNummer = Bon.GeefID()
+			If (..IsVerzendwijzeMetUitgesteldPakbonBoekenAx(LeverbonNummer)) {
+				Do ##class(vhLib.Logger).%New("VerwerkAfgeslotenTransport").Info("Bon nummer '"_LeverbonNummer, ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp())
+				Do ..ManualPakbonMagGeboektWordenAfhandelaar(LeverbonNummer)
+			}
+		}
+	}
+]]></Implementation>
+</Method>
 </Class>