Index: vhDeploy/D20240722xConfigItemAanpassenCacheExportForDocBase.cls.xml
===================================================================
diff -u
--- vhDeploy/D20240722xConfigItemAanpassenCacheExportForDocBase.cls.xml	(revision 0)
+++ vhDeploy/D20240722xConfigItemAanpassenCacheExportForDocBase.cls.xml	(revision 73450)
@@ -0,0 +1,129 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20240722xConfigItemAanpassenCacheExportForDocBase">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>ConfigItems aanmaken : nieuwe folder CacheExport voor DocBase DetailBlad</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 = "APPS.Halux.PPS.ProductieDetailBlad.DocumentGenerator_FileLocation"
+	#dim ConfigSleutelNew As %String = ConfigSleutel_"_BeforeDocBaseV7"   ; "APPS.Halux.PPS.ProductieDetailBlad.DocumentGenerator_FileLocation_BeforeDocBaseV7" 
+
+	#dim ConfigWaarde As %String = ..GeefConfigWaardeVoorDetailBlad($$$Server)
+	
+	Do ..MaakBackupConfigItemVoorDetailBlad(ConfigSleutel, ConfigSleutelNew)
+	Do ..MaakAanConfigItemVoorDetailBlad(ConfigSleutel, ConfigWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="GeefConfigWaardeVoorDetailBlad">
+<Description>
+Bijvoorbeeld : 
+ConfigWaarde = "\\Notes01\FOP\TestOutput\CacheTst2010\CacheExport\2010v2\DEV1\PAS.ProductieDetailBlad" </Description>
+<FormalSpec>Server:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ConfigWaarde As %String = ""
+	#dim SubDirDetailBlad As %String = ""
+
+	If Server = "CACHE01" {
+		Set SubDirDetailBlad = "Cache01\CacheExport\2010v2\ADMIN1"
+	}
+	ElseIf ##class(TECH.StringUtils).Equals(Server, "CACHETST2010","CACHEACP2010","CACHEDEVUT2010","CACHEBUILD2010")  {
+		Set SubDirDetailBlad = Server _ "\CacheExport\2010v2\DEV1"
+	}
+	Else {
+		Set SubDirDetailBlad = "Cache_AlleAndereDEVs\CacheExport\2010v2\DEV1"
+	}
+	
+	Set ConfigWaarde = "\\Notes01\FOP\TestOutput\" _ SubDirDetailBlad _ "\PAS.ProductieDetailBlad"
+	Quit ConfigWaarde
+]]></Implementation>
+</Method>
+
+<Method name="MaakBackupConfigItemVoorDetailBlad">
+<FormalSpec>ConfigSleutel:%String,ConfigSleutelNew:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (..ConfigMgr.BestaatSleutel(ConfigSleutel)) {
+		#dim ConfigWaarde As %String = ..ConfigMgr.GeefString(ConfigSleutel)
+		If $$$Not(##class(TECH.StringUtils).Contains($$$LCase(ConfigWaarde), "\\notes01\fop")) {
+			Do ..ConfigMgr.ZetString(ConfigSleutelNew, ConfigWaarde )
+		}
+	}
+	
+	// Values in globals (JULI 2024) : 
+	;
+	; ^TECH.Config.ConfigItemD("DEV","APPS.Halux.PPS.ProductieDetailBlad.DocumentGenerator_FileLocation")	= 	$lb("","\\WV-W7\e$\CacheExport\2010v2\ADMIN1\PAS.ProductieDetailBlad")
+	; ^TECH.Config.ConfigItemD("PROD","APPS.Halux.PPS.ProductieDetailBlad.DocumentGenerator_FileLocation")	= 	$lb("","\\CACHE01\E$\CacheExport\PAS.ProductieDetailBlad")
+]]></Implementation>
+</Method>
+
+<Method name="MaakAanConfigItemVoorDetailBlad">
+<FormalSpec>ConfigSleutel:%String,ConfigWaarde:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..ConfigMgr.ZetString(ConfigSleutel, ConfigWaarde )
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+  =================================================================
+*/
+]]></Content>
+</UDLText>
+
+<Method name="ExecCodeReset">
+<Description>
+Oproepen via :
+  Do ##class(vhDeploy.D20240722xConfigItemAanpassenCacheExportForDocBase).ExecCodeReset()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set DeployKlasse = ..%New()
+	Do DeployKlasse.Init()
+	Do DeployKlasse.ResetConfigItemsNaarORIG()
+]]></Implementation>
+</Method>
+
+<Method name="ResetConfigItemsNaarORIG">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ConfigSleutel As %String = "APPS.Halux.PPS.ProductieDetailBlad.DocumentGenerator_FileLocation"
+	#dim ConfigSleutelORIG As %String = ConfigSleutel_"_BeforeDocBaseV7"   ; "APPS.Halux.PPS.ProductieDetailBlad.DocumentGenerator_FileLocation_BeforeDocBaseV7" 
+
+	If (..ConfigMgr.BestaatSleutel(ConfigSleutelORIG)) {
+		Do ..ConfigMgr.ZetString(ConfigSleutel, ..ConfigMgr.GeefString(ConfigSleutelORIG) )
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>