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 @@