Index: vhDeploy/D20200327xConfigItemWeekeFreesChanged.cls.xml
===================================================================
diff -u
--- vhDeploy/D20200327xConfigItemWeekeFreesChanged.cls.xml	(revision 0)
+++ vhDeploy/D20200327xConfigItemWeekeFreesChanged.cls.xml	(revision 60469)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20200327xConfigItemWeekeFreesChanged">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Config items voor Halux Weeke-frees aanpassen (nieuwe IP)</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim FromIp As %String = "192.168.2.59"
+	#dim NewIp  As %String = "10.32.3.1"
+	
+	Do ..PasAanConfigItem("FreesSaveFolder"    , FromIp, NewIp)
+	Do ..PasAanConfigItem("FreesListSaveFolder", FromIp, NewIp)
+]]></Implementation>
+</Method>
+
+<Method name="PasAanConfigItem">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Sleutel:%String,FromIp:%String,NewIp:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim ConfigMgr As TECH.Config.ConfigMgr = ##class(TECH.Config.ConfigMgr).Instance()
+	If (ConfigMgr.BestaatSleutel(Sleutel)) {
+		#dim Waarde As %String = ConfigMgr.GeefString(Sleutel)
+		
+		If (Waarde [ FromIp) {
+			#dim NieuweWaarde As %String = ##class(TECH.StringUtils).Replace(Waarde, FromIp, NewIp)
+			Do ConfigMgr.ZetString(Sleutel, NieuweWaarde)
+			Write !,"Config item '"_Sleutel_"' voor Halux Weeke-frees is aangepast naar '"_NieuweWaarde_"'",!
+		}
+	}
+	Else {
+		// Niet nodig om config-item toe te voegen wanneer het toch al niet bestond.
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>