Index: zTryout/CSC/Try.cls.xml
===================================================================
diff -u -r2034 -r2478
--- zTryout/CSC/Try.cls.xml	(.../Try.cls.xml)	(revision 2034)
+++ zTryout/CSC/Try.cls.xml	(.../Try.cls.xml)	(revision 2478)
@@ -240,19 +240,29 @@
 		}
 		Set Node = $Order(^KPR(ProductID,Node))
 	}
-	
+	; KENMERKEN
 	Set ResultSet = ##class(%ResultSet).%New()
 	Do ResultSet.Prepare("SELECT KenmerkGroep, KenmerkNaam, Waarden FROM Prod_Kenmerk.DataDefinitie WHERE PRNr = ?")
 	Do ResultSet.Execute(ProductID)
 	While (ResultSet.Next())
 	{
 		w "Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("""_ResultSet.Data("KenmerkGroep")_""", """_VerplaatsNaarProductID_""", """_ResultSet.Data("KenmerkNaam")_""", """_$LG(ResultSet.Data("Waarden"),1)_""")",!
 	}
+	; BOUWSTENEN
+	w "Set ^PRBS(""BS"","_VerplaatsNaarProductID_")="""_^PRBS("BS",ProductID)_"""",!
+	Set BSKey=$O(^PRBS("BS",ProductID,""))
+	While (BSKey'="")
+	{
+		w "Set ^PRBS(""BS"","_VerplaatsNaarProductID_","""_BSKey_""")="""_^PRBS("BS",ProductID,BSKey)_"""",!
+		w:$D(^PRBS("BS",ProductID,BSKey,"D")) "Set ^PRBS(""BS"","_VerplaatsNaarProductID_","""_BSKey_""",""D"")="""_^PRBS("BS",ProductID,BSKey,"D")_"""",!
+		Set BSKey=$O(^PRBS("BS",ProductID,BSKey))
+	}
 	
-	
+
 	w !,"*** AFTER ALL TESTS ***",!!
 	w "Kill ^KPR("_VerplaatsNaarProductID_")",!
 	w "Do ##class(Prod.Kenmerk.DataDefinitie).DeleteViaPRNr("_VerplaatsNaarProductID_")",!
+	w "Do DELOBJ^PRBS("_VerplaatsNaarProductID_")",!
 ]]></Implementation>
 </Method>