Index: vhUnitTest/DOM/PM/TestProductAPI.cls.xml
===================================================================
diff -u -r34734 -r34735
--- vhUnitTest/DOM/PM/TestProductAPI.cls.xml	(.../TestProductAPI.cls.xml)	(revision 34734)
+++ vhUnitTest/DOM/PM/TestProductAPI.cls.xml	(.../TestProductAPI.cls.xml)	(revision 34735)
@@ -7,16 +7,28 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 
+<Parameter name="VLIVProductID">
+<Type>%String</Type>
+<Default>794518</Default>
+</Parameter>
+
+<Parameter name="KindProductID">
+<Description>
+dwarsverdeling om in te korten</Description>
+<Type>%String</Type>
+<Default>1384232</Default>
+</Parameter>
+
 <Method name="TestKopieerProduct">
 <Implementation><![CDATA[
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	
-	Set Product = ProductAPI.GeefProduct(794518)
+	Set Product = ProductAPI.GeefProduct(..#VLIVProductID)
 	
 	// Wat data in de KPR schrijven om te kunnen controleren of bepaalde nodes niet gekopieerd zijn
-	Set ^KPR(794518,"L1") = ""
-	Set ^KPR(794518,"S1") = ""
-	Set ^KPR(794518,"W1") = ""
+	Set ^KPR(..#VLIVProductID,"L1") = ""
+	Set ^KPR(..#VLIVProductID,"S1") = ""
+	Set ^KPR(..#VLIVProductID,"W1") = ""
 	
 	Set GekopieerdProductPRNr = ProductAPI.KopieerProduct(Product)
 	Set GekopieerdProduct = ProductAPI.GeefProduct(GekopieerdProductPRNr)
@@ -35,18 +47,18 @@
 	// Nagaan of PRLINK is gekopieerd
 	Do $$$AssertTrue($Data(^PRLINK("D",GekopieerdProduct.GeefPRNr())),"Er zijn PRLINK nodes")
 	
-	Do $$$AssertTrue($Data(^PRLINK("IKM",1384232,GekopieerdProduct.GeefPRNr())),"De node is aanwezig")
+	Do $$$AssertTrue($Data(^PRLINK("IKM",..#KindProductID,GekopieerdProduct.GeefPRNr())),"De node is aanwezig")
 	
-	Kill ^KPR(794518,"L1")
-	Kill ^KPR(794518,"S1")
-	Kill ^KPR(794518,"W1")
+	Kill ^KPR(..#VLIVProductID,"L1")
+	Kill ^KPR(..#VLIVProductID,"S1")
+	Kill ^KPR(..#VLIVProductID,"W1")
 	
 	Kill ^KPR(GekopieerdProduct.GeefPRNr())
 	Kill ^PRBS("BS",GekopieerdProduct.GeefPRNr())
 	Kill ^PRBS("IP",GekopieerdProduct.GeefPRNr())
 	Kill ^PRLINK("D",GekopieerdProduct.GeefPRNr())
 	
-	Kill ^PRLINK("IKM",1384232,GekopieerdProduct.GeefPRNr())
+	Kill ^PRLINK("IKM",..#KindProductID,GekopieerdProduct.GeefPRNr())
 	
 	Do Verwijderd^PRODUKT2(GekopieerdProduct.GeefPRNr())
 ]]></Implementation>
@@ -55,9 +67,9 @@
 <Method name="OnAfterAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Kill ^KPR(794518,"L1")
-	Kill ^KPR(794518,"S1")
-	Kill ^KPR(794518,"W1")
+	Kill ^KPR(..#VLIVProductID,"L1")
+	Kill ^KPR(..#VLIVProductID,"S1")
+	Kill ^KPR(..#VLIVProductID,"W1")
 	
 	Quit $$$OK
 ]]></Implementation>