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>