Index: vhUnitTest/DOM/PM/TestProductAPI.cls.xml
===================================================================
diff -u -r34735 -r34736
--- vhUnitTest/DOM/PM/TestProductAPI.cls.xml	(.../TestProductAPI.cls.xml)	(revision 34735)
+++ vhUnitTest/DOM/PM/TestProductAPI.cls.xml	(.../TestProductAPI.cls.xml)	(revision 34736)
@@ -21,22 +21,22 @@
 
 <Method name="TestKopieerProduct">
 <Implementation><![CDATA[
-	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	#dim ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	
-	Set Product = ProductAPI.GeefProduct(..#VLIVProductID)
+	#dim Product = ProductAPI.GeefProduct(..#VLIVProductID)
 	
 	// Wat data in de KPR schrijven om te kunnen controleren of bepaalde nodes niet gekopieerd zijn
 	Set ^KPR(..#VLIVProductID,"L1") = ""
 	Set ^KPR(..#VLIVProductID,"S1") = ""
 	Set ^KPR(..#VLIVProductID,"W1") = ""
 	
-	Set GekopieerdProductPRNr = ProductAPI.KopieerProduct(Product)
-	Set GekopieerdProduct = ProductAPI.GeefProduct(GekopieerdProductPRNr)
+	#dim GekopieerdProductPRNr = ProductAPI.KopieerProduct(Product)
+	#dim GekopieerdProduct = ProductAPI.GeefProduct(GekopieerdProductPRNr)
 	
 	Do $$$AssertTrue($IsObject(GekopieerdProduct),"Er is een object terug gegeven")
 	Do $$$AssertTrue(GekopieerdProduct.%Extends("DOM.PM.Product"),"Van het type product")
 	
-	Set Node = $Order(^KPR(GekopieerdProduct.GeefPRNr(),"K"))
+	#dim Node = $Order(^KPR(GekopieerdProduct.GeefPRNr(),"K"))
 	
 	// Er zouden geen nodes gevonden mogen worden. Indien er wel worden gevonden werd er teveel data gekopieerd.
 	Do $$$AssertEquals(Node,"","De gevonden node is leeg")