Index: vhDeploy/WV/Deploy20111213xLocationMakova.cls.xml
===================================================================
diff -u
--- vhDeploy/WV/Deploy20111213xLocationMakova.cls.xml	(revision 0)
+++ vhDeploy/WV/Deploy20111213xLocationMakova.cls.xml	(revision 3668)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.WV.Deploy20111213xLocationMakova">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>ConfigItem voor "Makova_ServerEnNamespace" toevoegen</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set SleutelECP="ECP_ServerEnNamespace"
+	Set SleutelMakova="Makova_ServerEnNamespace"
+	
+	If (##class(TECH.Config.ConfigMgr).Instance().BestaatSleutel(SleutelECP)) {
+		Set ServerEnNamespace=##class(TECH.Config.ConfigMgr).Instance().GetString(SleutelECP)   ; waarde overnemen en opslaan in item SleutelMakova 
+		Write "Het config-item ""ECP_ServerEnNamespace"" wordt gewist.",!
+		Do ##class(TECH.Config.ConfigMgr).Instance().WisSleutel(SleutelECP)
+	}
+	Else {
+		/// De ECP-locatie kan niet automatisch gevonden worden. 
+		/// Daarom wordt de server\namespace voor Makova default ingesteld op de huidige locatie. 
+		/// De correcte ECP-locatie moet dus manueel ingevuld worden in het config-item. 
+		Set ServerEnNamespace=##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam()_"\"_##class(TECH.Context.RuntimeContext).Instance().GeefNamespace()
+	}
+
+	Do:('(##class(TECH.Config.ConfigMgr).Instance().BestaatSleutel(SleutelMakova))) ##class(TECH.Config.ConfigMgr).Instance().SetString(SleutelMakova,ServerEnNamespace)
+	Write "Het config-item ""Makova_ServerEnNamespace"" is aangemaakt.",!
+]]></Implementation>
+</Method>
+</Class>
+</Export>