Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TariefImporter/ImportFile/Test.cls.xml
===================================================================
diff -u -r35203 -r35247
--- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TariefImporter/ImportFile/Test.cls.xml	(.../Test.cls.xml)	(revision 35203)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TariefImporter/ImportFile/Test.cls.xml	(.../Test.cls.xml)	(revision 35247)
@@ -15,6 +15,8 @@
 	
 	#dim FileReaderStub As vhTest.Fake.TECH.File.FileReader = ##class(vhTest.Fake.TECH.File.FileReader).%New(TestValues)
 	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Do FileUtilsFake.VoegToeFileInfo(FileName)
+	
 	Do FileAPIFake.IndienMethodCall("GeefFileReader",FileName).DanReturn(FileReaderStub)
 	Do FileAPIFake.IndienMethodCall("GeefFileUtils").DanReturn(FileUtilsFake)
 
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TransportduurImporter/Test.cls.xml
===================================================================
diff -u -r35203 -r35247
--- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TransportduurImporter/Test.cls.xml	(.../Test.cls.xml)	(revision 35203)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TransportduurImporter/Test.cls.xml	(.../Test.cls.xml)	(revision 35247)
@@ -16,14 +16,15 @@
 	
 	#dim FileReaderStub As vhTest.Fake.TECH.File.FileReader = ##class(vhTest.Fake.TECH.File.FileReader).%New(TestValues)
 	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Do FileUtilsFake.VoegToeFileInfo("DHL-DE.txt")
+	
 	Do FileAPIFake.IndienMethodCall("GeefFileReader",$$$ElkeWaarde).DanReturn(FileReaderStub)
 	Do FileAPIFake.IndienMethodCall("GeefFileUtils").DanReturn(FileUtilsFake)
 	
 	#dim TransportDuurImporter As APPS.TRANSP.Offerte.impl.DHL.TransportduurImporter = ##class(APPS.TRANSP.Offerte.impl.DHL.TransportduurImporter).%New(FileAPIFake, TransportduurRepositorySpy)
-	#dim FileName As %String = ""
+
+	Do TransportDuurImporter.ImportFile("DHL-DE.txt",1)
 	
-	Do TransportDuurImporter.ImportFile(FileName,1)
-	
 	Do $$$AssertEquals(TransportduurRepositorySpy.GeefAantalToegevoegdeLijnen(),2)
 	#dim TransportDuurResultaat As APPS.TRANSP.Offerte.impl.DHL.Transportduur = TransportduurRepositorySpy.GeefToegevoegdeLijn(1)
 	Do $$$AssertEquals(TransportDuurResultaat.Landcode, "DE")
