Index: BLIMP.mac.rou
===================================================================
diff -u -r922 -r1396
--- BLIMP.mac.rou	(.../BLIMP.mac.rou)	(revision 922)
+++ BLIMP.mac.rou	(.../BLIMP.mac.rou)	(revision 1396)
@@ -5,22 +5,22 @@
  Set FP=2201 Write @F,@F1,"Ingave het te importeren bestand"
  
  Set MSMGATEWAY=##Class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
- Set Dir=MSMGATEWAY_"\EDI_IN\"
+ Set Dir=##class(TECH.Files).AppendSubPath(MSMGATEWAY,"\EDI_IN\")
  Set File=$$DISPDIR^vhDEV(Dir,"*.*")
  Quit:File=""
  Do CONVERT(Dir,File)
  
  ; Verwijderen van oude archives
  Set MSMGATEWAY=##Class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
- Do SCANDIR^vhDEV(MSMGATEWAY_"\EDI_IN\ARCHIVE\","*.*",$NA(Local),"X",30)
+ Do SCANDIR^vhDEV(##class(TECH.Files).AppendSubPath(MSMGATEWAY,"\EDI_IN\ARCHIVE\"),"*.*",$NA(Local),"X",30)
  
  D ^cA604,INIT^vhTERMINA
  Do ^BLVWIMP ; Verdergaan met verwerking van lijst
  Quit
  
 SCANONLINE ; verwerken van alle EDI bestanden opgeroepen van BLVWIMP
  Set MSMGATEWAY=##Class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
- Set Dir=MSMGATEWAY_"\EDI_IN\"
+ Set Dir=##class(TECH.Files).AppendSubPath(MSMGATEWAY,"\EDI_IN\")
  Set File=$$DISPDIR^vhDEV(Dir,"*.*")
  Quit:File=""
  Do CONVERT(Dir,File)
@@ -30,13 +30,13 @@
  New Dir,File,MSMGATEWAY
  S Q="K" D ^cA604
  Set MSMGATEWAY=##Class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
- Set Dir=MSMGATEWAY_"\EDI_IN\"
+ Set Dir=##class(TECH.Files).AppendSubPath(MSMGATEWAY,"\EDI_IN\")
  Do SCANDIR^vhDEV(Dir,"*.*",$NA(Local)) 
  Set File=""
  For  Set File=$O(Local(File)) Quit:File=""  Do
  . Do CONVERT(Dir,File,1) ; verwerken
  ;Verwijder oude archives
- Do SCANDIR^vhDEV(Dir_"ARCHIVE\","*.*",$NA(Local),"X",30)
+ Do SCANDIR^vhDEV(##class(TECH.Files).AppendSubPath(Dir,"ARCHIVE\"),"*.*",$NA(Local),"X",30)
  Kill Local
  Do SCANDIR^vhDEV(Dir,"*.*",$NA(Local)) 
  If $L($O(Local(""))) Do  ; Na het verwerken zijn er nog bestanden 
@@ -52,7 +52,7 @@
  Set File=$$READ^vhDEV(Dir,File,"D`LINE^"_$ZN,"M")
  If MsgNr Do ERREND
  ; Verplaatsen naar archive
- Set:$L(File) Status=$$MOVEFILE^vhDEV(Dir,File,Dir_"ARCHIVE\")
+ Set:$L(File) Status=$$MOVEFILE^vhDEV(Dir,File,##class(TECH.Files).AppendSubPath(Dir,"ARCHIVE\"))
  
  Quit
  
@@ -137,4 +137,5 @@
  Set:Type="D" Mem=$E(Mem,5,6)_"-"_$E(Mem,3,4)_"-"_$E(Mem,1,2)
  Set:Piece $P(R,D,Piece)=Mem
  Set:Local'="" @Local=Mem
- Set Tptr=$N(^(Tptr)) Goto TLoop
\ No newline at end of file
+ Set Tptr=$N(^(Tptr)) Goto TLoop
+ 
\ No newline at end of file