Index: TRANSPI.mac.rou
===================================================================
diff -u -r734 -r948
--- TRANSPI.mac.rou	(.../TRANSPI.mac.rou)	(revision 734)
+++ TRANSPI.mac.rou	(.../TRANSPI.mac.rou)	(revision 948)
@@ -9,8 +9,9 @@
  Quit
  
 VERWERK ; Selectie, verwerken van 1 EDI-bestand en opkuisen archive
- New Local,File,Dir
- Set Dir=^BLBeri("MSMGATEWAY")_"\ABX_IN\"
+ New Local,File,Dir,MSMGATEWAY
+ Set MSMGATEWAY=##Class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
+ Set Dir=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")
@@ -22,7 +23,8 @@
 SCAN ; Achtergrond job dat alle EDI-bestanden verwerkt 
  Set Q="K" D ^cA604
  Set $zt="TrapCatch^TRANSPI"	
- Set Dir=^BLBeri("MSMGATEWAY")_"\ABX_IN\"
+ Set MSMGATEWAY=##Class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
+ Set Dir=MSMGATEWAY_"\ABX_IN\"
  Do SCANDIR^vhDEV(Dir,"*.*",$NA(Local),"") 
  Set File=""
  For  Set File=$O(Local(File)) Quit:File=""  Do