Index: vhDeploy/JCL/D201202ChroomRelingWijzigen.cls.xml
===================================================================
diff -u
--- vhDeploy/JCL/D201202ChroomRelingWijzigen.cls.xml	(revision 0)
+++ vhDeploy/JCL/D201202ChroomRelingWijzigen.cls.xml	(revision 154)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.JCL.D201202ChroomRelingWijzigen">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Chroom Reling Wijzigen</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	set Query = "UPDATE WS_TBX.WebOrder_Lijnen Set Lijnen_ItemRK = 'MG' WHERE Lijnen_ItemRK = 'CR' AND Lijnen_ItemDS='GS'"
+	set rs = ##class(%ResultSet).%New()
+	do rs.Prepare(Query)
+	do rs.Execute()
+	do rs.Close()
+	set rs=""
+	
+	set Query = "UPDATE WS_TBX.WebOrder_Lijnen Set Lijnen_ItemRK = 'WI' WHERE Lijnen_ItemRK = 'CR' AND Lijnen_ItemDS='WS'"
+	set rs = ##class(%ResultSet).%New()
+	do rs.Prepare(Query)
+	do rs.Execute()
+	do rs.Close()
+	set rs=""
+	
+	; ^WS.TBX.KlantData("DFL","SFS",57129,"KLR","S","*","GS")=GS\LG\CR\FG
+	set GlobalRef = "^WS.TBX.KlantData"
+	for  { set GlobalRef = $Q(@GlobalRef) Quit:GlobalRef=""
+		if ($QS(GlobalRef,1)="DFL") && ($QS(GlobalRef,4)="KLR") {
+			if $QS(GlobalRef,7)?1(1"GS",1"WS") {
+				set Value = @GlobalRef
+				if $P(Value,"\",3)="CR" {
+					W !,GlobalRef," --> ",Value	
+					set $P(Value,"\",3)=$S($QS(GlobalRef,7)="GS":"MG",1:"WI")
+					W "-----> ",Value
+					set @GlobalRef=Value
+				}	
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: csp/tbx/resitems.cls.xml
===================================================================
diff -u -r117 -r154
--- csp/tbx/resitems.cls.xml	(.../resitems.cls.xml)	(revision 117)
+++ csp/tbx/resitems.cls.xml	(.../resitems.cls.xml)	(revision 154)
@@ -324,7 +324,7 @@
 	. Quit:($LG(lbItems,1)="")
 	. Write "arDS_KLR["_$$$QuoteJS("RK_"_iDS)_"]=Array("
 	. Write $$$QuoteJS($LG(lbItems,1))
-	. For i=2:1:$LL(lbItems) Write ", "_$$$QuoteJS($LG(lbItems,i))
+	. For i=2:1:$LL(lbItems) Write:$LG(lbItems,i)'="CR" ", "_$$$QuoteJS($LG(lbItems,i)) ; Chroom skippen
 	. Write ");",!
 	;Write !
 	;Write "var arDS_KLR_KX=Array();",!