Index: vhUnitTest/AXimpl/Admin/Common/HerverpakteSoprService/Test.cls.xml
===================================================================
diff -u -r51037 -r51038
--- vhUnitTest/AXimpl/Admin/Common/HerverpakteSoprService/Test.cls.xml	(.../Test.cls.xml)	(revision 51037)
+++ vhUnitTest/AXimpl/Admin/Common/HerverpakteSoprService/Test.cls.xml	(.../Test.cls.xml)	(revision 51038)
@@ -339,81 +339,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: GeefStringVanLijstHerverpakteSoprs">
-<Implementation><![CDATA[
-	#dim Lijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
-	Do Lijst.Insert(..#ProductId1)
-	Do Lijst.Insert(..#ProductId2)
-	Do Lijst.Insert(..#ProductId3)
-	Do Lijst.Insert(..#ProductId4)
-	Do Lijst.Insert(..#ProductId5)
-	
-	#dim ProductIDIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Lijst)
-	
-	Set ProductApiStub = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
-	Do ProductApiStub.IndienMethodCall("GeefProductIDIterator").DanReturn(ProductIDIterator)
-	
-	Set Product1 = ##class(vhTest.Mock.DOM.PM.AdministratiefProduct).%New(..#ProductId1)
-	Do Product1.IndienMethodCall("GeefActiefStatus").DanReturn(##class(DOM.PM.enu.ActiefStatus).Actief())
-	Set Product2 = ##class(vhTest.Mock.DOM.PM.AdministratiefProduct).%New(..#ProductId2)
-	Do Product2.IndienMethodCall("GeefActiefStatus").DanReturn(##class(DOM.PM.enu.ActiefStatus).Actief())
-	Set Product3 = ##class(vhTest.Mock.DOM.PM.AdministratiefProduct).%New(..#ProductId3)
-	Do Product3.IndienMethodCall("GeefActiefStatus").DanReturn(##class(DOM.PM.enu.ActiefStatus).Actief())
-	Set Product4 = ##class(vhTest.Mock.DOM.PM.AdministratiefProduct).%New(..#ProductId4)
-	Do Product4.IndienMethodCall("GeefActiefStatus").DanReturn(##class(DOM.PM.enu.ActiefStatus).Actief())
-	Set Product5 = ##class(vhTest.Mock.DOM.PM.AdministratiefProduct).%New(..#ProductId5)
-	Do Product5.IndienMethodCall("GeefActiefStatus").DanReturn(##class(DOM.PM.enu.ActiefStatus).Actief())
-	
-	Set MoederProduct1 = ##class(vhTest.Mock.DOM.PM.SamengesteldProduct).%New(..#ProductId1)
-	Do MoederProduct1.IndienMethodCall("IsStockOverKinderen").DanReturn($$$True)
-	Set MoederProduct2 = ##class(vhTest.Mock.DOM.PM.SamengesteldProduct).%New(..#ProductId2)
-	Do MoederProduct2.IndienMethodCall("IsStockOverKinderen").DanReturn($$$True)
-	Set MoederProduct3 = ##class(vhTest.Mock.DOM.PM.SamengesteldProduct).%New(..#ProductId3)
-	Do MoederProduct3.IndienMethodCall("IsStockOverKinderen").DanReturn($$$True)
-	Set MoederProduct4 = ##class(vhTest.Mock.DOM.PM.SamengesteldProduct).%New(..#ProductId4)
-	Do MoederProduct4.IndienMethodCall("IsStockOverKinderen").DanReturn($$$True)
-	Set MoederProduct5 = ##class(vhTest.Mock.DOM.PM.SamengesteldProduct).%New(..#ProductId5)
-	Do MoederProduct5.IndienMethodCall("IsStockOverKinderen").DanReturn($$$True)
-	
-	Set ProductRolApiStub = ##class(vhTest.Mock.DOM.PM.ProductRolAPI).%New()
-	Do ProductRolApiStub.IndienMethodCall("BestaatAdministratiefProduct", ..#ProductId1).DanReturn($$$True)
-	Do ProductRolApiStub.IndienMethodCall("BestaatAdministratiefProduct", ..#ProductId2).DanReturn($$$False)
-	Do ProductRolApiStub.IndienMethodCall("BestaatAdministratiefProduct", ..#ProductId3).DanReturn($$$True)
-	Do ProductRolApiStub.IndienMethodCall("BestaatAdministratiefProduct", ..#ProductId4).DanReturn($$$False)
-	Do ProductRolApiStub.IndienMethodCall("BestaatAdministratiefProduct", ..#ProductId5).DanReturn($$$True)
-	Do ProductRolApiStub.IndienMethodCall("GeefAdministratiefProduct", ..#ProductId1).DanReturn(Product1)
-	Do ProductRolApiStub.IndienMethodCall("GeefAdministratiefProduct", ..#ProductId2).DanReturn(Product2)
-	Do ProductRolApiStub.IndienMethodCall("GeefAdministratiefProduct", ..#ProductId3).DanReturn(Product3)
-	Do ProductRolApiStub.IndienMethodCall("GeefAdministratiefProduct", ..#ProductId4).DanReturn(Product4)
-	Do ProductRolApiStub.IndienMethodCall("GeefAdministratiefProduct", ..#ProductId5).DanReturn(Product5)
-	Do ProductRolApiStub.IndienMethodCall("IsSamengesteldProduct", ..#ProductId1).DanReturn($$$True)
-	Do ProductRolApiStub.IndienMethodCall("IsSamengesteldProduct", ..#ProductId3).DanReturn($$$True)
-	Do ProductRolApiStub.IndienMethodCall("IsSamengesteldProduct", ..#ProductId5).DanReturn($$$True)
-	Do ProductRolApiStub.IndienMethodCall("GeefSamengesteldProduct", ..#ProductId1).DanReturn(MoederProduct1)
-	Do ProductRolApiStub.IndienMethodCall("GeefSamengesteldProduct", ..#ProductId3).DanReturn(MoederProduct3)
-	Do ProductRolApiStub.IndienMethodCall("GeefSamengesteldProduct", ..#ProductId5).DanReturn(MoederProduct5)
-	Do ProductRolApiStub.IndienMethodCall("IsSamengesteldProduct", ..#ProductId11).DanReturn($$$True)
-	Do ProductRolApiStub.IndienMethodCall("IsSamengesteldProduct", ..#ProductId33).DanReturn($$$True)
-	Do ProductRolApiStub.IndienMethodCall("IsSamengesteldProduct", ..#ProductId55).DanReturn($$$True)
-	
-	Set KindProductServiceStub = ##class(vhTest.Mock.AXimpl.Admin.Common.HerverpakteSoprService.KindProductService).%New()
-	Do KindProductServiceStub.IndienMethodCall("GeefKindProductId",..#ProductId1, $$$False, "Sopr").DanReturn(..#ProductId11)
-	Do KindProductServiceStub.IndienMethodCall("GeefKindProductId",..#ProductId3, $$$False, "Sopr").DanReturn(..#ProductId33)
-	Do KindProductServiceStub.IndienMethodCall("GeefKindProductId",..#ProductId5, $$$False, "Sopr").DanReturn(..#ProductId55)	
-	Do KindProductServiceStub.IndienMethodCall("GeefKindProductId",..#ProductId11, $$$True, "SoprKind").DanReturn(..#ProductId111)
-	Do KindProductServiceStub.IndienMethodCall("GeefKindProductId",..#ProductId33, $$$True, "SoprKind").DanReturn(..#ProductId333)
-	Do KindProductServiceStub.IndienMethodCall("GeefKindProductId",..#ProductId55, $$$True, "SoprKind").DanReturn(..#ProductId555)
-	
-	Set ..ProductApi = ProductApiStub
-	Set ..ProductRolApi = ProductRolApiStub
-	Set ..KindProductService = KindProductServiceStub
-	#dim HerverpakteSoprService As AXimpl.Admin.Common.HerverpakteSoprService.KindProductService = ..GeefHerverpakteSoprService()
-	#dim Result As %String = HerverpakteSoprService.GeefStringVanLijstHerverpakteSoprs()
-	
-	Do $$$AssertEquals(Result, ..#ProductId1_","_..#ProductId3_","_..#ProductId5)
-]]></Implementation>
-</Method>
-
 <Method name="GeefHerverpakteSoprService">
 <Private>1</Private>
 <Implementation><![CDATA[	Quit ##class(AXimpl.Admin.Common.HerverpakteSoprService).%New(..ProductApi, ..ProductRolApi, ..KindProductService)
Index: AXimpl/Admin/Common/HerverpakteSoprService.cls.xml
===================================================================
diff -u -r50991 -r51038
--- AXimpl/Admin/Common/HerverpakteSoprService.cls.xml	(.../HerverpakteSoprService.cls.xml)	(revision 50991)
+++ AXimpl/Admin/Common/HerverpakteSoprService.cls.xml	(.../HerverpakteSoprService.cls.xml)	(revision 51038)
@@ -111,15 +111,6 @@
 	Quit Result
 ]]></Implementation>
 </Method>
-
-<Method name="GeefStringVanLijstHerverpakteSoprs">
-<Description>
-Write ##class(AXimpl.Admin.Common.HerverpakteSoprService).%New().GeefStringVanLijstHerverpakteSoprs()		Opgelet: Duurt erg lang (+- 6 min)
-OPGELET: Dit gaat ervan uit dat er slechts 1 kind mag zijn (dat een Sopr moet zijn die een SoprKind heeft), wat volgens de huidige business-logic het geval is.</Description>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.ListUtils).ListToPieces(..GeefLijstHerverpakteSoprs(),",")
-]]></Implementation>
-</Method>
 </Class>