Index: AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter.cls.xml =================================================================== diff -u -r50948 -r51040 --- AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter.cls.xml (.../InventoryInConverter.cls.xml) (revision 50948) +++ AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter.cls.xml (.../InventoryInConverter.cls.xml) (revision 51040) @@ -86,8 +86,13 @@ 1 + +AXimpl.Admin.Common.HerverpakteSoprService +1 + + -ToeleveringAPI:DOM.AKP.ToeleveringAPI,ProductLookup:AXimpl.Admin.Common.ProductBepaler,ReceptieService:APPS.AKP.Receptie.impl.ReceptieService,InventoryOutConverter:AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter,ProductRepository:Prod.ProductRepository,AankoopAPI:DOM.AKP.AankoopAPI,ProductTypeAPI:DOM.PM.ProductTypeAPI,ConversieBezwarenBepaler:AXimpl.Dynamics.InventoryIn.Converter.ConversieBezwarenBepaler,FLOWTOE:BL.Legacy.FLOWTOE,ProductLocker:AXimpl.Dynamics.InventoryIn.Converter.TeOntvangenProductLocker +ToeleveringAPI:DOM.AKP.ToeleveringAPI,ProductLookup:AXimpl.Admin.Common.ProductBepaler,ReceptieService:APPS.AKP.Receptie.impl.ReceptieService,InventoryOutConverter:AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter,ProductRepository:Prod.ProductRepository,AankoopAPI:DOM.AKP.AankoopAPI,ProductTypeAPI:DOM.PM.ProductTypeAPI,ConversieBezwarenBepaler:AXimpl.Dynamics.InventoryIn.Converter.ConversieBezwarenBepaler,FLOWTOE:BL.Legacy.FLOWTOE,ProductLocker:AXimpl.Dynamics.InventoryIn.Converter.TeOntvangenProductLocker,HerverpakteSoprService:AXimpl.Admin.Common.HerverpakteSoprService 1 1 %Status @@ -105,6 +110,7 @@ Set ..FLOWTOE = $$$Inject(FLOWTOE,##class(BL.Legacy.FLOWTOE).%New()) Set ..Logger = ##class(vhLib.Logger).%New() Set ..ProductLocker = $$$Inject(ProductLocker,##class(AXimpl.Dynamics.InventoryIn.Converter.TeOntvangenProductLocker).%New()) + Set ..HerverpakteSoprService = $$$Inject(HerverpakteSoprService, ##class(AXimpl.Admin.Common.HerverpakteSoprService).%New()) Quit $$$OK ]]> @@ -331,6 +337,9 @@ #dim Toelevering As DOM.AKP.Toelevering = ..BepaalToelevering(JournalEntry,JournalEntryLine) #dim PRId as %String = "" Set PRId = ..ProductLookup.GeefProductIdVoorLeverancierId(JournalEntryLine.ItemId,Toelevering.GeefLeverancierID(),JournalEntryLine.SOPRContractId) + If (..HerverpakteSoprService.IsHerverpakteSopr(PRId)) { + Set PRId = ..HerverpakteSoprService.GeefProductIdVanKindSoprDatSoprKindHeeft(PRId) + } Set InventSyncProduct = ##class(AXimpl.Dynamics.InventoryOut.Converter.dto.AXids).%New() Set InventSyncProduct.ProductId = PRId Set:($Length(JournalEntryLine.InventConfigId)) InventSyncProduct.AxConfigId = JournalEntryLine.InventConfigId