Index: zTryout/JLM/WijzigInitialenInGlobals.cls.xml
===================================================================
diff -u
--- zTryout/JLM/WijzigInitialenInGlobals.cls.xml	(revision 0)
+++ zTryout/JLM/WijzigInitialenInGlobals.cls.xml	(revision 67385)
@@ -0,0 +1,112 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JLM.WijzigInitialenInGlobals">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="WijzigInitialenInGlobals">
+<Description>
+Do ##class(zTryout.JLM.WijzigInitialenInGlobals).WijzigInitialenInGlobals()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	// De volgorde bij de Van-Naar lijsten is van belang: we willen bvb eerst JWI-W10 vervangen en daarna pas JWI. In de omgekeerde volgorde zouden we JLM-W10 kunnen krijgen, wat fout is
+	#dim Van As %ListOfObjects  = $ListBuild("JWI-W10",   "JWI")
+	#dim Naar As %ListOfObjects = $ListBuild("JLM-WS020", "JLM")
+	#dim GlobalLijst As %ListOfObjects = $ListBuild("^TECH.Config.ConfigItemD")
+	#dim CaseSensitive As %Boolean = $$$False
+	
+	#dim i As %Integer
+	
+	If $$$Not($ListLength(Van) = $ListLength(Naar)) {
+		Write !, "De lijsten Van en Naar moeten even lang zijn: Van[i] wordt vervangen door Naar[i]"
+		Quit
+	}
+	
+	For i = 1:1:$ListLength(GlobalLijst) {
+		Do ..WijzigInitialenInGlobal($List(GlobalLijst, i), Van, Naar, CaseSensitive)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="WijzigInitialenInGlobal">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Global:%String,Van:%ListOfObjects,Naar:%ListOfObjects,CaseSensitive:%Boolean</FormalSpec>
+<Implementation><![CDATA[
+	#dim Key As %String = ""
+	#dim Waarde As %ListOfObjects
+	#dim NieuweWaarde As %ListOfObjects
+	
+	For { Set Key = $Order(@Global@("DEV", Key)) Quit:(Key="")
+		Set Waarde = @Global@("DEV", Key)
+		If ($ListValid(Waarde)) {
+			Set NieuweWaarde = ..WijzigInitialenInLijst(Waarde, Van, Naar, Global, Key, CaseSensitive)
+		} Else {
+			Set NieuweWaarde = ..WijzigInitialenInWaarde(Waarde, Van, Naar, CaseSensitive)
+		}
+		Set @Global@("DEV", Key) = NieuweWaarde
+	}
+]]></Implementation>
+</Method>
+
+<Method name="WijzigInitialenInLijst">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Lijst:%List,Van:%ListOfObjects,Naar:%ListOfObjects,Global:%String,Key:%String,CaseSensitive:%Boolean</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim i As %Integer
+	#dim Waarde As %String
+	#dim NieuweLijst As %ListOfObjects = ""
+	
+	For i = 1:1:$ListLength(Lijst) {
+		Try {
+			Set Waarde = $List(Lijst, i)
+			Set Waarde = ..WijzigInitialenInWaarde(Waarde, Van, Naar, CaseSensitive)
+			If ($Length(NieuweLijst) = 0) {
+				Set NieuweLijst = $ListBuild(Waarde)
+			} Else {
+				Set NieuweLijst = NieuweLijst _ $ListBuild(Waarde)
+			}
+		} Catch {
+			Write !, "Kon volgende global niet inlezen wegens error: ", Global, "(DEV, ", Key, ")"
+		}
+	}
+	
+	Quit NieuweLijst
+]]></Implementation>
+</Method>
+
+<Method name="WijzigInitialenInWaarde">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Waarde:%String,Van:%ListOfObjects,Naar:%ListOfObjects,CaseSensitive:%Boolean</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim i As %Integer
+	#dim VanWaarde As %String
+	#dim NaarWaarde As %String
+	
+	For i = 1:1:$ListLength(Van) {
+		Set VanWaarde = $List(Van, i)
+		Set NaarWaarde = $List(Naar, i)
+		
+		Set Waarde = $Replace(Waarde, VanWaarde, NaarWaarde, , , $$$Not(CaseSensitive))
+	}
+	
+	Quit Waarde
+]]></Implementation>
+</Method>
+
+<Method name="ZetDummyGlobals">
+<Description>
+Do ##class(zTryout.JLM.WijzigInitialenInGlobals).ZetDummyGlobals()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set ^DummyGlobalJLM("DEV", 1) = "JWI-W10"
+	Set ^DummyGlobalJLM("DEV", 2) = "JWI-jwi"
+	Set ^DummyGlobalJLM("DEV", 3) = "JWI-W10"
+	Set ^DummyGlobalJLM("DEV", 4) = "JWI@vanhoecke.be"
+	Set ^DummyGlobalJLM("DEV", 5) = $ListBuild("Blabla", "Systeemnaam: JWI-W10, Initialen: JWI, enzovoort", " -- Jwi, jWi, jwI -- ")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>