Index: vhDeploy/D20241219xConfigItemsSqlGcNaarAxSqlPrd.cls.xml
===================================================================
diff -u
--- vhDeploy/D20241219xConfigItemsSqlGcNaarAxSqlPrd.cls.xml	(revision 0)
+++ vhDeploy/D20241219xConfigItemsSqlGcNaarAxSqlPrd.cls.xml	(revision 74270)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20241219xConfigItemsSqlGcNaarAxSqlPrd">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>ConfigItems aanmaken voor AX SqlGatewayConnection (switch naar nieuwe PRD-vLan)</Default>
+</Parameter>
+
+<Property name="ConfigMgr">
+<Type>TECH.Config.ConfigMgr</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set DeployKlasse = ..%New()
+	Do DeployKlasse.Init()
+	Do DeployKlasse.PasAanConfigItems()
+]]></Implementation>
+</Method>
+
+<Method name="Init">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..ConfigMgr = ##class(TECH.Config.ConfigMgr).Instance()
+]]></Implementation>
+</Method>
+
+<Method name="PasAanConfigItems">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ConfigSleutel As %String = "AXimpl.SqlGatewayConnection_ConnectionDataSourceName"
+	#dim ConfigSleutelUsername As %String = "AXimpl.SqlGatewayConnection_ConnectionDataSource_SqlUser"
+	#dim ConfigSleutelPassword As %String = "AXimpl.SqlGatewayConnection_ConnectionDataSource_SqlPassword"
+
+ ;	Do ..MaakAanConfigItemVoorAxSqlGc(ConfigSleutel        , "CACHE01", "AX")   ; Bestaande configitem NOG NIET WIJZIGEN !!! Pas na cutover aanpassen naar nieuwe waarde "AX2012-PRD-ODBC" 
+	Do ..MaakAanConfigItemVoorAxSqlGc(ConfigSleutelUsername, "CACHE01", "SQL_CACHE01")
+	Do ..MaakAanConfigItemVoorAxSqlGc(ConfigSleutelPassword, "CACHE01", "ManueelInTeStellen")
+	
+ /*
+	Voor de volledigheid : 
+	=======================
+	Dit is de actuele waarde op cache01 :
+	^TECH.Config.ConfigItemD("PROD","AXimpl.SqlGatewayConnection_ConnectionDataSourceName")	= 	$lb("","AX")
+	^TECH.Config.ConfigItemD("PROD","AXimpl.SqlGatewayConnection_ConnectionDataSourceName","AppSpecifiekeWaarden","TestByWimV")	= 	"AX2012-PRD-ODBC"
+  	
+*/
+]]></Implementation>
+</Method>
+
+<Method name="MaakAanConfigItemVoorAxSqlGc">
+<FormalSpec>ConfigSleutel:%String,Server:%String,ConfigWaarde:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (Server = "*") || (##class(TECH.StringUtils).Equals($$$Server,Server)) {
+		Do ..ConfigMgr.ZetString(ConfigSleutel, ConfigWaarde )
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>