Index: BL/Flow/Offerte/ScanEDIMail.cls.xml
===================================================================
diff -u -r771 -r901
--- BL/Flow/Offerte/ScanEDIMail.cls.xml	(.../ScanEDIMail.cls.xml)	(revision 771)
+++ BL/Flow/Offerte/ScanEDIMail.cls.xml	(.../ScanEDIMail.cls.xml)	(revision 901)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-02 15:53:02">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-04 08:29:22">
 <Class name="BL.Flow.Offerte.ScanEDIMail">
 <IncludeCode>BL.EC.Common,BL.Derde.KlantSpecifiek,%VHMacro,%occStatus</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62124,57225.379528</TimeChanged>
+<TimeChanged>62154,30632.05375</TimeChanged>
 <TimeCreated>61773,56551.521812</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -56,9 +56,10 @@
 	    Set DirArchive=TestPath_..#SubPath_..#ArchiveSubPath
 	    Set DirTemp=TestPath_..#SubPath_..#TempSubPath }
 	Else {
-	    Set DirRead=^BLBeri("MSMGATEWAY")_..#SubPath
-	    Set DirArchive=^BLBeri("MSMGATEWAY")_..#SubPath_..#ArchiveSubPath
-	    Set DirTemp=^BLBeri("MSMGATEWAY")_..#SubPath_..#TempSubPath	}
+		Set MSMGATEWAY=##Class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
+	    Set DirRead=MSMGATEWAY_..#SubPath
+	    Set DirArchive=MSMGATEWAY_..#SubPath_..#ArchiveSubPath
+	    Set DirTemp=MSMGATEWAY_..#SubPath_..#TempSubPath	}
 	    	
 	Do SCANDIR^vhDEV(DirRead,"*.*",$NA(Local),"") ; Opbouw van local met de bestandsnamen 
 	Set FileName=""
@@ -304,5 +305,5 @@
 ]]></Content>
 </UDLText>
 </Class>
-<Checksum value="2446624165"/>
+<Checksum value="3587029157"/>
 </Export>