@@ -37,7 +38,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Importeer bestanden met DHL transportduur gegevens">
+<Method name="aTest: Importeer bestanden met DHL transportduur gegevens">
 <Implementation><![CDATA[
 	#dim FileAPIFake As vhTest.Mock.TECH.File.FileAPI = ##class(vhTest.Mock.TECH.File.FileAPI).%New()
 	#dim TransportduurRepositorySpy As vhTest.Spy.APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository = ##class(vhTest.Spy.APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository).%New()
@@ -50,6 +51,7 @@
 	#dim FileReaderStub As vhTest.Fake.TECH.File.FileReader = ##class(vhTest.Fake.TECH.File.FileReader).%New(TestValues)
 	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
 	Do FileUtilsFake.VoegToeFileInfo("DHL-DE.txt")
+	
 	Do FileAPIFake.IndienMethodCall("GeefFileReader",$$$ElkeWaarde).DanReturn(FileReaderStub)
 	Do FileAPIFake.IndienMethodCall("GeefFileUtils").DanReturn(FileUtilsFake)
 	
Index: vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender/Verzend/Test.cls.xml
===================================================================
diff -u -r35208 -r35247
--- vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender/Verzend/Test.cls.xml	(.../Test.cls.xml)	(revision 35208)
+++ vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender/Verzend/Test.cls.xml	(.../Test.cls.xml)	(revision 35247)
@@ -16,7 +16,6 @@
 	#Dim FileAPIFake As vhTest.Fake.TECH.File.FileAPI = ##class(vhTest.Fake.TECH.File.FileAPI).%New()
 
 	#Dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
-	Set FileUtilsFake.FileExistsVlag = 0
 	
 	#dim ConverteerderMock As vhTest.Mock.APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder = ##class(vhTest.Mock.APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder).%New()
 	#dim ORDERS05DoubleList As %ListOfObjects = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05).GeefORDERS05()
@@ -178,7 +177,6 @@
 <Method name="Test : Verzend schrijft BLUM aankooporder in xml formaat naar bestand">
 <Implementation><![CDATA[
 	#Dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
-	Set FileUtilsFake.FileExistsVlag = 0
 	
 	#dim ConverteerderMock As vhTest.Mock.APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder = ##class(vhTest.Mock.APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder).%New()
 	#dim ORDERS05DoubleList As %ListOfObjects = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05).GeefORDERS05()
@@ -196,7 +194,6 @@
 	#Dim FileAPIFake As vhTest.Fake.TECH.File.FileAPI = ##class(vhTest.Fake.TECH.File.FileAPI).%New()
 
 	#Dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
-	Set FileUtilsFake.FileExistsVlag = 0
 	
 	#dim ConverteerderMock As vhTest.Mock.APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder = ##class(vhTest.Mock.APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder).%New()
 	#dim ORDERS05DoubleList As %ListOfObjects = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05).GeefORDERS05()
@@ -215,7 +212,7 @@
 	#Dim FileAPIFake As vhTest.Fake.TECH.File.FileAPI = ##class(vhTest.Fake.TECH.File.FileAPI).%New()
 
 	#Dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
-	Set FileUtilsFake.FileExistsVlag = 1
+	Do FileUtilsFake.VoegToeFileInfo(..GeefSafeToSendMailBestandVolledigNaam())
 	
 	#dim ConverteerderMock As vhTest.Mock.APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder = ##class(vhTest.Mock.APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder).%New()
 	#dim ORDERS05DoubleList As %ListOfObjects = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05).GeefORDERS05()
@@ -238,7 +235,6 @@
 	#Dim FileAPIFake As vhTest.Fake.TECH.File.FileAPI = ##class(vhTest.Fake.TECH.File.FileAPI).%New()
 
 	#Dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
-	Set FileUtilsFake.FileExistsVlag = 0
 	
 	#dim ConverteerderMock As vhTest.Mock.APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder = ##class(vhTest.Mock.APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder).%New()
 	#dim ORDERS05DoubleList As %ListOfObjects = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05).GeefORDERS05()
Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml
===================================================================
diff -u -r35228 -r35247
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml	(.../Ontvanger.cls.xml)	(revision 35228)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml	(.../Ontvanger.cls.xml)	(revision 35247)
@@ -57,6 +57,9 @@
 	catch 
 	{
 		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		#dim BerichtVoorGebruiker As %String = "Een aankooporder bevestiging van BLUM kon niet verwerkt worden. : " _BestandVolledigeNaam
+		Do ##class(vhLib.Logger).%New("").ErrorMail("VerwerkXMLBestand",(BerichtVoorGebruiker _" " _Exceptie.ToString()))
+		Do ..KopieerNaarErrorMap(BestandVolledigeNaam)
 	}
 ]]></Implementation>
 </Method>
@@ -88,6 +91,21 @@
 	quit BestandLocatie
 ]]></Implementation>
 </Method>
+
+<Method name="KopieerNaarErrorMap">
+<FormalSpec>BestandVolledigeNaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	try {
+		#dim Bestandsnaam As %String = ##class(TECH.File).GeefBestandsnaam(BestandVolledigeNaam)
+		#dim NieuwBestandLocatie As %String = ##class(TECH.Files).AppendSubPath(..GeefBestandLocatie(),"Error") 
+		#dim NieuwBestandVolledigeNaam As %String = ##class(TECH.Files).AppendFile(NieuwBestandLocatie, Bestandsnaam)
+		
+		Do ..FileUtils.CopyFile(BestandVolledigeNaam,NieuwBestandVolledigeNaam)
+		Do ..FileUtils.Delete(BestandVolledigeNaam)
+	} catch {}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger/Ontvang/Test.cls.xml
===================================================================
diff -u -r35228 -r35247
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger/Ontvang/Test.cls.xml	(.../Test.cls.xml)	(revision 35228)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger/Ontvang/Test.cls.xml	(.../Test.cls.xml)	(revision 35247)
@@ -66,6 +66,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test : Foutief bestand wordt na foutmelding in error map gezet">
+<Implementation><![CDATA[
+	#dim VolledigeBestandNaam1 As %String = ..GeefAankoopOrderLocatie() _"DummyBestand1.xml"
+	
+	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Do FileUtilsFake.VoegToeFileInfo(VolledigeBestandNaam1)
+	
+	#dim ClassName As %String = "APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05"
+	#dim XMLCorrelaterMock As vhTest.Mock.TECH.XMLCorrelater = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	Do XMLCorrelaterMock.IndienMethodCall("GeefObjectVanBestand", VolledigeBestandNaam1,ClassName,"ORDERS05").DanException($$$DummyException)
+	
+	#dim Ontvanger As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger).%New(,FileUtilsFake,XMLCorrelaterMock)
+	
+	Do Ontvanger.Ontvang()
+
+	#dim VolledigeBestandNaam1NaError As %String = ..GeefAankoopOrderLocatie() _"Error\DummyBestand1.xml"
+	Do $$$AssertTrue(FileUtilsFake.FileExists(VolledigeBestandNaam1NaError))
+]]></Implementation>
+</Method>
+
 <Method name="GeefAankoopOrderLocatie">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>