Index: vhDeploy/D20240226xConfigItemWsFopNaarNieuweDocBase.cls.xml
===================================================================
diff -u
--- vhDeploy/D20240226xConfigItemWsFopNaarNieuweDocBase.cls.xml	(revision 0)
+++ vhDeploy/D20240226xConfigItemWsFopNaarNieuweDocBase.cls.xml	(revision 73228)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20240226xConfigItemWsFopNaarNieuweDocBase">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>ConfigItems aanmaken : WS nieuwe DocBase01-DEV</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.VoegToeConfigItems()
+]]></Implementation>
+</Method>
+
+<Method name="Init">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..ConfigMgr = ##class(TECH.Config.ConfigMgr).Instance()
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeConfigItems">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ConfigSleutel As %String = "BL.Sys.FOP.DocBaseV7.AsyncProcessorInvokerWebClient_RootLocation"
+	Do ..MaakAanConfigItemVoorDocBaseV7(ConfigSleutel, "CACHETST2010", "http://docbase01-dev:14002/DocBase2/services/")
+	Do ..MaakAanConfigItemVoorDocBaseV7(ConfigSleutel, "CACHEACP2010", "http://docbase01-acp:14002/DocBase2/services/")
+	Do ..MaakAanConfigItemVoorDocBaseV7(ConfigSleutel, "CACHE01",      "http://docbase01-prd:14002/DocBase2/services/")
+]]></Implementation>
+</Method>
+
+<Method name="MaakAanConfigItemVoorDocBaseV7">
+<FormalSpec>ConfigSleutel:%String,Server:%String,ConfigWaarde:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (##class(TECH.StringUtils).Equals($$$Server,Server)) {
+		Do ..ConfigMgr.ZetString(ConfigSleutel, ConfigWaarde )
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>