Index: WS/FOP/DocBase2.cls.xml
===================================================================
diff -u -r1074 -r3948
--- WS/FOP/DocBase2.cls.xml	(.../DocBase2.cls.xml)	(revision 1074)
+++ WS/FOP/DocBase2.cls.xml	(.../DocBase2.cls.xml)	(revision 3948)
@@ -4,14 +4,6 @@
 <Super>%SOAP.WebClient,WS.SOAPClientExt</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Parameter name="LOCATIONxxCACHE01xxADMIN1">
-<Default>http://fop:14012/DocBase2/services/ProcessorInvoker</Default>
-</Parameter>
-
-<Parameter name="LOCATIONxxCACHE02xxDEVADMIN1">
-<Default>http://fop:14002/DocBase2/services/ProcessorInvoker</Default>
-</Parameter>
-
 <Parameter name="LOCATION">
 <Description>
 This is the URL used to access the web service.</Description>
@@ -38,6 +30,21 @@
 <Default>1</Default>
 </Parameter>
 
+<Method name="%OnNew">
+<Description>
+Instellen van location, naar wat omschreven is in config item.</Description>
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set RootLocation = ##class(TECH.Config.ConfigMgr).Instance().GetString("WS.FOP.DocBase_RootLocation")
+	Set ..Location = ##class(TECH.Files).AppendFile(RootLocation,"ProcessorInvoker")
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="PeekServer">
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
Index: WS/FOP/DocBase2Async.cls.xml
===================================================================
diff -u -r1074 -r3948
--- WS/FOP/DocBase2Async.cls.xml	(.../DocBase2Async.cls.xml)	(revision 1074)
+++ WS/FOP/DocBase2Async.cls.xml	(.../DocBase2Async.cls.xml)	(revision 3948)
@@ -4,14 +4,6 @@
 <Super>%SOAP.WebClient,WS.SOAPClientExt</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Parameter name="LOCATIONxxCACHE01xxADMIN1">
-<Default>http://fop:14012/DocBase2/services/AsyncProcessorInvoker</Default>
-</Parameter>
-
-<Parameter name="LOCATIONxxCACHE02xxDEVADMIN1">
-<Default>http://fop:14002/DocBase2/services/AsyncProcessorInvoker</Default>
-</Parameter>
-
 <Parameter name="LOCATION">
 <Description>
 This is the URL used to access the web service.</Description>
@@ -38,6 +30,21 @@
 <Default>1</Default>
 </Parameter>
 
+<Method name="%OnNew">
+<Description>
+Instellen van location, naar wat omschreven is in config item.</Description>
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set RootLocation = ##class(TECH.Config.ConfigMgr).Instance().GetString("WS.FOP.DocBase_RootLocation")
+	Set ..Location = ##class(TECH.Files).AppendFile(RootLocation,"AsyncProcessorInvoker")
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="PeekServer">
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
Index: vhDeploy/WV/Deploy20111215xDocBaseLocation.cls.xml
===================================================================
diff -u
--- vhDeploy/WV/Deploy20111215xDocBaseLocation.cls.xml	(revision 0)
+++ vhDeploy/WV/Deploy20111215xDocBaseLocation.cls.xml	(revision 3948)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.WV.Deploy20111215xDocBaseLocation">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>ConfigItem voor DocBase Location toevoegen</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Sleutel = "WS.FOP.DocBase_RootLocation"
+	Set ProductieRootLocation = "http://fop:14012/DocBase2/services/"
+	Set DevelopmentRootLocation = "http://fop:14002/DocBase2/services/"
+	
+	If ('(##class(TECH.Config.ConfigMgr).Instance().BestaatSleutel(Sleutel)))
+	{
+		If (##class(TECH.Config.ConfigMgr).Instance().GetOmgeving() = "PROD"){
+			Do ##class(TECH.Config.ConfigMgr).Instance().SetString(Sleutel,ProductieRootLocation)
+		}Else{
+			Do ##class(TECH.Config.ConfigMgr).Instance().SetString(Sleutel,DevelopmentRootLocation)
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>