Index: BLEXP.mac.rou
===================================================================
diff -u -r734 -r922
--- BLEXP.mac.rou	(.../BLEXP.mac.rou)	(revision 734)
+++ BLEXP.mac.rou	(.../BLEXP.mac.rou)	(revision 922)
@@ -4,14 +4,16 @@
  ;If '$O(^BLExport("")) Set FP=2301 Write @F,*7,*7,"Geen data in export bestand  (Druk een toets in)" Read *K Quit
  
  If '$O(^BLExport("")) Quit
+ New MagNaarBlumExporteren,MSMGATEWAY
  Set MagNaarBlumExporteren = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("BLEXP.MAC_MagBLExportUitvoeren")
  If (MagNaarBlumExporteren) { ; Enkel op 'DEN ADMIN'
 	 Set FP=2401 Write @F
 	 Set FileNm="Data"_$$EXTDATE^vhDTyp($H,"J4")_$E(100+$$EXTDATE^vhDTyp($H,"MN"),2,3)_$E(100+$$EXTDATE^vhDTyp($H,"DMN"),2,3)
 	 Set Tijd=$$EXTTIME^vhDTyp($P($H,",",2),"TKS")
 	 Set FileNm=FileNm_$E(100+$P(Tijd,":",1),2,3)_$E(100+$P(Tijd,":",2),2,3)_$E(100+$P(Tijd,":",3),2,3)_".OUT"
 	 ;Set FileNm="DATA.OUT"
-	 Set Dev=$$OPEN^vhDEV(^BLBeri("MSMGATEWAY")_"\EDI_OUT\",FileNm,"W","M")
+	 Set MSMGATEWAY=##Class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
+	 Set Dev=$$OPEN^vhDEV(MSMGATEWAY_"\EDI_OUT\",FileNm,"W","M")
 	 Use Dev
 	 Set I=""
 	 For  Set I=$O(^BLExport(I)) Quit:I=""  Do