Index: vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender/Verzend/Test.cls.xml
===================================================================
diff -u -r35131 -r35136
--- vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender/Verzend/Test.cls.xml	(.../Test.cls.xml)	(revision 35131)
+++ vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender/Verzend/Test.cls.xml	(.../Test.cls.xml)	(revision 35136)
@@ -191,7 +191,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Verzend schrijft bestand &apos;SafeToSendMail.txt&apos;">
+<Method name="Test : Verzend schrijft bestand SafeToSendMail">
 <Implementation><![CDATA[
 	#Dim FileAPIFake As vhTest.Fake.TECH.File.FileAPI = ##class(vhTest.Fake.TECH.File.FileAPI).%New()
 
@@ -210,6 +210,29 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test : Verzend geeft foutmelding als SafeToSendMail nog bestaat">
+<Implementation><![CDATA[
+	#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
+	
+	#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()
+	Do ConverteerderMock.IndienMethodCall("Converteer",$$$ElkeWaarde).DanReturn(ORDERS05DoubleList)
+	
+	#dim VerwachteError As %String = "Er is nog een triggerbestand aanwezig in '"_..GeefAankoopOrderLocatie()_"'."
+	set VerwachteError = VerwachteError _ $$$CRLF _ "Hoogstwaarschijnlijk zijn de vorige bestanden niet verwerkt."
+	set VerwachteError = VerwachteError _ $$$CRLF _ "Gelieve de notes agent te controleren."
+
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes(VerwachteError)
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+	
+	#dim BLUMVerzender As APPS.EDIExport.AankoopOrder.impl.BLUM.Verzender = ##class(APPS.EDIExport.AankoopOrder.impl.BLUM.Verzender).%New(FileAPIFake, ConverteerderMock, FileUtilsFake)
+	Do BLUMVerzender.Verzend()
+]]></Implementation>
+</Method>
+
 <Method name="GeefSafeToSendMailBestandVolledigNaam">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>