Index: TRANSPEA.mac.rou
===================================================================
diff -u -r762 -r4867
--- TRANSPEA.mac.rou	(.../TRANSPEA.mac.rou)	(revision 762)
+++ TRANSPEA.mac.rou	(.../TRANSPEA.mac.rou)	(revision 4867)
@@ -15,7 +15,7 @@
  Set FileName=$$FILENAME(TranspNr)
  Do CLOSE^EWRECS(DH,1,1,"E",FileName_".EDI")
  Do:##class(TECH.Config.ConfigMgr).Instance().GetBoolean("TRANSPEA_MagVerwerken")
- .Set Dir=^EWREC("E","DIRS")
+ .Set Dir=##class(TECH.Config.ConfigMgr).Instance().GetString("WMSExchange_RootDir")_^EWREC("E","DIRS")
  .Do FTP(Dir,FileName,VervRef)
  .Do SCANDIR^vhDEV(Dir,"*.EDI","RetRef2","X",60)
  .Do SCANDIR^vhDEV(Dir,"*.LOG","RetRef2","X",60)
@@ -365,4 +365,6 @@
  Set $P(FileNum,"#",2)=$P(FileNum,"#",2)+1,$P(R,D,8)=FileNum,^TRANSP("T",TranspNr)=R
  Set FileName="ABX"_$E($$EXTDATE^vhDTyp($P(FileNum,"#"),"DKN"),1,4)_$C(64+$P(FileNum,"#",2))
  Quit FileName
- ;
\ No newline at end of file
+ ;
+
+