TECH.RegisteredObject AXif.Dynamics.Inventory.MessageParts.AxdEntityHeader 1 AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter 1 DOM.VKP.impl.DataM.DataMOrderAPI 1 AXimpl.Admin.DOM.PM.BouwsteenIterator 1 AXimpl.Dynamics.InventoryOut.Converter.BouwsteenIteratorFactory 1 AX.Uitgaand.PM.impl.IsOngewenstProductInMigratieFilter 1 Flow.OrderWMS.HoofdingRepository 1 DOM.PM.ProductTypeAPI 1 AXimpl.Dynamics.InventoryOut.Converter.SpaceTowerService 1 InventoryOutConverter:AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter,DataMOrderApi:DOM.VKP.impl.DataM.DataMOrderAPI,BouwsteenIteratorFactory:AXimpl.Dynamics.InventoryOut.Converter.BouwsteenIteratorFactory,OrderWMSHoofdingRepository:Flow.OrderWMS.HoofdingRepository="",ProductTypeApi:DOM.PM.impl.ProductTypeAPIimpl="",SpaceTowerService:AXimpl.Dynamics.InventoryOut.Converter.SpaceTowerService="" 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 Pick.ShippingDate = ##class(TECH.DateTime).HorologToDate(ShippingDate) If $$$Not(Pick.Qty = 0) { Do ..AxdEntityHeader.Pick.Insert(Pick) } Set AXids = ##class(AXimpl.Dynamics.InventoryOut.Converter.dto.AXids).%New() Set AXids.AxConfigId = Lijn.GeefAxConfigId() Set AXids.AxInventTransId = Lijn.GeefAxInventTransId() Set AXids.AxMaatwerkGenerischItemId = Lijn.GeefAxMaatwerkGenerischItemId() Set AXids.ProductId = Lijn.GeefProductID() Do DoorTeGevenIDsLijst.Insert(AXids) Do DoorTeGevenLijnen.Insert(Lijn.GeefProductID()) } If ..ProductTypeApi.IsSpaceTowerProduct(Lijn.GeefProductID()) { Set ..BouwsteenIterator = ..SpaceTowerService.GeefSpaceTowerBouwsteenIterator(Lijn.GeefProductID()) } Else { Set ..BouwsteenIterator = ..BouwsteenIteratorFactory.Maak(Lijn.GeefProductID()) } While ..BouwsteenIterator.HasNext(){ #dim Bouwsteen As AXimpl.Admin.DOM.PM.Bouwsteen = ..BouwsteenIterator.Next() If $$$Not(..IsOngewenstProductFilter.IsValidProductNummer(Bouwsteen.ProductId)) { Set AXids = ##class(AXimpl.Dynamics.InventoryOut.Converter.dto.AXids).%New() Set AXids.ProductId = Bouwsteen.ProductId Do DoorTeGevenIDsLijst.Insert(AXids) Do DoorTeGevenLijnen.Insert(Bouwsteen.ProductId) } } } } try { #dim InventSyncItems As AXif.Dynamics.Inventory.MessageParts = ..InventoryOutConverter.Convert(##class(AXimpl.Request).%New("Inventory/Update",##class(TECH.ListUtils).ListToPieces(DoorTeGevenLijnen,","),DoorTeGevenIDsLijst)) Set Iterator = ##class(TECH.ListIterator).%New(InventSyncItems.MessagePart.Header.GetAt(1).InventSync) While Iterator.HasNext() { Do ..AxdEntityHeader.InventSync.Insert(Iterator.Next()) } } catch { #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() } Set ADUMsgOutboundInQuery = ##class(AXif.Dynamics.Inventory.MessageParts.AxdADUMsgOutboundInQuery).%New() Set MessageParts.MessagePart = ADUMsgOutboundInQuery Do MessageParts.MessagePart.Header.Insert(..AxdEntityHeader) Quit MessageParts ]]>