Index: AXimpl/Admin/Common/HerverpakteSoprService.cls.xml
===================================================================
diff -u -r51066 -r51074
--- AXimpl/Admin/Common/HerverpakteSoprService.cls.xml	(.../HerverpakteSoprService.cls.xml)	(revision 51066)
+++ AXimpl/Admin/Common/HerverpakteSoprService.cls.xml	(.../HerverpakteSoprService.cls.xml)	(revision 51074)
@@ -3,11 +3,6 @@
 <Class name="AXimpl.Admin.Common.HerverpakteSoprService">
 <Super>TECH.RegisteredObject,TECH.Mockable</Super>
 
-<Property name="KindSoprProductId">
-<Type>%String</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="KindProductService">
 <Type>AXimpl.Admin.Common.HerverpakteSoprService.KindProductService</Type>
 <Private>1</Private>
@@ -44,7 +39,18 @@
 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</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ($$$HasLength(..GeefProductIdVanKindSoprDatSoprKindHeeft(ProductId)))
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductIdVanKindSoprDatSoprKindHeeft">
+<Description>
+Write ##class(AXimpl.Admin.Common.HerverpakteSoprService).%New().GeefProductIdVanKindSoprDatSoprKindHeeft()
+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</FormalSpec>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	#dim ProductIdVanKind As %String = ""
 	#dim SoprKindProductId As %String = ""
 	#dim KindSoprProductId As %String = ""
 	
@@ -55,32 +61,17 @@
 				If (($$$HasLength(KindSoprProductId)) && (..ProductRolApi.IsSamengesteldProduct(KindSoprProductId))) {
 					Set SoprKindProductId = ..KindProductService.GeefKindProductId(KindSoprProductId, $$$True, "SoprKind")
 					If $$$HasLength(SoprKindProductId) {
-						Set ..KindSoprProductId = KindSoprProductId
+						Set ProductIdVanKind = KindSoprProductId
 					}
 				}
 			}
 		}
 	}
 	
-	Quit ($$$HasLength(..KindSoprProductId))
+	Quit ProductIdVanKind
 ]]></Implementation>
 </Method>
 
-<Method name="GeefProductIdVanKindSoprDatSoprKindHeeft">
-<Description>
-Write ##class(AXimpl.Admin.Common.HerverpakteSoprService).%New().GeefProductIdVanKindSoprDatSoprKindHeeft()
-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</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	Quit:($IsObject(..KindSoprProductId)) ..KindSoprProductId
-	
-	Do ..IsHerverpakteSopr(ProductId)
-	
-	Quit ..KindSoprProductId
-]]></Implementation>
-</Method>
-
 <Method name="GeefLijstHerverpakteSoprs">
 <Description>
 Set L = ##class(AXimpl.Admin.Common.HerverpakteSoprService).%New().GeefLijstHerverpakteSoprs()		Opgelet: Duurt erg lang (+- 6 min)