Index: AXimpl/Dynamics/InventoryOut/Converter/PakbonMagGeboektWordenConverter.cls.xml =================================================================== diff -u -r59101 -r59102 --- AXimpl/Dynamics/InventoryOut/Converter/PakbonMagGeboektWordenConverter.cls.xml (.../PakbonMagGeboektWordenConverter.cls.xml) (revision 59101) +++ AXimpl/Dynamics/InventoryOut/Converter/PakbonMagGeboektWordenConverter.cls.xml (.../PakbonMagGeboektWordenConverter.cls.xml) (revision 59102) @@ -13,11 +13,6 @@ 1 - -AX.Uitgaand.PM.impl.IsOngewenstProductInMigratieFilter -1 - - Flow.OrderWMS.HoofdingRepository 1 @@ -32,9 +27,7 @@ @@ -51,29 +44,20 @@ #dim Bon As DOM.VKP.Bon = ..DataMOrderApi.GeefBon(Request.SubjectId) - #dim LijnenIterator As TECH.Iterator = Bon.GeefBonLijnIterator() - while LijnenIterator.HasNext() { - #dim Lijn As DOM.VKP.ProductOrderlijn = LijnenIterator.Next() - Continue:Lijn.GeefAxInventTransId()="" - If Lijn.GeefType()=##class(DOM.VKP.enu.BonLijnType).Product(){ - If $$$Not(..IsOngewenstProductFilter.IsValidProductNummer(Lijn.GeefProductID())) - { - Set Pick = ##class(AXif.Dynamics.Inventory.MessageParts.AxdEntityPick).%New() - 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. - If 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) - } - } + Set Pick = ##class(AXif.Dynamics.Inventory.MessageParts.AxdEntityPick).%New() + 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. + + If 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 Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/PakbonMagGeboektWorden/Convert/Test.cls.xml =================================================================== diff -u -r59101 -r59102 --- vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/PakbonMagGeboektWorden/Convert/Test.cls.xml (.../Test.cls.xml) (revision 59101) +++ vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/PakbonMagGeboektWorden/Convert/Test.cls.xml (.../Test.cls.xml) (revision 59102) @@ -88,8 +88,12 @@