Index: vhTest/Utils/DOM/VKP/BonLijn.cls.xml =================================================================== diff -u -r44763 -r47462 --- vhTest/Utils/DOM/VKP/BonLijn.cls.xml (.../BonLijn.cls.xml) (revision 44763) +++ vhTest/Utils/DOM/VKP/BonLijn.cls.xml (.../BonLijn.cls.xml) (revision 47462) @@ -24,7 +24,9 @@ Index: AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter.cls.xml =================================================================== diff -u -r47311 -r47462 --- AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter.cls.xml (.../PickingCompleetConverter.cls.xml) (revision 47311) +++ AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter.cls.xml (.../PickingCompleetConverter.cls.xml) (revision 47462) @@ -56,6 +56,7 @@ #dim Bon As DOM.VKP.Bon = ..DataMOrderApi.GeefBon(Request.SubjectId) Set DoorTeGevenLijnen = ##class(%ListOfDataTypes).%New() + Set DoorTeGevenIDsLijst = ##class(%ListOfDataTypes).%New() #dim LijnenIterator As TECH.Iterator = Bon.GeefBonLijnIterator() while LijnenIterator.HasNext() { @@ -64,32 +65,37 @@ Set Pick = ##class(AXif.Dynamics.Inventory.MessageParts.AxdEntityPick).%New() Set Pick.class = "entity" - Set Pick.PickId = $Extract(Bon.GeefID()_"_"_Lijn.GeefID()_"_"_$Translate(Lijn.GeefReceptieTijdstip(),",-: ",""),1,20) Set Pick.InventTransId = Lijn.GeefAxInventTransId() - - //als er een AxConfigId en AxMaatwerkGenerischItemId is moeten die gebruikt worden voor het genereren van de InventSync, anders blijft de huidige logica behouden (productid) - Set Pick.Qty = Lijn.GeefAantal() - 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()) Set ..BouwsteenIterator = ..BouwsteenIteratorFactory.Maak(Lijn.GeefProductID()) While ..BouwsteenIterator.HasNext(){ #dim Bouwsteen As AXimpl.Admin.DOM.PM.Bouwsteen = ..BouwsteenIterator.Next() + 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,","))) + #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() { + While Iterator.HasNext() { Do ..AxdEntityHeader.InventSync.Insert(Iterator.Next()) } } catch {