Index: TRANSPI.mac.rou
===================================================================
diff -u -r948 -r1396
--- TRANSPI.mac.rou	(.../TRANSPI.mac.rou)	(revision 948)
+++ TRANSPI.mac.rou	(.../TRANSPI.mac.rou)	(revision 1396)
@@ -11,7 +11,7 @@
 VERWERK ; Selectie, verwerken van 1 EDI-bestand en opkuisen archive
  New Local,File,Dir,MSMGATEWAY
  Set MSMGATEWAY=##Class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
- Set Dir=MSMGATEWAY_"\ABX_IN\"
+ Set Dir=##class(TECH.Files).AppendSubPath(MSMGATEWAY,"\ABX_IN\")
  Write @F11,@F1,@FMTB," IMPORT ABX FACTURATIE - ",QN," ",@FMTb
  Set FP=2401 Write @F,@F1,"Ingave van het te importeren bestand"
  Set File=$$DISPDIR^vhDEV(Dir,"*.TXT")
@@ -24,7 +24,7 @@
  Set Q="K" D ^cA604
  Set $zt="TrapCatch^TRANSPI"	
  Set MSMGATEWAY=##Class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
- Set Dir=MSMGATEWAY_"\ABX_IN\"
+ Set Dir=##class(TECH.Files).AppendSubPath(MSMGATEWAY,"\ABX_IN\")
  Do SCANDIR^vhDEV(Dir,"*.*",$NA(Local),"") 
  Set File=""
  For  Set File=$O(Local(File)) Quit:File=""  Do
@@ -53,7 +53,7 @@
  Set FaktRun=0 ; Niet verwerken indien geen faktuurgegevens
  Set (CountSave,CountTrans)=0 ; Globale tellers van hoeveel er gesaved werd en hoeveel er gekoppeld werd met het transport 
  Set FileNm=$$READ^vhDEV(DirR,FileNm,"D`CONVONE^"_$ZN,"M")
- Set Status=$$MOVEFILE^vhDEV(DirR,FileNm,DirR_"ARCHIVE\") ; verplaatsen naar archive
+ Set Status=$$MOVEFILE^vhDEV(DirR,FileNm,##class(TECH.Files).AppendSubPath(DirR,"ARCHIVE\")) ; verplaatsen naar archive
  Do:CountSave MAIL(FileNm,CountSave,CountTrans) ; e-mailen alleen als er correcte data in het bestand zit, er worden veel dummy bestanden toegestuurd
  Quit