Index: AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden.cls.xml
===================================================================
diff -u -r60837 -r61855
--- AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden.cls.xml	(.../BatchJobPakbonMagGeboektWorden.cls.xml)	(revision 60837)
+++ AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden.cls.xml	(.../BatchJobPakbonMagGeboektWorden.cls.xml)	(revision 61855)
@@ -18,33 +18,60 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OrderWMSHoofdingRepository">
+<Type>Flow.OrderWMS.HoofdingRepository</Type>
+<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=""</FormalSpec>
+<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 ..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 ..Logger.Info("Start Job: BatchJobPakbonMagGeboektWorden")
+	
 	#dim LeverbonnenIterator as TECH.Iterator = ..UitleveringHoofdingRepository.ZoekAlle()
-	if LeverbonnenIterator.HasNext(){
-		#dim HoofdingLeverbon As Flow.Uitlevering.Hoofding = LeverbonnenIterator.Next()
-		Try{			
-			Do ..VerwerkBon(HoofdingLeverbon.BonNr)
+	While LeverbonnenIterator.HasNext(){
+		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 ..Logger.Info("Einde Job: BatchJobPakbonMagGeboektWorden")
 ]]></Implementation>
 </Method>
 
@@ -53,14 +80,28 @@
 <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) {
-			Quit ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper).%New(..EventRaiser, ..OrderApi).ManualPakbonMagGeboektWordenAfhandelaar(LeverbonNummer)
+			#dim BestaatOrder As %Boolean = ..OrderWMSHoofdingRepository.BestaatViaID(Bon.GeefID())
+			Do ..Logger.Info("Bon: "_Bon.GeefID()_" , Order gevonden: "_BestaatOrder)
+	
+			#dim ShippingDate As %String = ""
+			If BestaatOrder {
+				Set ShippingDate = ..OrderWMSHoofdingRepository.GeefViaID(Bon.GeefID()).DueOutTime
+				Do ..Logger.Info("Bon: "_Bon.GeefID()_" , Order gevonden: "_BestaatOrder_"ShippingDate: "_ShippingDate_ "currentHorloge "_##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog())
+			} Else {
+				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 ..PakbonMagGeboektWordenHelper.ManualPakbonMagGeboektWordenAfhandelaar(LeverbonNummer)
+			} Else {
+				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."  )
+			}			
 		}
 	}