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