Index: DOM/PM/impl/DataM/KindBouwsteen.cls.xml
===================================================================
diff -u -r1349 -r1354
--- DOM/PM/impl/DataM/KindBouwsteen.cls.xml	(.../KindBouwsteen.cls.xml)	(revision 1349)
+++ DOM/PM/impl/DataM/KindBouwsteen.cls.xml	(.../KindBouwsteen.cls.xml)	(revision 1354)
@@ -56,13 +56,14 @@
 </Method>
 
 <Method name="ProductGet">
+<Private>1</Private>
 <ReturnType>DOM.PM.Product</ReturnType>
 <Implementation><![CDATA[
-	If ('$IsObject(i%Product))   ; [Review WV - CSC Bouwsteen]  moet dit niet  r%Product zijn  i.p.v. i% ? 
+	If ('$IsObject(r%Product)) 
 	{
-		Set i%Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct($Piece(..BouwsteenRecord,"\",1))
+		Set r%Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct($Piece(..BouwsteenRecord,"\",1))
 	}
-	Quit i%Product
+	Quit r%Product
 ]]></Implementation>
 </Method>
 
@@ -75,7 +76,8 @@
 		Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
 		If (..BouwsteenID = "")
 		{
-			Set BouwsteenID = $Order(^PRBS("BS",..MoederProduct.GeefPRNr(),"KIND.999"),-1)   ; [Review WV - CSC Bouwsteen]  Opgelet: dit loopt fout wanneer er geen subnode "KIND.nnn" aanwezig is. Dus moet ge eerst checken dat $P(BouwsteenID,".",1)="KIND" 
+			Set BouwsteenID = $Order(^PRBS("BS",..MoederProduct.GeefPRNr(),"KIND.999"),-1)
+			If ($P(BouwsteenID,".",1)'="KIND") { Set BouwsteenID = "KIND.000" }
 			Set $Piece(BouwsteenID,".",2) = $Translate($J($Piece(BouwsteenID,".",2)+1,3)," ","0")
 			Set ..BouwsteenID = BouwsteenID
 		}
Index: vhUnitTest/DOM/PM/TestSamengesteldProduct.cls.xml
===================================================================
diff -u -r1349 -r1354
--- vhUnitTest/DOM/PM/TestSamengesteldProduct.cls.xml	(.../TestSamengesteldProduct.cls.xml)	(revision 1349)
+++ vhUnitTest/DOM/PM/TestSamengesteldProduct.cls.xml	(.../TestSamengesteldProduct.cls.xml)	(revision 1354)
@@ -19,6 +19,8 @@
 	Set ^PRBS("BS",999,"KIND.001") = "4425\1\K\\\\\\\\P\"
 	Set ^PRBS("BS",999,"KIND.002") = "18791\1\K\\\\\\\\P\"
 	Set ^PRBS("BS",999,"TIJD.001") = "\1\T\\\\10\10\OLVERPAK\\VERPAK\\Vouwen"
+	
+	Set ^PRBS("BS",998,"TIJD.001") = "\1\T\\\\10\10\OLVERPAK\\VERPAK\\Vouwen"
  	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -30,6 +32,11 @@
 	Kill ^PRBS("IP",999,..KindPRNr)
 	Kill ^PRLINK("D",999)
 	Kill ^PRLINK("IKM",..KindPRNr,999)
+	
+	Kill ^PRBS("BS",998)
+	Kill ^PRBS("IP",998,..KindPRNr)
+	Kill ^PRLINK("D",998)
+	Kill ^PRLINK("IKM",..KindPRNr,998)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -121,7 +128,17 @@
 	Do $$$AssertFalse($D(^PRLINK("D",999)),"De andere nodes hadden geen index voordien en zijn ook niet aangemaakt, omdat de objecten niet zijn gewijzigd")
 	
 	
-	; [Review WV - CSC Bouwsteen]  Ook te testen :  VoegToeKindBouwsteen() indien nog geen KIND.001 aanwezig --> 2 cases: vorige BSKey is leeg / vorige BSKey is bvb AAA.001
+	// Testen met een product zonder kindbouwstenen en een nieuwe toevoegen
+	
+	Set Product = ProductAPI.GeefSamengesteldProduct(998)
+	Set KindProduct = ProductAPI.GeefProduct(..KindPRNr)
+	Set NieuwKindBouwsteen = Product.VoegToeKindBouwsteen(KindProduct,2)
+
+	Do Product.Save()
+	
+	Do $$$AssertEquals(NieuwKindBouwsteen.GeefID(),"KIND.001","Het label werd goed gegenereerd")
+	
+	Do NieuwKindBouwsteen.Delete()
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/impl/DataM/SamengesteldProduct.cls.xml
===================================================================
diff -u -r1349 -r1354
--- DOM/PM/impl/DataM/SamengesteldProduct.cls.xml	(.../SamengesteldProduct.cls.xml)	(revision 1349)
+++ DOM/PM/impl/DataM/SamengesteldProduct.cls.xml	(.../SamengesteldProduct.cls.xml)	(revision 1354)
@@ -148,6 +148,9 @@
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
+	// Deze leest enkel nog maar kindbouwstenen in.
+	// Indien uitbreiding voorzien wordt moet deze ook uitgebreid worden.
+	
 	If ('$IsObject(r%Bouwstenen))
 	{
 		Set r%Bouwstenen = ##class(%ListOfObjects).%New()
@@ -167,8 +170,6 @@
 				Do r%Bouwstenen.Insert(Bouwsteen)
 			}
 			
-			; [Review WV - CSC Bouwsteen]  Voegt deze dan alleen maar "KIND"-bouwstenen toe?  dan best een beetje commentaar ter verduidelijking 
-			
 			Set BouwsteenID = $Order(^PRBS("BS",..ProductNr,BouwsteenID))
 		}
 	}
Index: DOM/PM/impl/DataM/Bouwsteen.cls.xml
===================================================================
diff -u -r1349 -r1354
--- DOM/PM/impl/DataM/Bouwsteen.cls.xml	(.../Bouwsteen.cls.xml)	(revision 1349)
+++ DOM/PM/impl/DataM/Bouwsteen.cls.xml	(.../Bouwsteen.cls.xml)	(revision 1354)
@@ -91,10 +91,9 @@
 		}
 		If ($$$ISOK(Status))
 		{
-			Set ^PRBS("BS",..MoederProduct.GeefPRNr(),..BouwsteenID) = ..BouwsteenRecord   ; [Review WV - CSC Bouwsteen]  is er mogelijkheid om dit gemakkelijk uit te breiden naar "BSS"  (SchaduwBS)? 
+			Set ^PRBS("BS",..MoederProduct.GeefPRNr(),..BouwsteenID) = ..BouwsteenRecord
 			Set ..IsModified = 0
 		}
-		; [Review WV - CSC Bouwsteen]  Hier geen indexen nodig?  Nagevraagd bij PV ? 
 	}
 	Quit Status
 ]]></Implementation>