Index: AXimpl/Admin/Common/HerverpakteSoprService.cls.xml
===================================================================
diff -u -r50979 -r50991
--- AXimpl/Admin/Common/HerverpakteSoprService.cls.xml	(.../HerverpakteSoprService.cls.xml)	(revision 50979)
+++ AXimpl/Admin/Common/HerverpakteSoprService.cls.xml	(.../HerverpakteSoprService.cls.xml)	(revision 50991)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KindProductService">
+<Type>AXimpl.Admin.Common.HerverpakteSoprService.KindProductService</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="ProductApi">
 <Type>DOM.PM.ProductAPI</Type>
 <Private>1</Private>
@@ -18,21 +23,16 @@
 <Private>1</Private>
 </Property>
 
-<Property name="SoprProductConverter">
-<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>ProductApi:DOM.PM.ProductAPI,ProductRolApi:DOM.PM.ProductRolAPI,SoprProductConverter:AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</FormalSpec>
+<FormalSpec>ProductApi:DOM.PM.ProductAPI,ProductRolApi:DOM.PM.ProductRolAPI,KindProductService:AXimpl.Admin.Common.HerverpakteSoprService.KindProductService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
 	Set ..ProductRolApi = $$$Inject(ProductRolApi, ##class(DOM.PM.impl.ProductRolAPIimpl).%New())
-	Set ..SoprProductConverter = $$$Inject(SoprProductConverter, ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New())
+	Set ..KindProductService = $$$Inject(KindProductService, ##class(AXimpl.Admin.Common.HerverpakteSoprService.KindProductService).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -51,9 +51,9 @@
 	If (..ProductRolApi.BestaatAdministratiefProduct(ProductId)) {
 		If (..ProductRolApi.IsSamengesteldProduct(ProductId)) {
 			If (..ProductRolApi.GeefSamengesteldProduct(ProductId).IsStockOverKinderen()) {
-				Set KindSoprProductId = ..GeefKindProductId(ProductId, $$$False, "Sopr")
+				Set KindSoprProductId = ..KindProductService.GeefKindProductId(ProductId, $$$False, "Sopr")
 				If (($$$HasLength(KindSoprProductId)) && (..ProductRolApi.IsSamengesteldProduct(KindSoprProductId))) {
-					Set SoprKindProductId = ..GeefKindProductId(KindSoprProductId, $$$True, "SoprKind")
+					Set SoprKindProductId = ..KindProductService.GeefKindProductId(KindSoprProductId, $$$True, "SoprKind")
 					If $$$HasLength(SoprKindProductId) {
 						Set ..KindSoprProductId = KindSoprProductId
 					}
@@ -120,39 +120,6 @@
 <Implementation><![CDATA[	Quit ##class(TECH.ListUtils).ListToPieces(..GeefLijstHerverpakteSoprs(),",")
 ]]></Implementation>
 </Method>
-
-<Method name="GeefKindProductId">
-<Description>
-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>
-<FormalSpec>ProductId:%Integer,MagMeerdereKinderenHebben:%Boolean,ZoekenOpSoprOfSoprKind:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim BouwsteenIterator As TECH.Iterator
-	#dim Bouwsteen As DOM.PM.KindBouwsteen
-	#dim BouwsteenProductId As %String
-	#dim KindProductId As %String = ""
-	
-	Set BouwsteenIterator = ..ProductRolApi.GeefSamengesteldProduct(ProductId).GeefKindBouwsteenIterator()
-	While BouwsteenIterator.HasNext() {
-		Set Bouwsteen = BouwsteenIterator.Next()
-		Set BouwsteenProductId = Bouwsteen.GeefPRNr()
-		If ((ZoekenOpSoprOfSoprKind = "Sopr") && (..SoprProductConverter.IsSOPRInCache(BouwsteenProductId))) {
-			If ($$$Not(MagMeerdereKinderenHebben)) {
-				If ($$$Not(BouwsteenIterator.HasNext())) {
-					Set KindProductId = BouwsteenProductId
-				}
-			} Else {
-				Set KindProductId = BouwsteenProductId
-			}
-		} ElseIf ((ZoekenOpSoprOfSoprKind = "SoprKind") && (..SoprProductConverter.IsSOPRKindInCache(BouwsteenProductId))) {
-			Set KindProductId = BouwsteenProductId
-		}
-	}
-	
-	Quit KindProductId
-]]></Implementation>
-</Method>
 </Class>