Index: AXimpl/Dynamics/InventoryOut/Converter/PakbonMagGeboektWordenConverter.cls.xml
===================================================================
diff -u -r59102 -r64425
--- AXimpl/Dynamics/InventoryOut/Converter/PakbonMagGeboektWordenConverter.cls.xml	(.../PakbonMagGeboektWordenConverter.cls.xml)	(revision 59102)
+++ AXimpl/Dynamics/InventoryOut/Converter/PakbonMagGeboektWordenConverter.cls.xml	(.../PakbonMagGeboektWordenConverter.cls.xml)	(revision 64425)
@@ -18,15 +18,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="PakbonMagGeboektWordenHelper">
+<Type>AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>DataMOrderApi:DOM.VKP.impl.DataM.DataMOrderAPI,OrderWMSHoofdingRepository:Flow.OrderWMS.HoofdingRepository=""</FormalSpec>
+<FormalSpec>DataMOrderApi:DOM.VKP.impl.DataM.DataMOrderAPI,OrderWMSHoofdingRepository:Flow.OrderWMS.HoofdingRepository="",PakbonMagGeboektWordenHelper:AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..DataMOrderApi = $$$Inject(DataMOrderApi, ##class(DOM.DomeinContext).Instance().GeefOrderAPI())
 	Set ..OrderWMSHoofdingRepository = $$$Inject(OrderWMSHoofdingRepository, ##class(Flow.OrderWMS.HoofdingRepository).%New())
+	Set ..PakbonMagGeboektWordenHelper = $$$Inject(PakbonMagGeboektWordenHelper, ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper).%New())
 
 	Quit $$$OK
 ]]></Implementation>
@@ -48,12 +54,34 @@
 	Set Pick.class = "entity"
 	Set Pick.PickId = Bon.GeefID()
 	
-	#dim ShippingDate as %Date = +..OrderWMSHoofdingRepository.GeefViaID(Bon.GeefID()).DueOutTime
-	; Je kan niet in het verleden goederen verzenden die vandaag geraapt zijn.
+	#dim ShippingDate as %Date
+
+	/*#dim BestaatOrder As %Boolean = ..OrderWMSHoofdingRepository.BestaatViaID(Bon.GeefID())
+	Do ##class(vhLib.Logger).%New("").Info("PickingCompleetConverter bon: "_Pick.PickId_" , Order gevonden: "_BestaatOrder)
 	
-	If ShippingDate<+##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog() {
-		Set ShippingDate=+##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
+	If $$$Not(BestaatOrder) {
+		Do ##class(vhLib.Logger).%New("").Warning("PickingCompleetConverter bon: "_Pick.PickId_" , Order record niet gevonden, DueOutTime meegestuurd op datum vandaag.")
+		Set ShippingDate =+##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
+	}Else {
+		Set ShippingDate = +..OrderWMSHoofdingRepository.GeefViaID(Bon.GeefID()).DueOutTime
+		; Je kan niet in het verleden goederen verzenden die vandaag geraapt zijn.
+		If ShippingDate<+##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog() {
+			Do ##class(vhLib.Logger).%New("").Warning("PickingCompleetConverter - ShippingDate in verleden",
+			"ShippingDate in PickingCompleet-bericht was '"_ ShippingDate _ "', wordt gezet op '" _ +##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog() _ "'."
+			_ "MessageId='" _ MessageId _ "', Bonnummer='" _ Bon.GeefID() _ "'.")
+			Set ShippingDate=+##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
+		}
+		; Door vreemde kronkels geraakt soms een datum van 1 of 2 maanden in de toekomst als pickingdatum in ^ORDW. Dat is probleem voor facturatie en voorraad-boekingen.
+		If ShippingDate > (10 + +##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()) {
+			Do ##class(vhLib.Logger).%New("").Warning("PickingCompleetConverter - ShippingDate in toekomst",
+			"ShippingDate in PickingCompleet-bericht was '"_ ShippingDate _ "', wordt gezet op '" _ +##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog() _ "'."
+			_ "MessageId='" _ MessageId _ "', Bonnummer='" _ Bon.GeefID() _ "'.")
+			Set ShippingDate=+##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
+		}
 	}
+	*/
+	
+	Set ShippingDate=+##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
 	Set Pick.ShippingDate = ##class(TECH.DateTime).HorologToDate(ShippingDate)
 	
 	Do ..AxdEntityHeader.Pick.Insert(Pick)