Index: TECH/Config/ConfigMgr.cls.xml
===================================================================
diff -u -r23 -r321
--- TECH/Config/ConfigMgr.cls.xml	(.../ConfigMgr.cls.xml)	(revision 23)
+++ TECH/Config/ConfigMgr.cls.xml	(.../ConfigMgr.cls.xml)	(revision 321)
@@ -16,10 +16,10 @@
 - Default waarde (per omgeving?)
 - duurtijd waarop een applicatie een configuratie waarde mag cachen
 ...</Description>
+<ClassType/>
 <IncludeCode>vhLib.Macro,TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="LoggingTag">
 <Default>ConfigMgr</Default>
@@ -33,7 +33,7 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>TECH.Config.ConfigMgr</ReturnType>
 <Implementation><![CDATA[
- 	If '$Data(%TechConfigConfigMgr) Set %TechConfigConfigMgr = ..%New()
+ 	If ('$Data(%TechConfigConfigMgr) || ('$IsObject(%TechConfigConfigMgr))) Set %TechConfigConfigMgr = ..%New()
     Quit %TechConfigConfigMgr
 ]]></Implementation>
 </Method>
@@ -61,7 +61,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GetString">
+<Method name="GeefString">
 <Description>
 Remark: DefaultWaarde is optioneel.</Description>
 <FormalSpec>Sleutel:%String,DefaultWaarde:%String</FormalSpec>
@@ -95,16 +95,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GetString">
+<FormalSpec>Sleutel:%String,DefaultWaarde:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..GeefString(.Sleutel,.DefaultWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBoolean">
+<FormalSpec>Sleutel:%String,DefaultWaarde:%Boolean</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefString(Sleutel, .DefaultWaarde)
+]]></Implementation>
+</Method>
+
 <Method name="GetBoolean">
 <Description>
 Remark: DefaultWaarde is optioneel.</Description>
 <FormalSpec>Sleutel:%String,DefaultWaarde:%Boolean</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..GetString(Sleutel, .DefaultWaarde)
+<Implementation><![CDATA[	Quit ..GeefBoolean(Sleutel, .DefaultWaarde)
 ]]></Implementation>
 </Method>
 
-<Method name="SetString">
+<Method name="ZetString">
 <Description>
 Remark: Applicatie is optioneel.</Description>
 <FormalSpec>Sleutel:%String,Waarde:%String,Applicatie:%String</FormalSpec>
@@ -137,6 +151,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SetString">
+<FormalSpec>Sleutel:%String,Waarde:%String,Applicatie:%String</FormalSpec>
+<Implementation><![CDATA[	do ..ZetString(.Sleutel,.Waarde,.Applicatie)
+]]></Implementation>
+</Method>
+
 <Method name="BuildIdentifier">
 <FormalSpec>Omgeving:%String="",Sleutel:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -155,21 +175,23 @@
 <FormalSpec>Sleutel:%String</FormalSpec>
 <Implementation><![CDATA[
 	// Omgeving werd weggehaald uit de parameters omdat deze niet zou mogen gebruikt worden
-	Set Omgeving = ""
-	if '$length(Omgeving) Set Omgeving = ..GetOmgeving()
+	If ..BestaatSleutel(Sleutel){
+		Set Omgeving = ""
+		if '$length(Omgeving) Set Omgeving = ..GetOmgeving()
 	
-	Set Identifier = ..BuildIdentifier(Omgeving,Sleutel)
-	Set wisStatus = ##class(ConfigItem).%DeleteId(Identifier)
+		Set Identifier = ..BuildIdentifier(Omgeving,Sleutel)
+		Set wisStatus = ##class(ConfigItem).%DeleteId(Identifier)
 	
-	If ($SYSTEM.Status.IsError(wisStatus)) {
-			Do $system.Status.DecomposeStatus(wisStatus,.Err)
-			Set statusTekst = Err(Err)
-			$$$ThrowError($$$errGeneralError,"Sleutel kan niet gewist worden!")
+		If ($SYSTEM.Status.IsError(wisStatus)) {
+				Do $system.Status.DecomposeStatus(wisStatus,.Err)
+				Set statusTekst = Err(Err)
+				$$$ThrowError($$$errGeneralError,"Sleutel kan niet gewist worden!")
+		}
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="GetOmgeving">
+<Method name="GeefOmgeving">
 <Implementation><![CDATA[
 	set Sleutel= "TECH.Config.ConfigMgr_"_$$$UCase($$$Server) _ ":"_$$$UCase($$$NSpace)
 	Set Identifier = ..BuildIdentifier(..#AlgemeneOmgeving,Sleutel)
@@ -178,5 +200,10 @@
 	quit resOmgeving
 ]]></Implementation>
 </Method>
+
+<Method name="GetOmgeving">
+<Implementation><![CDATA[	quit ..GeefOmgeving()
+]]></Implementation>
+</Method>
 </Class>
 </Export>