Index: AXimpl/Admin/Common/HerverpakteSoprService.cls.xml
===================================================================
diff -u -r51074 -r51078
--- AXimpl/Admin/Common/HerverpakteSoprService.cls.xml	(.../HerverpakteSoprService.cls.xml)	(revision 51074)
+++ AXimpl/Admin/Common/HerverpakteSoprService.cls.xml	(.../HerverpakteSoprService.cls.xml)	(revision 51078)
@@ -3,6 +3,11 @@
 <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>
@@ -39,39 +44,44 @@
 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 = ""
 	
+	Set ..KindSoprProductId = ""
 	If (..ProductRolApi.BestaatAdministratiefProduct(ProductId)) {
 		If (..ProductRolApi.IsSamengesteldProduct(ProductId)) {
 			If (..ProductRolApi.GeefSamengesteldProduct(ProductId).IsStockOverKinderen()) {
 				Set KindSoprProductId = ..KindProductService.GeefKindProductId(ProductId, $$$False, "Sopr")
 				If (($$$HasLength(KindSoprProductId)) && (..ProductRolApi.IsSamengesteldProduct(KindSoprProductId))) {
 					Set SoprKindProductId = ..KindProductService.GeefKindProductId(KindSoprProductId, $$$True, "SoprKind")
 					If $$$HasLength(SoprKindProductId) {
-						Set ProductIdVanKind = KindSoprProductId
+						Set ..KindSoprProductId = KindSoprProductId
 					}
 				}
 			}
 		}
 	}
 	
-	Quit ProductIdVanKind
+	Quit ($$$HasLength(..KindSoprProductId))
 ]]></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:($$$HasLength(..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)
@@ -80,19 +90,22 @@
 <Implementation><![CDATA[
 	#dim ProductIdIterator As TECH.Iterator = ..ProductApi.GeefProductIDIterator()
 	#dim ProductId As %Integer
+	#dim AdministratiefProduct As DOM.PM.AdministratiefProduct
 	#dim Actief As DOM.PM.enu.ActiefStatus
 	#dim Result As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	
 	While ProductIdIterator.HasNext() {
 		Set Actief = ##class(DOM.PM.enu.ActiefStatus).NietActief()
 		Set ProductId = ProductIdIterator.Next()
 		If (..ProductRolApi.BestaatAdministratiefProduct(ProductId)) {
-			Set Actief = ..ProductRolApi.GeefAdministratiefProduct(ProductId).GeefActiefStatus()
+			Set AdministratiefProduct = ..ProductRolApi.GeefAdministratiefProduct(ProductId)
+			Set Actief = AdministratiefProduct.GeefActiefStatus()
 			If (Actief = ##class(DOM.PM.enu.ActiefStatus).Actief()) {
 				If (..IsHerverpakteSopr(ProductId)) {
 					Do Result.Insert(ProductId)
 				}
 			}
+			Set AdministratiefProduct = ""
 		}
 	}