Index: BLEXP.mac.rou
===================================================================
diff -u -r29059 -r35211
--- BLEXP.mac.rou	(.../BLEXP.mac.rou)	(revision 29059)
+++ BLEXP.mac.rou	(.../BLEXP.mac.rou)	(revision 35211)
@@ -7,19 +7,28 @@
  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^vhLib.DataTypes($H,"J4")_$E(100+$$EXTDATE^vhLib.DataTypes($H,"MN"),2,3)_$E(100+$$EXTDATE^vhLib.DataTypes($H,"DMN"),2,3)
-	 Set Tijd=$$EXTTIME^vhLib.DataTypes($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 MSMGATEWAY=##class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
-	 Set Dev=$$OPEN^vhDEV(##class(TECH.Files).AppendSubPath(MSMGATEWAY,"\EDI_OUT\"),FileNm,"W","M")
-	 Use Dev
-	 Set I=""
-	 For  Set I=$O(^BLExport(I)) Quit:I=""  Do
-	 . Write ^BLExport(I),$C(13)
-	 Close Dev
+ 	Set ExporterenNaarXML = ##class(TECH.Config.ConfigMgr).Instance().GetString("AankoopOrder.BLUM.ExportNaarXML")
+ 	If (ExporterenNaarXML)
+ 	{
+	 	Do ##class(APPS.EDIExport.AankoopOrder.impl.BLUM.Verzender).%New().Verzend()
+	} 
+	else
+	{
+		Set FP=2401 Write @F
+		Set FileNm="Data"_$$EXTDATE^vhLib.DataTypes($H,"J4")_$E(100+$$EXTDATE^vhLib.DataTypes($H,"MN"),2,3)_$E(100+$$EXTDATE^vhLib.DataTypes($H,"DMN"),2,3)
+		Set Tijd=$$EXTTIME^vhLib.DataTypes($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 MSMGATEWAY=##class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
+		Set Dev=$$OPEN^vhDEV(##class(TECH.Files).AppendSubPath(MSMGATEWAY,"\EDI_OUT\"),FileNm,"W","M")
+		Use Dev
+		Set I=""
+		For  Set I=$O(^BLExport(I)) Quit:I=""  Do
+		. Write ^BLExport(I),$C(13)
+		Close Dev
+	}
  }
  Quit
  
 
+