Index: vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender/Verzend/Test.cls.xml
===================================================================
diff -u -r35118 -r35131
--- vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender/Verzend/Test.cls.xml	(.../Test.cls.xml)	(revision 35118)
+++ vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender/Verzend/Test.cls.xml	(.../Test.cls.xml)	(revision 35131)
@@ -11,7 +11,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Verzend schrijft BLUM aankooporder in xml formaat.">
+<Method name="Test : Verzend schrijft BLUM aankooporder in xml formaat">
 <Implementation><![CDATA[
 	#Dim FileAPIFake As vhTest.Fake.TECH.File.FileAPI = ##class(vhTest.Fake.TECH.File.FileAPI).%New()
 
@@ -27,7 +27,7 @@
 	
 	Do ConverteerderMock.Verifieer()
 
-	#dim XMlStream As %Stream = FileAPIFake.GeefFileWriter().GeefInhoudBestandNaam(..GeefBestandVolledigNaam())
+	#dim XMlStream As %Stream = FileAPIFake.GeefFileWriter().GeefInhoudBestandNaam(..GeefDataBestandVolledigNaam())
 	
 	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<?xml version=""1.0"" encoding=""UTF-8""?>"),"")
 	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<ORDERS05>"),"")
@@ -175,7 +175,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Verzend schrijft BLUM aankooporder in xml formaat naar bestand.">
+<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
@@ -191,16 +191,45 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefBestandVolledigNaam">
+<Method name="Test : Verzend schrijft bestand &apos;SafeToSendMail.txt&apos;">
+<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 = 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()
+	Do ConverteerderMock.IndienMethodCall("Converteer",$$$ElkeWaarde).DanReturn(ORDERS05DoubleList)
+	
+	#dim BLUMVerzender As APPS.EDIExport.AankoopOrder.impl.BLUM.Verzender = ##class(APPS.EDIExport.AankoopOrder.impl.BLUM.Verzender).%New(FileAPIFake, ConverteerderMock, FileUtilsFake)
+	Do BLUMVerzender.Verzend()
+	
+	#dim XMlStream As %Stream = FileAPIFake.GeefFileWriter().GeefInhoudBestandNaam(..GeefSafeToSendMailBestandVolledigNaam())
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"Dit is een dummy bestand gebruikt om de notes agent te triggeren"))
+]]></Implementation>
+</Method>
+
+<Method name="GeefSafeToSendMailBestandVolledigNaam">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim BestandLocatie As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
-	set BestandLocatie = ##class(TECH.Files).AppendSubPath(BestandLocatie,"\EDI_BLUM_XML_OUT\AankoopOrder\")
+<Implementation><![CDATA[	Quit ##class(TECH.Files).AppendFile(..GeefAankoopOrderLocatie(),"SafeToSendMail.txt")
+]]></Implementation>
+</Method>
 
-	#dim BestandVolledigNaam As %String = ##class(TECH.Files).AppendFile(BestandLocatie,"Data.xml")
+<Method name="GeefDataBestandVolledigNaam">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Files).AppendFile(..GeefAankoopOrderLocatie(),"Data.xml")
+]]></Implementation>
+</Method>
 
-	quit BestandVolledigNaam
+<Method name="GeefAankoopOrderLocatie">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim BestandLocatie As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
+	Quit ##class(TECH.Files).AppendSubPath(BestandLocatie,"\EDI_BLUM_XML_OUT\AankoopOrder\")
 ]]></Implementation>
 </Method>
 </Class>