Index: OBJTimpl/BestandVerwerker.cls.xml
===================================================================
diff -u -r70681 -r72595
--- OBJTimpl/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 70681)
+++ OBJTimpl/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 72595)
@@ -8,19 +8,19 @@
 <Super>%RegisteredObject</Super>
 
 <Parameter name="OntvangMap">
-<Default>c:\WMSExchange\ObjtNaarAdmin</Default>
+<Default>WMSExchange\ObjtNaarAdmin</Default>
 </Parameter>
 
 <Parameter name="OntvangArchiefMap">
-<Default>c:\WMSExchange\ObjtNaarAdminArchive</Default>
+<Default>WMSExchange\ObjtNaarAdminArchive</Default>
 </Parameter>
 
 <Parameter name="VerstuurMap">
-<Default>c:\WMSExchange\AdminNaarObjt</Default>
+<Default>WMSExchange\AdminNaarObjt</Default>
 </Parameter>
 
 <Parameter name="VerstuurArchiefMap">
-<Default>c:\WMSExchange\AdminNaarObjtArchive</Default>
+<Default>WMSExchange\AdminNaarObjtArchive</Default>
 </Parameter>
 
 <Parameter name="VerstuurErrorMap">
@@ -38,15 +38,17 @@
 <Implementation><![CDATA[
  Set Error=0
  Lock +OBJTFileReader:0 Else  Quit
- Do GETFILES^vhDEV(..#OntvangMap,.Files,"*.*","F")
+ #dim PadOntvangMap As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("WMSExchange_RootDir") _ ..#OntvangMap
+ Do GETFILES^vhDEV(PadOntvangMap, .Files,"*.*","F")
  Hang 1
  ; Verwerking in volgorde van creatie van de bestanden
  Set File=$O(Files(""))
  While File'="" 
  {   
  	 Set PathAndFile=$TR($P(Files(File),"\"),"/","\")
  	 Do ..Correlate(PathAndFile)
-	 Do MOVEFILE^vhDEV(PathAndFile,,..#OntvangArchiefMap)
+ 	 #dim PadOntvangArchiefMap As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("WMSExchange_RootDir") _ ..#OntvangArchiefMap
+	 Do MOVEFILE^vhDEV(PathAndFile,,PadOntvangArchiefMap)
 
  	 Set File=$O(Files(File))
  }
@@ -85,7 +87,9 @@
 <Method name="MaakBestandsnaam">
 <FormalSpec>Label:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..#VerstuurMap_"\"_Label_" "_$tr($zdt($h,8),":-.")_" "_$I(^EWREC("P","OBJTFileCnt"))_".xml"
+<Implementation><![CDATA[
+	#dim PadVerstuurMap As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("WMSExchange_RootDir") _ ..#VerstuurMap
+	Quit PadVerstuurMap_"\"_Label_" "_$tr($zdt($h,8),":-.")_" "_$I(^EWREC("P","OBJTFileCnt"))_".xml"
 ]]></Implementation>
 </Method>
 
@@ -124,9 +128,13 @@
 <Implementation><![CDATA[
 	If $G(^EWREC("P","OBJTFileCnt"))>10000
 	{
-	 	Do SCANDIR^vhDEV(..#OntvangArchiefMap,"*.*","RemFiles","X",..#OpkuisNaDagen)
-	 	Do SCANDIR^vhDEV(..#VerstuurArchiefMap,"*.*","RemFiles","X",..#OpkuisNaDagen)
-	 	Do SCANDIR^vhDEV(..#VerstuurErrorMap,"*.*","RemFiles","X",..#OpkuisNaDagen*2)
+		#dim PadOntvangArchiefMap As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("WMSExchange_RootDir") _ ..#OntvangArchiefMap
+		#dim PadVerstuurArchiefMap As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("WMSExchange_RootDir") _ ..#VerstuurArchiefMap
+		#dim PadVerstuurErrorMap As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("WMSExchange_RootDir") _ ..#VerstuurErrorMap
+		
+	 	Do SCANDIR^vhDEV(PadOntvangArchiefMap, "*.*","RemFiles","X",..#OpkuisNaDagen)
+	 	Do SCANDIR^vhDEV(PadVerstuurArchiefMap, "*.*","RemFiles","X",..#OpkuisNaDagen)
+	 	Do SCANDIR^vhDEV(PadVerstuurErrorMap, "*.*","RemFiles","X",..#OpkuisNaDagen*2)
 		Kill ^EWREC("P","OBJTFileCnt")
 	}
 ]]></Implementation>