Index: AXimpl/Dynamics/InventoryIn/Converter/TeOntvangenProductLocker.cls.xml
===================================================================
diff -u -r50947 -r51148
--- AXimpl/Dynamics/InventoryIn/Converter/TeOntvangenProductLocker.cls.xml	(.../TeOntvangenProductLocker.cls.xml)	(revision 50947)
+++ AXimpl/Dynamics/InventoryIn/Converter/TeOntvangenProductLocker.cls.xml	(.../TeOntvangenProductLocker.cls.xml)	(revision 51148)
@@ -3,6 +3,11 @@
 <Class name="AXimpl.Dynamics.InventoryIn.Converter.TeOntvangenProductLocker">
 <Super>TECH.Mockable</Super>
 
+<Property name="HerverpakteSoprService">
+<Type>AXimpl.Admin.Common.HerverpakteSoprService</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="ProductLookup">
 <Type>AXimpl.Admin.Common.ProductBepaler</Type>
 <Private>1</Private>
@@ -19,14 +24,15 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>ProductLookup:AXimpl.Admin.Common.ProductBepaler,MultiGlobalLocker:TECH.Lock.MultiGlobalLocker</FormalSpec>
+<FormalSpec>ProductLookup:AXimpl.Admin.Common.ProductBepaler,MultiGlobalLocker:TECH.Lock.MultiGlobalLocker,HerverpakteSoprService:AXimpl.Admin.Common.HerverpakteSoprService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	 Set ..ProductLookup = $$$Inject(ProductLookup,##class(AXimpl.Admin.Common.ProductBepaler).%New())
 	 Set ..MultiGlobalLocker = $$$Inject(MultiGlobalLocker,##class(TECH.Lock.MultiGlobalLocker).%New())
+	 Set ..HerverpakteSoprService = $$$Inject(HerverpakteSoprService, ##class(AXimpl.Admin.Common.HerverpakteSoprService).%New())
 	 Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -46,6 +52,9 @@
 				#dim JournalEntryLine as AXif.Dynamics.InventoryIn.MessageParts.AxdEntityJournalTrans = JournalLineIterator.Next()
 				#dim LeverancierID as %String = ..BepaalLeverancierId(JournalEntryLine)
 				#dim ProductId as %String = ..ProductLookup.GeefProductIdVoorLeverancierId(JournalEntryLine.ItemId,LeverancierID,JournalEntryLine.SOPRContractId)
+				If (..HerverpakteSoprService.IsHerverpakteSopr(ProductId)) {
+					Set ProductId = ..HerverpakteSoprService.GeefProductIdVanKindSoprDatSoprKindHeeft(ProductId)
+				}
 				Do ..MultiGlobalLocker.VoegToeGlobalRef("^KPR("_ ProductId_")")
 			}
 		}	
Index: vhUnitTest/AXimpl/Dynamics/InventoryIn/Converter/TeOntvangenProductLocker/Test.cls.xml
===================================================================
diff -u -r50951 -r51148
--- vhUnitTest/AXimpl/Dynamics/InventoryIn/Converter/TeOntvangenProductLocker/Test.cls.xml	(.../Test.cls.xml)	(revision 50951)
+++ vhUnitTest/AXimpl/Dynamics/InventoryIn/Converter/TeOntvangenProductLocker/Test.cls.xml	(.../Test.cls.xml)	(revision 51148)
@@ -26,6 +26,36 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test van een HerverpakteSopr wordt het kind als te locken product aangegeven">
+<Implementation><![CDATA[
+	Set ProductLookupMock = ##class(vhTest.Mock.AXimpl.Admin.Common.ProductBepaler).%New()
+	Do ProductLookupMock.VerwachtMethodCall("GeefProductIdVoorLeverancierId","Identnummer","L||1234").DanReturn(987654)
+	Do ProductLookupMock.VerwachtMethodCall("GeefProductIdVoorLeverancierId","Identnummer2","L||5678").DanReturn(876543)
+	
+	Set HerverpakteSoprService = ##class(vhTest.Mock.AXimpl.Admin.Common.HerverpakteSoprService).%New()
+	Do HerverpakteSoprService.VerwachtMethodCall("IsHerverpakteSopr",987654).DanReturn($$$False)
+	Do HerverpakteSoprService.VerwachtMethodCall("IsHerverpakteSopr",876543).DanReturn($$$True)
+	Do HerverpakteSoprService.VerwachtMethodCall("GeefProductIdVanKindSoprDatSoprKindHeeft",876543).DanReturn(765432)
+	
+	Set MultiGlobalLockerMock = ##class(vhTest.Mock.TECH.Lock.MultiGlobalLocker).%New()
+	Do MultiGlobalLockerMock.VerwachtMethodCall("ClearGlobalRefs").DanDoeNiks()
+	Do MultiGlobalLockerMock.VerwachtMethodCall("VoegToeGlobalRef","^KPR(987654)").DanDoeNiks()
+	Do MultiGlobalLockerMock.VerwachtMethodCall("VoegToeGlobalRef","^KPR(876543)").DanDoeNiks().ExactAantalKeer(0)
+	Do MultiGlobalLockerMock.VerwachtMethodCall("VoegToeGlobalRef","^KPR(765432)").DanDoeNiks().ExactAantalKeer(1)
+	Do MultiGlobalLockerMock.VerwachtMethodCall("HeeftTeLockenNodes").DanReturn($$$True)
+	
+	Set ProductLocker = ##class(AXimpl.Dynamics.InventoryIn.Converter.TeOntvangenProductLocker).%New(ProductLookupMock,MultiGlobalLockerMock,HerverpakteSoprService)
+	
+	Do ProductLocker.BepaalTeLockenProducten(..GeefJournal("ontvangstjournaal.xml"))
+
+	Do $$$AssertTrue(ProductLocker.HeeftTeLockenProducten())
+	
+	Do ProductLookupMock.Verifieer()
+	Do HerverpakteSoprService.Verifieer()
+	Do MultiGlobalLockerMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test HeeftTeLockenProducten roept HeeftTeLockenNodes van multigloballocker aan">
 <Implementation><![CDATA[
 	Set ProductLookupMock = ##class(vhTest.Mock.AXimpl.Admin.Common.ProductBepaler).%New()