Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden/SpyImplementatie.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden/SpyImplementatie.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden/SpyImplementatie.cls.xml	(revision 60837)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Dynamics.InventoryOut.BatchJobPakbonMagGeboektWorden.SpyImplementatie">
+<Super>AXimpl.Dynamics.InventoryOut.BatchJobPakbonMagGeboektWorden</Super>
+
+<Property name="EventRaiser">
+<Type>DOM.MAG.event.EventRaiser</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderApi">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="UitleveringHoofdingRepository">
+<Type>Flow.Uitlevering.HoofdingRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>EventRaiser:DOM.MAG.event.EventRaiser="",OrderApi:DOM.VKP.OrderAPI="",UitleveringHoofdingRepository:Flow.Uitlevering.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())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLeverbonnenStuurAxBerichtPakbonMagGeboektWorden">
+<FormalSpec>bonnummer:%String</FormalSpec>
+<Implementation><![CDATA[	Quit ..VerwerkBon(bonnummer)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden.cls.xml
===================================================================
diff -u -r60832 -r60837
--- AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden.cls.xml	(.../BatchJobPakbonMagGeboektWorden.cls.xml)	(revision 60832)
+++ AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden.cls.xml	(.../BatchJobPakbonMagGeboektWorden.cls.xml)	(revision 60837)
@@ -13,60 +13,54 @@
 <Private>1</Private>
 </Property>
 
+<Property name="UitleveringHoofdingRepository">
+<Type>Flow.Uitlevering.HoofdingRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>EventRaiser:DOM.MAG.event.EventRaiser,OrderApi:DOM.VKP.OrderAPI=""</FormalSpec>
+<FormalSpec>EventRaiser:DOM.MAG.event.EventRaiser="",OrderApi:DOM.VKP.OrderAPI="",UitleveringHoofdingRepository:Flow.Uitlevering.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())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkLeverbonnenStuurAxBerichtPakbonMagGeboektWorden">
 <Implementation><![CDATA[
-	Do ##class(vhLib.Logger).%New("AXimpl.Dynamics.InventoryOut.BatchJobPakbonMagGeboektWorden").Info("START job VerwerkLeverbonnenStuurAxBerichtPakbonMagGeboektWorden",##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp())
-	#dim Node1Klant As %Integer = 0
-	#dim Node3Leverbon As %Integer = 0
-	#dim Node4 As %Integer = 0
-	#dim Data As %String = ""
-	#dim Piece63PakbonReedsGeboekt As %String = ""
-	
-	While $$$HasLength($Order(^KUL(Node1Klant))) {
-		Set Node1Klant = $Order(^KUL(Node1Klant))
-		While $$$HasLength($Order(^KUL(Node1Klant,"F",Node3Leverbon))) {
-			Set Node3Leverbon = $Order(^KUL(Node1Klant,"F",Node3Leverbon))
-			While $$$HasLength($Order(^KUL(Node1Klant,"F",Node3Leverbon,Node4))) {
-				Set Node4 = $Order(^KUL(Node1Klant,"F",Node3Leverbon,Node4))
-				If Node4 = 1 {
-					Do ..VerwerkBon(Node3Leverbon)
-				}
-			}
-			Set Node4 = 0
+	#dim LeverbonnenIterator as TECH.Iterator = ..UitleveringHoofdingRepository.ZoekAlle()
+	if LeverbonnenIterator.HasNext(){
+		#dim HoofdingLeverbon As Flow.Uitlevering.Hoofding = LeverbonnenIterator.Next()
+		Try{			
+			Do ..VerwerkBon(HoofdingLeverbon.BonNr)
+		} catch {
+			#dim Exceptie as TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()			
+			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)
 		}
-		Set Node3Leverbon = 0
 	}
-	
-	Do ##class(vhLib.Logger).%New("AXimpl.Dynamics.InventoryOut.BatchJobPakbonMagGeboektWorden").Info("EINDE job VerwerkLeverbonnenStuurAxBerichtPakbonMagGeboektWorden",##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp())
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkBon">
-<FormalSpec>Node3Leverbon:%String</FormalSpec>
+<FormalSpec>LeverbonNummer:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	Set PakbonMagGeboektWordenHelper = ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper).%New(..EventRaiser,..OrderApi)
 	
-	If PakbonMagGeboektWordenHelper.IsVerzendwijzeMetUitgesteldPakbonBoekenAx(Node3Leverbon) {
-		#dim Bon As DOM.VKP.Bon = ..OrderApi.GeefBon(Node3Leverbon)
+	If PakbonMagGeboektWordenHelper.IsVerzendwijzeMetUitgesteldPakbonBoekenAx(LeverbonNummer) {
+		#dim Bon As DOM.VKP.Bon = ..OrderApi.GeefBon(LeverbonNummer)
 		#dim Piece63PakbonReedsGeboekt as %String = Bon.IsTweedeBerichtPakbonMagGeboektWordenVerzondenAX()
 		
-		If ($$$HasLength(Piece63PakbonReedsGeboekt) = 0 ||Piece63PakbonReedsGeboekt = 0) {
-			Quit ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper).%New(..EventRaiser, ..OrderApi).ManualPakbonMagGeboektWordenAfhandelaar(Node3Leverbon)
+		If ($$$Not($IsObject(Piece63PakbonReedsGeboekt)) || $$$HasLength(Piece63PakbonReedsGeboekt) = 0 ||Piece63PakbonReedsGeboekt = 0) {
+			Quit ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper).%New(..EventRaiser, ..OrderApi).ManualPakbonMagGeboektWordenAfhandelaar(LeverbonNummer)
 		}
 	}
 
Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden/Test.cls.xml
===================================================================
diff -u -r60828 -r60837
--- vhUnitTest/AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden/Test.cls.xml	(.../Test.cls.xml)	(revision 60828)
+++ vhUnitTest/AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden/Test.cls.xml	(.../Test.cls.xml)	(revision 60837)
@@ -32,7 +32,7 @@
 
 <Method name="Test KUL record - piece 63 niet ingevuld - verzendwijze uitgesteld versturen - event triggeren">
 <Implementation><![CDATA[
-	Set ^KUL("LAURA","F","LIMA",1) = "\08.01.20\\\\LAURA\OD #Distributeur - GLS\"
+	Set ^KUL("LAURA","F","LIMA",1) = "\08.01.20\\\\LAURA\OD #Distributeur - GLS\"      
     
     Do ..AssertVerwerkRecord(1, $$$True, 0,##class(DOM.VKP.enu.VerzendWijze).OnzeDiensten())
 ]]></Implementation>
@@ -50,6 +50,7 @@
 <FormalSpec>AantalKeerPakbonEvent:%Integer,VerwachtResultaat:%Boolean,Piece63waarde:%String,Verzendwijze:DOM.VKP.enu.VerzendWijze</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	
 	#dim Node3Leverbon As %String = "LIMA"
 	
 	Set BonStub = ##class(vhTest.Mock.DOM.VKP.Bon).%New()
@@ -61,9 +62,11 @@
 	
 	#dim EventRaiserMock As DOM.MAG.event.EventRaiser = ##class(vhTest.Mock.DOM.MAG.event.EventRaiser).%New()
 	Do EventRaiserMock.VerwachtMethodCall("RaisePakbonMagGeboektWordenEvent", Node3Leverbon).ExactAantalKeer(AantalKeerPakbonEvent)
-
-	#dim Resultaat As %String = ##class(AXimpl.Dynamics.InventoryOut.BatchJobPakbonMagGeboektWorden).%New(EventRaiserMock, OrderApiStub).VerwerkBon(Node3Leverbon)
-			
+	
+	Set spyklasse = ##class(vhUnitTest.AXimpl.Dynamics.InventoryOut.BatchJobPakbonMagGeboektWorden.SpyImplementatie).%New(EventRaiserMock,OrderApiStub)
+	#dim Resultaat As %String = spyklasse.VerwerkLeverbonnenStuurAxBerichtPakbonMagGeboektWorden(Node3Leverbon)
+	
+	
     Do $$$AssertEquals(Resultaat, VerwachtResultaat)
     Do EventRaiserMock.Verifieer()
 ]]></Implementation>