Index: AXimpl/Admin/Common/HerverpakteSoprService.cls.xml
===================================================================
diff -u -r50967 -r50968
--- AXimpl/Admin/Common/HerverpakteSoprService.cls.xml	(.../HerverpakteSoprService.cls.xml)	(revision 50967)
+++ AXimpl/Admin/Common/HerverpakteSoprService.cls.xml	(.../HerverpakteSoprService.cls.xml)	(revision 50968)
@@ -35,7 +35,8 @@
 
 <Method name="IsHerverpakteSopr">
 <Description>
-Write ##class(AXimpl.Admin.Common.HerverpakteSoprService).%New().IsHerverpakteSopr()</Description>
+Write ##class(AXimpl.Admin.Common.HerverpakteSoprService).%New().IsHerverpakteSopr()
+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[
@@ -46,9 +47,9 @@
 	If (..ProductRolApi.BestaatAdministratiefProduct(ProductId)) {
 		If (..ProductRolApi.IsSamengesteldProduct(ProductId)) {
 			If (..ProductRolApi.GeefSamengesteldProduct(ProductId).IsStockOverKinderen()) {
-				Set KindSoprProductId = ..GeefKindSoprProductId(ProductId)
+				Set KindSoprProductId = ..GeefKindProductId(ProductId, $$$False, "Sopr")
 				If (($$$HasLength(KindSoprProductId)) && (..ProductRolApi.IsSamengesteldProduct(KindSoprProductId))) {
-					Set SoprKindProductId = ..GeefSoprKindProductId(KindSoprProductId)
+					Set SoprKindProductId = ..GeefKindProductId(KindSoprProductId, $$$True, "SoprKind")
 					If $$$HasLength(SoprKindProductId) {
 						Set Response = $$$True
 					}
@@ -63,8 +64,8 @@
 
 <Method name="GeefProductIdVanKindSoprDatSoprKindHeeft">
 <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>
+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>%Integer</ReturnType>
 <Implementation><![CDATA[	Quit ""
@@ -73,7 +74,8 @@
 
 <Method name="GeefLijstHerverpakteSoprs">
 <Description>
-Set L = ##class(AXimpl.Admin.Common.HerverpakteSoprService).%New().GeefLijstHerverpakteSoprs()		Opgelet: Duurt erg lang (+- 6 min)</Description>
+Set L = ##class(AXimpl.Admin.Common.HerverpakteSoprService).%New().GeefLijstHerverpakteSoprs()		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>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	#dim ProductIdIterator As TECH.Iterator = ..ProductApi.GeefProductIDIterator()
@@ -103,57 +105,45 @@
 
 <Method name="GeefStringVanLijstHerverpakteSoprs">
 <Description>
-Write ##class(AXimpl.Admin.Common.HerverpakteSoprService).%New().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>
 
-<Method name="GeefKindSoprProductId">
-<FormalSpec>ProductId:%Integer</FormalSpec>
+<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,MagMeerdereHebben:%Boolean,ZoekenOpSoprOfSoprKind:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim KindBouwsteenIterator As TECH.Iterator
-	#dim KindBouwsteen As DOM.PM.KindBouwsteen
-	#dim KindBouwsteenProductId As %String
-	#dim KindSoprProductId As %String = ""
+	#dim BouwsteenIterator As TECH.Iterator
+	#dim Bouwsteen As DOM.PM.KindBouwsteen
+	#dim BouwsteenProductId As %String
+	#dim KindProductId As %String = ""
 	
-	Set KindBouwsteenIterator = ..ProductRolApi.GeefSamengesteldProduct(ProductId).GeefKindBouwsteenIterator()
-	While KindBouwsteenIterator.HasNext() {
-		Set KindBouwsteen = KindBouwsteenIterator.Next()
-		Set KindBouwsteenProductId = KindBouwsteen.GeefPRNr()
-		If (..SoprProductConverter.IsSOPRInCache(KindBouwsteenProductId) && $$$Not(KindBouwsteenIterator.HasNext())) {
-			Set KindSoprProductId = KindBouwsteenProductId
+	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(MagMeerdereHebben)) {
+				If ($$$Not(BouwsteenIterator.HasNext())) {
+					Set KindProductId = BouwsteenProductId
+				}
+			} Else {
+				Set KindProductId = BouwsteenProductId
+			}
+		} ElseIf ((ZoekenOpSoprOfSoprKind = "SoprKind") && (..SoprProductConverter.IsSOPRKindInCache(BouwsteenProductId))) {
+			Set KindProductId = BouwsteenProductId
 		}
 	}
 	
-	Quit KindSoprProductId
+	Quit KindProductId
 ]]></Implementation>
 </Method>
-
-<Method name="GeefSoprKindProductId">
-<FormalSpec>KindSoprProductId:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim SoprKindIterator As TECH.Iterator
-	#dim SoprKind As DOM.PM.KindBouwsteen
-	#dim SoprKindProductId As %String
-	#dim ProductId As %String = ""
-	
-	Set SoprKindIterator = ..ProductRolApi.GeefSamengesteldProduct(KindSoprProductId).GeefKindBouwsteenIterator()
-	While SoprKindIterator.HasNext() {
-		Set SoprKind = SoprKindIterator.Next()
-		Set SoprKindProductId = SoprKind.GeefPRNr()
-		If ..SoprProductConverter.IsSOPRKindInCache(SoprKindProductId) {
-			Set ProductId = SoprKindProductId
-		}
-	}
-	
-	Quit ProductId
-]]></Implementation>
-</Method>
 </Class>