Index: vhDeploy/Deploy20160614BLUMAankoopOrderXMLSetting.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20160614BLUMAankoopOrderXMLSetting.cls.xml	(revision 0)
+++ vhDeploy/Deploy20160614BLUMAankoopOrderXMLSetting.cls.xml	(revision 35211)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20160614BLUMAankoopOrderXMLSetting">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>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"
+	#dim ProductieExportNaarXML As %String = "0"
+	#dim DevelopmentExportNaarXML As %String = "1"
+	
+	If ('(##class(TECH.Config.ConfigMgr).Instance().BestaatSleutel(Sleutel)))
+	{
+		If (##class(TECH.Config.ConfigMgr).Instance().GetOmgeving() = "PROD"){
+			Do ##class(TECH.Config.ConfigMgr).Instance().SetString(Sleutel,ProductieExportNaarXML)
+		}Else{
+			Do ##class(TECH.Config.ConfigMgr).Instance().SetString(Sleutel,DevelopmentExportNaarXML)
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender.cls.xml
===================================================================
diff -u -r35188 -r35211
--- APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender.cls.xml	(.../Verzender.cls.xml)	(revision 35188)
+++ APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender.cls.xml	(.../Verzender.cls.xml)	(revision 35211)
@@ -49,14 +49,14 @@
 	
 	#dim ORDERS05Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(ORDERS05List)
 	
-	#dim VolgNr As %Integer = 1
+	#dim VolgNr As %Integer = 0
 	While ORDERS05Iterator.HasNext()
 	{
-		Do ..Exporteer(ORDERS05Iterator.Next(), BestandLocatie, VolgNr)
 		Set VolgNr = VolgNr +1
+		Do ..Exporteer(ORDERS05Iterator.Next(), BestandLocatie, VolgNr)
 	}
 	
-	Do ..GenereerEmailTriggerBestand(BestandLocatie)
+	Do:(VolgNr>0) ..GenereerEmailTriggerBestand(BestandLocatie)
 ]]></Implementation>
 </Method>
 
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
  
 
+