TECH.RegisteredObject AXif.Dynamics.Inventory.MessageParts.AxdEntityHeader 1 DOM.VKP.impl.DataM.DataMOrderAPI 1 Flow.OrderWMS.HoofdingRepository 1 AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper 1 DataMOrderApi:DOM.VKP.impl.DataM.DataMOrderAPI,OrderWMSHoofdingRepository:Flow.OrderWMS.HoofdingRepository="",PakbonMagGeboektWordenHelper:AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper="" 1 1 %Status 1 Request:AXimpl.Request,MessageId:%String="" AXif.Dynamics.Inventory.MessageParts (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) Do MessageParts.MessagePart.Header.Insert(..AxdEntityHeader) Quit MessageParts ]]>