Index: zTryout/CSC/Try.cls.xml
===================================================================
diff -u -r1858 -r1860
--- zTryout/CSC/Try.cls.xml	(.../Try.cls.xml)	(revision 1858)
+++ zTryout/CSC/Try.cls.xml	(.../Try.cls.xml)	(revision 1860)
@@ -170,7 +170,7 @@
 
 <Method name="SchrijfProduct">
 <Description>
-Do ##class(zTryout.CSC.Try).SchrijfProduct(575276)</Description>
+Do ##class(zTryout.CSC.Try).SchrijfProduct(675151,700)</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ProductID:%Integer,VerplaatsNaarProductID:%Integer</FormalSpec>
 <Implementation><![CDATA[
@@ -181,7 +181,7 @@
 	{
 		If ("L" ] $E(Node,1,1))
 		{
-			w "Set ^KPR("_VerplaatsNaarProductID_","_Node_") = """_^KPR(ProductID,Node)_"""",!
+			w "Set ^KPR("_VerplaatsNaarProductID_","""_Node_""") = """_^KPR(ProductID,Node)_"""",!
 		}
 		Set Node = $Order(^KPR(ProductID,Node))
 	}
@@ -191,7 +191,7 @@
 	Do ResultSet.Execute(ProductID)
 	While (ResultSet.Next())
 	{
-		w "Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("""_ResultSet.Data("KenmerkGroep")_""", """_VerplaatsNaarProductID_""", """_ResultSet.Data("KenmerkNaam")_""", """_ResultSet.Data("Waarden")_""")",!
+		w "Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("""_ResultSet.Data("KenmerkGroep")_""", """_VerplaatsNaarProductID_""", """_ResultSet.Data("KenmerkNaam")_""", """_$LG(ResultSet.Data("Waarden"),1)_""")",!
 	}