Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml
===================================================================
diff -u -r35402 -r35459
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml	(.../Ontvanger.cls.xml)	(revision 35402)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml	(.../Ontvanger.cls.xml)	(revision 35459)
@@ -47,6 +47,8 @@
 <Method name="Ontvang">
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
+ 	Quit:(##class(TECH.Config.ConfigMgr).Instance().GetString("AankoopOrderResponse.BLUM.ImportXML")'="1")
+
 	#Dim BestandenList = ..GeefTeVerwerkenBestanden()
 	#Dim BestandenListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(BestandenList)
 	While BestandenListIterator.HasNext()
Index: BLIMP.mac.rou
===================================================================
diff -u -r29059 -r35459
--- BLIMP.mac.rou	(.../BLIMP.mac.rou)	(revision 29059)
+++ BLIMP.mac.rou	(.../BLIMP.mac.rou)	(revision 35459)
@@ -19,6 +19,9 @@
  Quit
  
 SCANONLINE ; verwerken van alle EDI bestanden opgeroepen van BLVWIMP
+
+ Do ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger).%New().Ontvang()
+
  Set MSMGATEWAY=##class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
  Set Dir=##class(TECH.Files).AppendSubPath(MSMGATEWAY,"\EDI_IN\")
  Set File=$$DISPDIR^vhDEV(Dir,"*.*")
@@ -27,6 +30,9 @@
  Quit
  
 SCAN ; Achtergrond job dat alle EDI-bestanden verwerkt 
+ 
+ Do ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger).%New().Ontvang()
+
  New Dir,File,MSMGATEWAY
  S Q="K" D ^cA604
  Set MSMGATEWAY=##class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
@@ -140,3 +146,4 @@
  Set Tptr=$N(^(Tptr)) Goto TLoop
  
 
+
Index: vhDeploy/Deploy20160622BLUMAankoopOrderResponseXMLSetting.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20160622BLUMAankoopOrderResponseXMLSetting.cls.xml	(revision 0)
+++ vhDeploy/Deploy20160622BLUMAankoopOrderResponseXMLSetting.cls.xml	(revision 35459)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20160622BLUMAankoopOrderResponseXMLSetting">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>BLUM aankooporderresponse verwerking bestanden volgens nieuwe XML structuur.</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim Sleutel As %String = "AankoopOrderResponse.BLUM.ImportXML"
+	#dim ProductieImportXML As %String = "0"
+	#dim DevelopmentImportXML 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,ProductieImportXML)
+		}Else{
+			Do ##class(TECH.Config.ConfigMgr).Instance().SetString(Sleutel,DevelopmentImportXML)
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>