Index: BLEXP.mac.rou
===================================================================
diff -u -r35495 -r35812
--- BLEXP.mac.rou	(.../BLEXP.mac.rou)	(revision 35495)
+++ BLEXP.mac.rou	(.../BLEXP.mac.rou)	(revision 35812)
@@ -7,26 +7,19 @@
  New MagNaarBlumExporteren,MSMGATEWAY
  Set MagNaarBlumExporteren = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("BLEXP.MAC_MagBLExportUitvoeren")
  If (MagNaarBlumExporteren) { ; Enkel op 'DEN ADMIN'
- 	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
-	}
+	 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
 
+
Index: BLEXPO1.mac.rou
===================================================================
diff -u -r29059 -r35812
--- BLEXPO1.mac.rou	(.../BLEXPO1.mac.rou)	(revision 29059)
+++ BLEXPO1.mac.rou	(.../BLEXPO1.mac.rou)	(revision 35812)
@@ -230,7 +230,9 @@
  ..Set ^HULP(%J,"DO",TLNr)=""
  .Else  Set ^HULP(%J,"SO",TLNr)=""
  Lock +^BLExport:60 Else  Set r=$$WARN^vhLock($NA(^BLExport),"X")  Quit
- D ^BLEXPO2,^BLEXP
+ D ^BLEXPO2  ;Vult BLExport op.
+ ;D ^BLEXP ;Export naar fixed length TXT : de oude manier.
+ D ##class(APPS.EDIExport.AankoopOrder.impl.BLUM.Verzender).%New().Verzend() ; Export naar XML : de nieuwe manier
  Lock -^BLExport
  D RTVW S (TR,VNR)=-1
 OTB4 Set Type="" For  Set Type=$O(^HULP(%J,Type)) Quit:Type=""  Do
@@ -423,3 +425,4 @@
  Set FileName="L"_$E($ZSTRIP(LevNaam,"*E'A'N"),1,10)_ToeNr_".pdf"
  Quit FileName
 
+
Index: vhDeploy/Deploy20160712VerwijderBLUMAankoopOrderXMLSetting.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20160712VerwijderBLUMAankoopOrderXMLSetting.cls.xml	(revision 0)
+++ vhDeploy/Deploy20160712VerwijderBLUMAankoopOrderXMLSetting.cls.xml	(revision 35812)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20160712VerwijderBLUMAankoopOrderXMLSetting">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Verwijderen setting :BLUM aankooporder generatie van bestanden volgens nieuwe XML structuur.</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim Sleutel As %String = "AankoopOrder.BLUM.ExportNaarXML"
+	
+	If ##class(TECH.Config.ConfigMgr).Instance().BestaatSleutel(Sleutel)
+	{
+		Do ##class(TECH.Config.ConfigMgr).Instance().WisSleutel(Sleutel)		
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>