Index: vhUnitTest/AXimpl/Admin/Common/HerverpakteSoprService/Test.cls.xml
===================================================================
diff -u -r51034 -r51035
--- vhUnitTest/AXimpl/Admin/Common/HerverpakteSoprService/Test.cls.xml	(.../Test.cls.xml)	(revision 51034)
+++ vhUnitTest/AXimpl/Admin/Common/HerverpakteSoprService/Test.cls.xml	(.../Test.cls.xml)	(revision 51035)
@@ -173,6 +173,54 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: GeefProductIdVanKindSoprDatSoprKindHeeft -&gt; Als IsHerverpakteSopr -&gt; True">
+<Implementation><![CDATA[
+	Set MoederProduct = ##class(vhTest.Mock.DOM.PM.SamengesteldProduct).%New(..#ProductId1)
+	Do MoederProduct.IndienMethodCall("IsStockOverKinderen").DanReturn($$$True)
+	
+	Set ProductRolApiStub = ##class(vhTest.Mock.DOM.PM.ProductRolAPI).%New()
+	Do ProductRolApiStub.IndienMethodCall("BestaatAdministratiefProduct", ..#ProductId1).DanReturn($$$True)
+	Do ProductRolApiStub.IndienMethodCall("IsSamengesteldProduct", ..#ProductId1).DanReturn($$$True)
+	Do ProductRolApiStub.IndienMethodCall("GeefSamengesteldProduct", ..#ProductId1).DanReturn(MoederProduct)
+	Do ProductRolApiStub.IndienMethodCall("IsSamengesteldProduct", ..#ProductId2).DanReturn($$$True)
+	
+	Set KindProductServiceStub = ##class(vhTest.Mock.AXimpl.Admin.Common.HerverpakteSoprService.KindProductService).%New()
+	Do KindProductServiceStub.IndienMethodCall("GeefKindProductId",..#ProductId1, $$$False, "Sopr").DanReturn(..#ProductId2)
+	Do KindProductServiceStub.IndienMethodCall("GeefKindProductId",..#ProductId2, $$$True, "SoprKind").DanReturn(..#ProductId3)
+	
+	Set ..ProductRolApi = ProductRolApiStub
+	Set ..KindProductService = KindProductServiceStub
+	#dim HerverpakteSoprService As AXimpl.Admin.Common.HerverpakteSoprService.KindProductService = ..GeefHerverpakteSoprService()
+	#dim Result As %String = HerverpakteSoprService.GeefProductIdVanKindSoprDatSoprKindHeeft(..#ProductId1)
+	
+	Do $$$AssertEquals(Result, ..#ProductId2)
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefProductIdVanKindSoprDatSoprKindHeeft -&gt; Als IsHerverpakteSopr -&gt; False">
+<Implementation><![CDATA[
+	Set MoederProduct = ##class(vhTest.Mock.DOM.PM.SamengesteldProduct).%New(..#ProductId1)
+	Do MoederProduct.IndienMethodCall("IsStockOverKinderen").DanReturn($$$True)
+	
+	Set ProductRolApiStub = ##class(vhTest.Mock.DOM.PM.ProductRolAPI).%New()
+	Do ProductRolApiStub.IndienMethodCall("BestaatAdministratiefProduct", ..#ProductId1).DanReturn($$$True)
+	Do ProductRolApiStub.IndienMethodCall("IsSamengesteldProduct", ..#ProductId1).DanReturn($$$True)
+	Do ProductRolApiStub.IndienMethodCall("GeefSamengesteldProduct", ..#ProductId1).DanReturn(MoederProduct)
+	Do ProductRolApiStub.IndienMethodCall("IsSamengesteldProduct", ..#ProductId2).DanReturn($$$True)
+	
+	Set KindProductServiceStub = ##class(vhTest.Mock.AXimpl.Admin.Common.HerverpakteSoprService.KindProductService).%New()
+	Do KindProductServiceStub.IndienMethodCall("GeefKindProductId",..#ProductId1, $$$False, "Sopr").DanReturn(..#ProductId2)
+	Do KindProductServiceStub.IndienMethodCall("GeefKindProductId",..#ProductId2, $$$True, "SoprKind").DanReturn("")
+	
+	Set ..ProductRolApi = ProductRolApiStub
+	Set ..KindProductService = KindProductServiceStub
+	#dim HerverpakteSoprService As AXimpl.Admin.Common.HerverpakteSoprService.KindProductService = ..GeefHerverpakteSoprService()
+	#dim Result As %String = HerverpakteSoprService.GeefProductIdVanKindSoprDatSoprKindHeeft(..#ProductId1)
+	
+	Do $$$AssertEquals(Result, "")
+]]></Implementation>
+</Method>
+
 <Method name="GeefHerverpakteSoprService">
 <Private>1</Private>
 <Implementation><![CDATA[	Quit ##class(AXimpl.Admin.Common.HerverpakteSoprService).%New(..ProductApi, ..ProductRolApi, ..KindProductService)