Index: TECH/Config/ConfigMgr.cls.xml
===================================================================
diff -u -r2191 -r2620
--- TECH/Config/ConfigMgr.cls.xml	(.../ConfigMgr.cls.xml)	(revision 2191)
+++ TECH/Config/ConfigMgr.cls.xml	(.../ConfigMgr.cls.xml)	(revision 2620)
@@ -17,9 +17,8 @@
 - duurtijd waarop een applicatie een configuratie waarde mag cachen
 ...</Description>
 <ClassType/>
-<IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Parameter name="LoggingTag">
 <Default>ConfigMgr</Default>
@@ -33,7 +32,7 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>TECH.Config.ConfigMgr</ReturnType>
 <Implementation><![CDATA[
- 	If ('$Data(%TechConfigConfigMgr) || ('$IsObject(%TechConfigConfigMgr))) Set %TechConfigConfigMgr = ..%New()
+ 	If ($$$Not($Data(%TechConfigConfigMgr)) || ($$$Not($IsObject(%TechConfigConfigMgr)))) || ($$$Not(%TechConfigConfigMgr.%ClassIsLatestVersion())) Set %TechConfigConfigMgr = ..%New()
     Quit %TechConfigConfigMgr
 ]]></Implementation>
 </Method>
@@ -42,19 +41,13 @@
 <FormalSpec>Sleutel:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	// Omgeving werd weggehaald uit de parameters omdat deze niet zou mogen gebruikt worden
-	#dim Omgeving As %String = ""
-	
-	if '$length(Omgeving) { 
-		set Omgeving = ..GetOmgeving()
-	}
-	
+	#dim Omgeving As %String = ..GetOmgeving()
 	#dim Identifier As %String = ..BuildIdentifier(Omgeving,Sleutel)
-	#dim result As %Boolean = ##class(ConfigItem).%ExistsId(Identifier)
+	#dim result As %Boolean = ##class(TECH.Config.ConfigItem).%ExistsId(Identifier)
 	
 	if $$$Not(result) {
 		set Identifier = ..BuildIdentifier("",Sleutel)
-		set result = ##class(ConfigItem).%ExistsId(Identifier)
+		set result = ##class(TECH.Config.ConfigItem).%ExistsId(Identifier)
 	}
 	
 	quit result
@@ -67,17 +60,14 @@
 <FormalSpec>Sleutel:%String,DefaultWaarde:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	// Omgeving werd weggehaald uit de parameters omdat deze niet zou mogen gebruikt worden
-	#dim Omgeving As %String = ""
-	
-	If '$length(Omgeving) Set Omgeving = ..GetOmgeving()
+	#dim Omgeving As %String = ..GetOmgeving()
 	#dim Identifier As %String = ..BuildIdentifier(Omgeving,Sleutel)
 	
-	Set configItem = ##class(ConfigItem).%OpenId(Identifier,$$$ConcurrenyNoLocks)
+	Set configItem = ##class(TECH.Config.ConfigItem).%OpenId(Identifier,$$$ConcurrenyNoLocks)
 	
 	if '$isobject(configItem) {    // try to open with default 
 		Set Identifier = ..BuildIdentifier("",Sleutel)
-		Set configItem = ##class(ConfigItem).%OpenId(Identifier,$$$ConcurrenyNoLocks)
+		Set configItem = ##class(TECH.Config.ConfigItem).%OpenId(Identifier,$$$ConcurrenyNoLocks)
 	}
 	
 	If '$isobject(configItem) {
@@ -124,15 +114,12 @@
 Remark: Applicatie is optioneel.</Description>
 <FormalSpec>Sleutel:%String,Waarde:%String,Applicatie:%String</FormalSpec>
 <Implementation><![CDATA[
-	// Omgeving werd weggehaald uit de parameters omdat deze niet zou mogen gebruikt worden
-	#dim Omgeving As %String = ""
-	
-	if '$length(Omgeving) Set Omgeving = ..GetOmgeving()
+	#dim Omgeving As %String = ..GetOmgeving()
 	#dim Identifier As %String = ..BuildIdentifier(Omgeving,Sleutel)
 	
-	Set configItem = ##class(ConfigItem).%OpenId(Identifier)
+	Set configItem = ##class(TECH.Config.ConfigItem).%OpenId(Identifier)
 	If '$IsObject(configItem) {
-		Set configItem = ##class(ConfigItem).%New()
+		Set configItem = ##class(TECH.Config.ConfigItem).%New()
 		Set configItem.Sleutel = Sleutel
 		Set configItem.Omgeving = Omgeving
 	}
@@ -172,18 +159,23 @@
 </Method>
 
 <Method name="WisSleutel">
-<FormalSpec>Sleutel:%String</FormalSpec>
+<FormalSpec>Sleutel:%String,Applicatie:%String=""</FormalSpec>
 <Implementation><![CDATA[
-	// Omgeving werd weggehaald uit de parameters omdat deze niet zou mogen gebruikt worden
 	If ..BestaatSleutel(Sleutel){
 		#dim Omgeving As %String = ..GetOmgeving()
 		
 		#dim Identifier As %String  = ..BuildIdentifier(Omgeving,Sleutel)
-		#dim wisStatus As %Status = ##class(ConfigItem).%DeleteId(Identifier)
-	
-		If ($SYSTEM.Status.IsError(wisStatus)) {
-			set Exception = ##class(TECH.Exceptions.SaveFailedException).%New()
-			do ##class(TECH.ExceptionHandler).Throw("Sleutel kan niet gewist worden!",wisStatus)
+		
+		if $length(Applicatie) {
+			set ConfigItem = ##class(TECH.Config.ConfigItem).%OpenId(Identifier)
+			do ConfigItem.RemoveAppSpecifiekeWaarde(Applicatie)
+			do ConfigItem.Save()
+		} else {
+			#dim wisStatus As %Status = ##class(TECH.Config.ConfigItem).%DeleteId(Identifier)
+			If ($SYSTEM.Status.IsError(wisStatus)) {
+				set Exception = ##class(TECH.Exceptions.SaveFailedException).%New()
+				do ##class(TECH.ExceptionHandler).Throw("Sleutel kan niet gewist worden!",wisStatus)
+			}
 		}
 	}
 ]]></Implementation>
@@ -194,8 +186,8 @@
 <Implementation><![CDATA[
 	#dim Sleutel As %String = "TECH.Config.ConfigMgr_"_$$$UCase($$$Server) _ ":"_$$$UCase($$$NSpace)
 	#dim Identifier As %String = ..BuildIdentifier(..#AlgemeneOmgeving,Sleutel)
-	Set configItem = ##class(ConfigItem).%OpenId(Identifier,$$$ConcurrenyNoLocks)
-	#dim Omgeving As %STring = configItem.GetWaarde()
+	Set configItem = ##class(TECH.Config.ConfigItem).%OpenId(Identifier,$$$ConcurrenyNoLocks)
+	#dim Omgeving As %String = configItem.GetWaarde()
 	quit Omgeving
 ]]></Implementation>
 </Method>