Index: TECH/Config/ConfigMgr.cls.xml
===================================================================
diff -u -r9 -r297
--- TECH/Config/ConfigMgr.cls.xml	(.../ConfigMgr.cls.xml)	(revision 9)
+++ TECH/Config/ConfigMgr.cls.xml	(.../ConfigMgr.cls.xml)	(revision 297)
@@ -17,7 +17,7 @@
 - duurtijd waarop een applicatie een configuratie waarde mag cachen
 ...</Description>
 <ClassType/>
-<IncludeCode>vhLib.Macro,TECH.Error</IncludeCode>
+<IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 
@@ -43,14 +43,14 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	// Omgeving werd weggehaald uit de parameters omdat deze niet zou mogen gebruikt worden
-	Set Omgeving = ""
+	#dim Omgeving As %String = ""
 	
 	if '$length(Omgeving) { 
 		set Omgeving = ..GetOmgeving()
 	}
 	
-	set Identifier = ..BuildIdentifier(Omgeving,Sleutel)
-	set result = ##class(ConfigItem).%ExistsId(Identifier)
+	#dim Identifier As %String = ..BuildIdentifier(Omgeving,Sleutel)
+	#dim result As %Boolean = ##class(ConfigItem).%ExistsId(Identifier)
 	
 	if $$$Not(result) {
 		set Identifier = ..BuildIdentifier("",Sleutel)
@@ -68,10 +68,10 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	// Omgeving werd weggehaald uit de parameters omdat deze niet zou mogen gebruikt worden
-	Set Omgeving = ""
+	#dim Omgeving As %String = ""
 	
 	If '$length(Omgeving) Set Omgeving = ..GetOmgeving()
-	Set Identifier = ..BuildIdentifier(Omgeving,Sleutel)
+	#dim Identifier As %String = ..BuildIdentifier(Omgeving,Sleutel)
 	
 	Set configItem = ##class(ConfigItem).%OpenId(Identifier)
 	
@@ -84,13 +84,14 @@
 		
 		If '$data(DefaultWaarde) {
 			do ##class(vhLib.Logger).%New("TECH").Error("ConfigMgr","Sleutel "_Sleutel_" bestaat niet")
-			$$$ThrowError($$$errGeneralError,"ConfigItem met sleutel='" _ Sleutel _ "' bestaat niet!")
+			set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Sleutel "_Sleutel_" bestaat niet")
+			do ##class(TECH.ExceptionHandler).Throw(Exception)
 		}
 		
 		Quit DefaultWaarde
 	}
 	
-	Set waarde = configItem.GetWaarde()
+	#dim waarde As %String = configItem.GetWaarde()
 	Quit waarde
 ]]></Implementation>
 </Method>
@@ -124,10 +125,10 @@
 <FormalSpec>Sleutel:%String,Waarde:%String,Applicatie:%String</FormalSpec>
 <Implementation><![CDATA[
 	// Omgeving werd weggehaald uit de parameters omdat deze niet zou mogen gebruikt worden
-	Set Omgeving = ""
+	#dim Omgeving As %String = ""
 	
 	if '$length(Omgeving) Set Omgeving = ..GetOmgeving()
-	Set Identifier = ..BuildIdentifier(Omgeving,Sleutel)
+	#dim Identifier As %String = ..BuildIdentifier(Omgeving,Sleutel)
 	
 	Set configItem = ##class(ConfigItem).%OpenId(Identifier)
 	If '$IsObject(configItem) {
@@ -142,11 +143,10 @@
 		Set configItem.Waarde = Waarde
 	}	
 	
-	Set saveStatus = configItem.%Save()
+	#dim saveStatus As %Status = configItem.%Save()
 	If ($SYSTEM.Status.IsError(saveStatus)) {
-		Do $system.Status.DecomposeStatus(saveStatus,.Err)
-		Set statusTekst = Err(Err)
-		$$$ThrowError($$$errGeneralError,"Sleutel kan niet bewaard worden!")
+		set Exception = ##class(TECH.Exceptions.SaveFailedException).%New()
+		do ##class(TECH.ExceptionHandler).Throw("Sleutel kan niet bewaard worden!",saveStatus)
 	}
 ]]></Implementation>
 </Method>
@@ -176,32 +176,32 @@
 <Implementation><![CDATA[
 	// Omgeving werd weggehaald uit de parameters omdat deze niet zou mogen gebruikt worden
 	If ..BestaatSleutel(Sleutel){
-		Set Omgeving = ""
-		if '$length(Omgeving) Set Omgeving = ..GetOmgeving()
+		#dim Omgeving As %String = ..GetOmgeving()
+		
+		#dim Identifier As %String  = ..BuildIdentifier(Omgeving,Sleutel)
+		#dim wisStatus As %Status = ##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!")
+			set Exception = ##class(TECH.Exceptions.SaveFailedException).%New()
+			do ##class(TECH.ExceptionHandler).Throw("Sleutel kan niet gewist worden!",wisStatus)
 		}
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="GeefOmgeving">
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	set Sleutel= "TECH.Config.ConfigMgr_"_$$$UCase($$$Server) _ ":"_$$$UCase($$$NSpace)
-	Set Identifier = ..BuildIdentifier(..#AlgemeneOmgeving,Sleutel)
+	#dim Sleutel As %String = "TECH.Config.ConfigMgr_"_$$$UCase($$$Server) _ ":"_$$$UCase($$$NSpace)
+	#dim Identifier As %String = ..BuildIdentifier(..#AlgemeneOmgeving,Sleutel)
 	Set configItem = ##class(ConfigItem).%OpenId(Identifier)
-	set resOmgeving = configItem.GetWaarde()
-	quit resOmgeving
+	#dim Omgeving As %STring = configItem.GetWaarde()
+	quit Omgeving
 ]]></Implementation>
 </Method>
 
 <Method name="GetOmgeving">
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..GeefOmgeving()
 ]]></Implementation>
 </Method>