Index: vhUnitTest/AXimpl/Admin/Common/HerverpakteSoprService/Test.cls.xml
===================================================================
diff -u -r51033 -r51034
--- vhUnitTest/AXimpl/Admin/Common/HerverpakteSoprService/Test.cls.xml	(.../Test.cls.xml)	(revision 51033)
+++ vhUnitTest/AXimpl/Admin/Common/HerverpakteSoprService/Test.cls.xml	(.../Test.cls.xml)	(revision 51034)
@@ -57,9 +57,125 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: IsHerverpakteSopr -&gt; False, want niet StockOverKinderen">
+<Implementation><![CDATA[
+	Set MoederProduct = ##class(vhTest.Mock.DOM.PM.SamengesteldProduct).%New(..#ProductId1)
+	Do MoederProduct.IndienMethodCall("IsStockOverKinderen").DanReturn($$$False)
+	
+	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)
+
+	Set ..ProductRolApi = ProductRolApiStub
+	
+	#dim HerverpakteSoprService As AXimpl.Admin.Common.HerverpakteSoprService.KindProductService = ..GeefHerverpakteSoprService()
+	#dim Result As %Boolean = HerverpakteSoprService.IsHerverpakteSopr(..#ProductId1)
+	
+	Do $$$AssertFalse(Result)
+]]></Implementation>
+</Method>
+
+<Method name="Test: IsHerverpakteSopr -&gt; False, want AdministratiefProduct bestaat niet">
+<Implementation><![CDATA[
+	Set ProductRolApiStub = ##class(vhTest.Mock.DOM.PM.ProductRolAPI).%New()
+	Do ProductRolApiStub.IndienMethodCall("BestaatAdministratiefProduct", ..#ProductId1).DanReturn($$$False)
+	
+	Set ..ProductRolApi = ProductRolApiStub
+	#dim HerverpakteSoprService As AXimpl.Admin.Common.HerverpakteSoprService.KindProductService = ..GeefHerverpakteSoprService()
+	#dim Result As %Boolean = HerverpakteSoprService.IsHerverpakteSopr(..#ProductId1)
+	
+	Do $$$AssertFalse(Result)
+]]></Implementation>
+</Method>
+
+<Method name="Test: IsHerverpakteSopr -&gt; False, want is geen SamengesteldProduct">
+<Implementation><![CDATA[
+	Set ProductRolApiStub = ##class(vhTest.Mock.DOM.PM.ProductRolAPI).%New()
+	Do ProductRolApiStub.IndienMethodCall("BestaatAdministratiefProduct", ..#ProductId1).DanReturn($$$True)
+	Do ProductRolApiStub.IndienMethodCall("IsSamengesteldProduct", ..#ProductId1).DanReturn($$$False)
+	
+	Set ..ProductRolApi = ProductRolApiStub
+	#dim HerverpakteSoprService As AXimpl.Admin.Common.HerverpakteSoprService.KindProductService = ..GeefHerverpakteSoprService()
+	#dim Result As %Boolean = HerverpakteSoprService.IsHerverpakteSopr(..#ProductId1)
+	
+	Do $$$AssertFalse(Result)
+]]></Implementation>
+</Method>
+
+<Method name="Test: IsHerverpakteSopr -&gt; False, want geen kinderen">
+<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("")
+	
+	Set ..ProductRolApi = ProductRolApiStub
+	Set ..KindProductService = KindProductServiceStub
+	#dim HerverpakteSoprService As AXimpl.Admin.Common.HerverpakteSoprService.KindProductService = ..GeefHerverpakteSoprService()
+	#dim Result As %Boolean = HerverpakteSoprService.IsHerverpakteSopr(..#ProductId1)
+	
+	Do $$$AssertFalse(Result)
+]]></Implementation>
+</Method>
+
+<Method name="Test: IsHerverpakteSopr -&gt; False, want kind is geen SamengesteldProduct">
+<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($$$False)
+	
+	Set KindProductServiceStub = ##class(vhTest.Mock.AXimpl.Admin.Common.HerverpakteSoprService.KindProductService).%New()
+	Do KindProductServiceStub.IndienMethodCall("GeefKindProductId",..#ProductId1, $$$False, "Sopr").DanReturn(..#ProductId2)
+	
+	Set ..ProductRolApi = ProductRolApiStub
+	Set ..KindProductService = KindProductServiceStub
+	#dim HerverpakteSoprService As AXimpl.Admin.Common.HerverpakteSoprService.KindProductService = ..GeefHerverpakteSoprService()
+	#dim Result As %Boolean = HerverpakteSoprService.IsHerverpakteSopr(..#ProductId1)
+	
+	Do $$$AssertFalse(Result)
+]]></Implementation>
+</Method>
+
+<Method name="Test: IsHerverpakteSopr -&gt; False, want kind heeft geen SoprKind">
+<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 %Boolean = HerverpakteSoprService.IsHerverpakteSopr(..#ProductId1)
+	
+	Do $$$AssertFalse(Result)
+]]></Implementation>
+</Method>
+
 <Method name="GeefHerverpakteSoprService">
 <Private>1</Private>
-<Implementation><![CDATA[	Quit ##class(AXimpl.Admin.Common.HerverpakteSoprService).%New(, ..ProductRolApi, ..KindProductService)
+<Implementation><![CDATA[	Quit ##class(AXimpl.Admin.Common.HerverpakteSoprService).%New(..ProductApi, ..ProductRolApi, ..KindProductService)
 ]]></Implementation>
 </Method>
 </Class>