Index: AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden.cls.xml
===================================================================
diff -u -r61329 -r61855
--- AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden.cls.xml	(.../BatchJobPakbonMagGeboektWorden.cls.xml)	(revision 61329)
+++ AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden.cls.xml	(.../BatchJobPakbonMagGeboektWorden.cls.xml)	(revision 61855)
@@ -23,6 +23,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="PakbonMagGeboektWordenHelper">
+<Type>AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>EventRaiser:DOM.MAG.event.EventRaiser="",OrderApi:DOM.VKP.OrderAPI="",UitleveringHoofdingRepository:Flow.Uitlevering.HoofdingRepository="",OrderWMSHoofdingRepository:Flow.OrderWMS.HoofdingRepository=""</FormalSpec>
 <Private>1</Private>
@@ -32,31 +42,36 @@
 <Implementation><![CDATA[
 	Set ..EventRaiser = $$$Inject(EventRaiser, ##class(DOM.MAG.event.EventRaiser).%New())
 	Set ..OrderApi = $$$Inject(OrderApi, ##class(DOM.DomeinContext).Instance().GeefOrderAPI())
+	Set ..PakbonMagGeboektWordenHelper = ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper).%New(..EventRaiser,..OrderApi)
 	Set ..UitleveringHoofdingRepository = $$$Inject(UitleveringHoofdingRepository,##class(Flow.Uitlevering.HoofdingRepository).%New())
 	Set ..OrderWMSHoofdingRepository = $$$Inject(OrderWMSHoofdingRepository, ##class(Flow.OrderWMS.HoofdingRepository).%New())
+	Set ..Logger = ##class(vhLib.Logger).%New("PakbonMagGeboektWorden")
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkLeverbonnenStuurAxBerichtPakbonMagGeboektWorden">
 <Implementation><![CDATA[
-	Do ##class(vhLib.Logger).%New("PakbonMagGeboektWorden").Info("Start Job: BatchJobPakbonMagGeboektWorden")
+	Do ..Logger.Info("Start Job: BatchJobPakbonMagGeboektWorden")
 	
 	#dim LeverbonnenIterator as TECH.Iterator = ..UitleveringHoofdingRepository.ZoekAlle()
 	While LeverbonnenIterator.HasNext(){
-		#dim HoofdingLeverbon As Flow.Uitlevering.Hoofding = LeverbonnenIterator.Next()
-		
-		Continue:($$$Not(HoofdingLeverbon.FakSoort = "F"))
-		Try{			
-			Do ..VerwerkBon(HoofdingLeverbon.BonNr)
+		Try{
+			#dim HoofdingLeverbon As Flow.Uitlevering.Hoofding = LeverbonnenIterator.Next()		
+			Do:(HoofdingLeverbon.FakSoort = "F") ..VerwerkBon(HoofdingLeverbon.BonNr)
 		} catch {
-			#dim Exceptie as TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()			
+			#dim Exceptie as TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			if $IsObject(HoofdingLeverbon){
+				Do ..Logger.Info("Hoofding Leverbon is object, id = "_HoofdingLeverbon.GeefID())
+			} else {
+				Do ..Logger.Info("Hoofding Leverbon is GEEN object")
+			}
 			Do Exceptie.VoegToeExtraInfo("Er is een fout opgetreden tijden het verwerken van de leverbonnen bij het versturen van het PakbonMagGeboektWorden bericht naar AX.")
-		 	Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+		 	Do ##class(TECH.ExceptionHandler).Rethrow(Exceptie)
 		}
 	}
 	
-	Do ##class(vhLib.Logger).%New("PakbonMagGeboektWorden").Info("Einde Job: BatchJobPakbonMagGeboektWorden")
+	Do ..Logger.Info("Einde Job: BatchJobPakbonMagGeboektWorden")
 ]]></Implementation>
 </Method>
 
@@ -65,29 +80,27 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Set PakbonMagGeboektWordenHelper = ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper).%New(..EventRaiser,..OrderApi)
-	
-	If PakbonMagGeboektWordenHelper.IsVerzendwijzeMetUitgesteldPakbonBoekenAx(LeverbonNummer) {
+	If ..PakbonMagGeboektWordenHelper.IsVerzendwijzeMetUitgesteldPakbonBoekenAx(LeverbonNummer) {
 		#dim Bon As DOM.VKP.Bon = ..OrderApi.GeefBon(LeverbonNummer)
 		#dim Piece63PakbonReedsGeboekt as %String = Bon.IsTweedeBerichtPakbonMagGeboektWordenVerzondenAX()
 
 		If ($$$Not($IsObject(Piece63PakbonReedsGeboekt)) || $$$HasLength(Piece63PakbonReedsGeboekt) = 0 ||Piece63PakbonReedsGeboekt = 0) {
 			#dim BestaatOrder As %Boolean = ..OrderWMSHoofdingRepository.BestaatViaID(Bon.GeefID())
-			Do ##class(vhLib.Logger).%New("").Info("Bon: "_Bon.GeefID()_" , Order gevonden: "_BestaatOrder)
+			Do ..Logger.Info("Bon: "_Bon.GeefID()_" , Order gevonden: "_BestaatOrder)
 	
 			#dim ShippingDate As %String = ""
 			If BestaatOrder {
 				Set ShippingDate = ..OrderWMSHoofdingRepository.GeefViaID(Bon.GeefID()).DueOutTime
-				Do ##class(vhLib.Logger).%New("").Info("Bon: "_Bon.GeefID()_" , Order gevonden: "_BestaatOrder_"ShippingDate: "_ShippingDate_ "currentHorloge "_##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog())
+				Do ..Logger.Info("Bon: "_Bon.GeefID()_" , Order gevonden: "_BestaatOrder_"ShippingDate: "_ShippingDate_ "currentHorloge "_##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog())
 			} Else {
-				Do ##class(vhLib.Logger).%New("").Info("Bon: "_Bon.GeefID()_" , Order niet gevonden: ShippingDate op vandaag gezet")
+				Do ..Logger.Info("Bon: "_Bon.GeefID()_" , Order niet gevonden: ShippingDate op vandaag gezet")
 				Set ShippingDate = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
 			}
 			
 			If (##class(TECH.DateTime).HorologToDate(ShippingDate) = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()) {
-				Quit ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper).%New(..EventRaiser, ..OrderApi).ManualPakbonMagGeboektWordenAfhandelaar(LeverbonNummer)
+				Quit ..PakbonMagGeboektWordenHelper.ManualPakbonMagGeboektWordenAfhandelaar(LeverbonNummer)
 			} Else {
-				Do ##class(vhLib.Logger).%New("").Info("Bon: "_Bon.GeefID()_", Order gevonden maar DueOutTime ("_ShippingDate_") staat niet op vandaag. Het gaat dus om een order dat op voorhand gepicked werd."  )
+				Do ..Logger.Info("Bon: "_Bon.GeefID()_", Order gevonden maar DueOutTime ("_ShippingDate_") staat niet op vandaag. Het gaat dus om een order dat op voorhand gepicked werd."  )
 			}			
 		}
 	}
Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden/SpyImplementatie.cls.xml
===================================================================
diff -u -r61257 -r61855
--- vhUnitTest/AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden/SpyImplementatie.cls.xml	(.../SpyImplementatie.cls.xml)	(revision 61257)
+++ vhUnitTest/AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden/SpyImplementatie.cls.xml	(.../SpyImplementatie.cls.xml)	(revision 61855)
@@ -23,21 +23,6 @@
 <Private>1</Private>
 </Property>
 
-<Method name="%OnNew">
-<FormalSpec>EventRaiser:DOM.MAG.event.EventRaiser="",OrderApi:DOM.VKP.OrderAPI="",UitleveringHoofdingRepository:Flow.Uitlevering.HoofdingRepository="",OrderWMSHoofdingRepository:Flow.OrderWMS.HoofdingRepository=""</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())
-	Set ..UitleveringHoofdingRepository = $$$Inject(UitleveringHoofdingRepository,##class(Flow.Uitlevering.HoofdingRepository).%New())
-	Set ..OrderWMSHoofdingRepository = $$$Inject(OrderWMSHoofdingRepository, ##class(Flow.OrderWMS.HoofdingRepository).%New())
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
 <Method name="VerwerkLeverbonnenStuurAxBerichtPakbonMagGeboektWorden">
 <FormalSpec>bonnummer:%String</FormalSpec>
 <Implementation><![CDATA[	Quit ..VerwerkBon(bonnummer)