Index: AXimpl/Admin/Common/HerverpakteSoprService.cls.xml
===================================================================
diff -u -r50932 -r50967
--- AXimpl/Admin/Common/HerverpakteSoprService.cls.xml	(.../HerverpakteSoprService.cls.xml)	(revision 50932)
+++ AXimpl/Admin/Common/HerverpakteSoprService.cls.xml	(.../HerverpakteSoprService.cls.xml)	(revision 50967)
@@ -34,14 +34,38 @@
 </Method>
 
 <Method name="IsHerverpakteSopr">
-<FormalSpec>ProductNr:%Integer</FormalSpec>
+<Description>
+Write ##class(AXimpl.Admin.Common.HerverpakteSoprService).%New().IsHerverpakteSopr()</Description>
+<FormalSpec>ProductId:%Integer</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit $$$False
+<Implementation><![CDATA[
+	#dim Response As %Boolean = $$$False
+	#dim SoprKindProductId As %String = ""
+	#dim KindSoprProductId As %String = ""
+	
+	If (..ProductRolApi.BestaatAdministratiefProduct(ProductId)) {
+		If (..ProductRolApi.IsSamengesteldProduct(ProductId)) {
+			If (..ProductRolApi.GeefSamengesteldProduct(ProductId).IsStockOverKinderen()) {
+				Set KindSoprProductId = ..GeefKindSoprProductId(ProductId)
+				If (($$$HasLength(KindSoprProductId)) && (..ProductRolApi.IsSamengesteldProduct(KindSoprProductId))) {
+					Set SoprKindProductId = ..GeefSoprKindProductId(KindSoprProductId)
+					If $$$HasLength(SoprKindProductId) {
+						Set Response = $$$True
+					}
+				}
+			}
+		}
+	}
+	
+	Quit Response
 ]]></Implementation>
 </Method>
 
 <Method name="GeefProductIdVanKindSoprDatSoprKindHeeft">
-<FormalSpec>ProductNr:%Integer</FormalSpec>
+<Description>
+	Write ##class(AXimpl.Admin.Common.HerverpakteSoprService).%New().GeefProductIdVanKindSoprDatSoprKindHeeft()
+	OPGELET: Dit gaat ervan uit dat er slechts 1 is, wat volgens de huidige business-logic het geval is.</Description>
+<FormalSpec>ProductId:%Integer</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
@@ -54,7 +78,6 @@
 <Implementation><![CDATA[
 	#dim ProductIdIterator As TECH.Iterator = ..ProductApi.GeefProductIDIterator()
 	#dim ProductId As %Integer
-	#dim IsStockOverKinderen As %Boolean
 	#dim SoprKindProductId As %String = ""
 	#dim KindSoprProductId As %String = ""
 	#dim Actief As DOM.PM.enu.ActiefStatus = ##class(DOM.PM.enu.ActiefStatus).NietActief()
@@ -67,17 +90,8 @@
 		If (..ProductRolApi.BestaatAdministratiefProduct(ProductId)) {
 			Set Actief = ..ProductRolApi.GeefAdministratiefProduct(ProductId).GeefActiefStatus()
 			If (Actief = ##class(DOM.PM.enu.ActiefStatus).Actief()) {
-				If (..ProductRolApi.IsSamengesteldProduct(ProductId)) {
-					Set IsStockOverKinderen = ..ProductRolApi.GeefSamengesteldProduct(ProductId).IsStockOverKinderen()
-					If (IsStockOverKinderen) {
-						Set KindSoprProductId = ..GeefKindSoprProductId(ProductId)
-						If (($$$HasLength(KindSoprProductId)) && (..ProductRolApi.IsSamengesteldProduct(KindSoprProductId))) {
-							Set SoprKindProductId = ..GeefSoprKindProductId(KindSoprProductId)
-							If $$$HasLength(SoprKindProductId) {
-								Do Result.Insert(ProductId)
-							}
-						}
-					}
+				If (..IsHerverpakteSopr(ProductId)) {
+					Do Result.Insert(ProductId)
 				}
 			}
 		}
@@ -96,7 +110,7 @@
 </Method>
 
 <Method name="GeefKindSoprProductId">
-<FormalSpec>ProductId:%String</FormalSpec>
+<FormalSpec>ProductId:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[