Index: EWRECS.mac.rou
===================================================================
diff -u -r734 -r4867
--- EWRECS.mac.rou	(.../EWRECS.mac.rou)	(revision 734)
+++ EWRECS.mac.rou	(.../EWRECS.mac.rou)	(revision 4867)
@@ -48,7 +48,7 @@
  Set NoStore=$G(NoStore),NoMove=$G(NoMove),ParmRef=$G(ParmRef,"P"),FileNm=$G(FileNm)
  Quit:$O(^EWREC("DH",DH,""))="" ;Geen records ingevuld
  Lock +^EWREC("S")
- Set TempDir=^EWREC(ParmRef,$S(NoMove:"DIRS",1:"DIRTEMPS"))
+ Set TempDir=##class(TECH.Config.ConfigMgr).Instance().GetString("WMSExchange_RootDir")_^EWREC(ParmRef,$S(NoMove:"DIRS",1:"DIRTEMPS"))
  Set:FileNm="" FileNm=$$GetFileNm()
  Set Dev=$$OPEN^vhDEV(TempDir,FileNm,"W","M")
  If 0[Dev Do ERROR^EWLOG($T(NOOPEN)) Quit
@@ -63,15 +63,15 @@
  Close Dev
  ; Copieren van het tijdelijk bestand naar E'WMS (ook de achtergebleven bestanden)
  If 'NoMove Do  ; Niet bij ABX wel bij EWMS
- . Set X=$$MOVEFILE^vhDEV(TempDir,"*.*",^EWREC(ParmRef,"DIRS"),"")
+ . Set X=$$MOVEFILE^vhDEV(TempDir,"*.*",##class(TECH.Config.ConfigMgr).Instance().GetString("WMSExchange_RootDir")_^EWREC(ParmRef,"DIRS"),"")
  . If X Do ERROR^EWLOG($T(NOMOVE))
  . ; De FTP van het WMS kijkt alleen naar de bestanden met extensie .txt
  . ; ook de achtergebleven bestanden zonder .txt extensie moeten omgezet worden
- . Do SCANDIR^vhDEV(^EWREC(ParmRef,"DIRS"),"*.*","Files","L") ; ophalen van bestandsnamen in lowercase
+ . Do SCANDIR^vhDEV(##class(TECH.Config.ConfigMgr).Instance().GetString("WMSExchange_RootDir")_^EWREC(ParmRef,"DIRS"),"*.*","Files","L") ; ophalen van bestandsnamen in lowercase
  . Set FileNm=""
  . For  Set FileNm=$O(Files(FileNm)) Quit:FileNm=""  Do
  . . Quit:FileNm[".txt" ; reeds gerenamed
- . . Set X=$$RENFILE^vhDEV(^EWREC(ParmRef,"DIRS"),FileNm,FileNm_".txt")
+ . . Set X=$$RENFILE^vhDEV(##class(TECH.Config.ConfigMgr).Instance().GetString("WMSExchange_RootDir")_^EWREC(ParmRef,"DIRS"),FileNm,FileNm_".txt")
  . . If X Do ERROR^EWLOG($T(NOREN))
  Lock -^EWREC("S")
  Kill ^EWREC("DH",DH) ; Opkuis
@@ -195,6 +195,8 @@
  
  ; Errormeldingen
 NOPEN ;"Can file niet openen voor schrijven "_TempDir_";"_FileNm
-NOMOVE ;"Fout in Move file "_FileNm_" from "_TempDir_" to "_^EWREC($G(ParmRef,"P"),"DIRS")_";"_X
-NOREN ;"Fout in rename file "_FileNm_" from "_TempDir_" to "_^EWREC($G(ParmRef,"P"),"DIRS")_";"_X
-NODEL ;"Fout in Del file from tempdir "_X
\ No newline at end of file
+NOMOVE ;"Fout in Move file "_FileNm_" from "_TempDir_" to "_##class(TECH.Config.ConfigMgr).Instance().GetString("WMSExchange_RootDir")_^EWREC($G(ParmRef,"P"),"DIRS")_";"_X
+NOREN ;"Fout in rename file "_FileNm_" from "_TempDir_" to "_##class(TECH.Config.ConfigMgr).Instance().GetString("WMSExchange_RootDir")_^EWREC($G(ParmRef,"P"),"DIRS")_";"_X
+NODEL ;"Fout in Del file from tempdir "_X
+
+