Index: AXimpl/Admin/Common/HerverpakteSoprService.cls.xml
===================================================================
diff -u -r50968 -r50974
--- AXimpl/Admin/Common/HerverpakteSoprService.cls.xml	(.../HerverpakteSoprService.cls.xml)	(revision 50968)
+++ AXimpl/Admin/Common/HerverpakteSoprService.cls.xml	(.../HerverpakteSoprService.cls.xml)	(revision 50974)
@@ -3,6 +3,11 @@
 <Class name="AXimpl.Admin.Common.HerverpakteSoprService">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="KindSoprProductId">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="ProductApi">
 <Type>DOM.PM.ProductAPI</Type>
 <Private>1</Private>
@@ -36,11 +41,10 @@
 <Method name="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>
+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[
-	#dim Response As %Boolean = $$$False
 	#dim SoprKindProductId As %String = ""
 	#dim KindSoprProductId As %String = ""
 	
@@ -51,31 +55,36 @@
 				If (($$$HasLength(KindSoprProductId)) && (..ProductRolApi.IsSamengesteldProduct(KindSoprProductId))) {
 					Set SoprKindProductId = ..GeefKindProductId(KindSoprProductId, $$$True, "SoprKind")
 					If $$$HasLength(SoprKindProductId) {
-						Set Response = $$$True
+						Set ..KindSoprProductId = KindSoprProductId
 					}
 				}
 			}
 		}
 	}
 	
-	Quit Response
+	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>
+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 ""
+<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)
-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>
+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()
@@ -106,15 +115,15 @@
 <Method name="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>
+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="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>
+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>
Index: zTryout/THB/Klad.cls.xml
===================================================================
diff -u -r50931 -r50974
--- zTryout/THB/Klad.cls.xml	(.../Klad.cls.xml)	(revision 50931)
+++ zTryout/THB/Klad.cls.xml	(.../Klad.cls.xml)	(revision 50974)
@@ -153,7 +153,7 @@
 <Implementation><![CDATA[
 	// DEZE IS TE GEBRUIKEN IN PRODUCTIE
 	#dim ProductId As %String = ""
-	#dim LinkType, KindBouwsteenId, SoprKindBouwsteenId, SoprKindId As %String
+	#dim KindBouwsteenId, SoprKindBouwsteenId, SoprKindId As %String
 	#dim KindBouwsteenIterator, SoprKindIterator As TECH.Iterator
 	#dim KindBouwsteen, SoprKind As DOM.PM.KindBouwsteen