Index: vhDeploy/Deploy20161219BLUMEDISAPBasedXMLSetting.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20161219BLUMEDISAPBasedXMLSetting.cls.xml	(revision 0)
+++ vhDeploy/Deploy20161219BLUMEDISAPBasedXMLSetting.cls.xml	(revision 38604)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20161219BLUMEDISAPBasedXMLSetting">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>BLUM EDI berichten na migratie naar SAP</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim Sleutel As %String = "AankoopOrderResponse.BLUM.ImportSAPBasedXML"
+	#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>
Index: APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvangerV2.cls.xml
===================================================================
diff -u -r38542 -r38604
--- APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvangerV2.cls.xml	(.../DespatchBerichtOntvangerV2.cls.xml)	(revision 38542)
+++ APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvangerV2.cls.xml	(.../DespatchBerichtOntvangerV2.cls.xml)	(revision 38604)
@@ -65,7 +65,8 @@
 <Method name="Ontvang">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Quit:(##class(TECH.Config.ConfigMgr).Instance().GetString("AankoopOrderResponse.BLUM.ImportXML")'="1") ##class(%ListOfObjects).%New()	
+	Quit:(##class(TECH.Config.ConfigMgr).Instance().GetString("AankoopOrderResponse.BLUM.ImportXML")'="1") ##class(%ListOfObjects).%New()
+	Quit:(##class(TECH.Config.ConfigMgr).Instance().GetString("AankoopOrderResponse.BLUM.ImportSAPBasedXML")'="1") ##class(%ListOfObjects).%New()
 	do ..ScanEnRegistreerBestanden()
 	quit ..VerwerkVrachtwagens()
 ]]></Implementation>