Index: vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender/Verzend/Test.cls.xml
===================================================================
diff -u -r35027 -r35089
--- vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender/Verzend/Test.cls.xml	(.../Test.cls.xml)	(revision 35027)
+++ vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender/Verzend/Test.cls.xml	(.../Test.cls.xml)	(revision 35089)
@@ -9,15 +9,18 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Verzend schrijft BLUM order in xml formaat naar bestand">
+<Method name="Test : Verzend schrijft BLUM aankooporder in xml formaat naar bestand">
 <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 ORDERS05Double As APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05 = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05).GeefORDERS05()
 	Do ConverteerderMock.VerwachtMethodCall("Converteer",$$$ElkeWaarde).DanReturn(ORDERS05Double)
 	
-	#dim BLUMVerzender As APPS.EDIExport.AankoopOrder.impl.BLUM.Verzender = ##class(APPS.EDIExport.AankoopOrder.impl.BLUM.Verzender).%New(FileAPIFake, ConverteerderMock)
+	#dim BLUMVerzender As APPS.EDIExport.AankoopOrder.impl.BLUM.Verzender = ##class(APPS.EDIExport.AankoopOrder.impl.BLUM.Verzender).%New(FileAPIFake, ConverteerderMock, FileUtilsFake)
 	Do BLUMVerzender.Verzend()
 	
 	Do ConverteerderMock.Verifieer()
Index: APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender.cls.xml
===================================================================
diff -u -r35027 -r35089
--- APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender.cls.xml	(.../Verzender.cls.xml)	(revision 35027)
+++ APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender.cls.xml	(.../Verzender.cls.xml)	(revision 35089)
@@ -13,15 +13,22 @@
 <Private>1</Private>
 </Property>
 
+<Property name="FileUtils">
+<Type>TECH.File.FileUtils</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>FileAPI:TECH.File.FileAPI="",Converteerder:APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder</FormalSpec>
+<FormalSpec>FileAPI:TECH.File.FileAPI="",Converteerder:APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder,FileUtils:TECH.File.FileUtils</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	set ..FileAPI = $$$Implementation(FileAPI,##class(TECH.Context).Instance().GeefFileAPI())
 	set ..Converteerder = $$$Inject(Converteerder, ##class(APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder).%New())
+	Set ..FileUtils = $$$Inject(FileUtils,##class(TECH.File.impl.FileUtils).%New())
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -30,7 +37,14 @@
 <FormalSpec>COMSO:APPS.EDIExport.AankoopOrder.BLUM.dto.COMSO=""</FormalSpec>
 <Implementation><![CDATA[
 	#dim ORDERS05 As APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05 = ..Converteerder.Converteer(COMSO)
-	Do ..Exporteer(ORDERS05, ..GeefBestandLocatie())
+	
+	#dim BestandLocatie As %String = ..GeefBestandLocatie()
+
+	Do ..ControleerBestandLocatie(BestandLocatie)
+
+	Do ..Exporteer(ORDERS05, BestandLocatie)
+	
+	Do ..GenereerEmailTriggerBestand(BestandLocatie)
 ]]></Implementation>
 </Method>
 
@@ -41,7 +55,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(ORDERS05.%ValidateObject())
-		
+
 	#dim BestandVolledigNaam As %String = ##class(TECH.Files).AppendFile(BestandLocatie,"Data.xml")
 	
 	#dim FileWriter As TECH.File.FileWriter = ..FileAPI.GeefFileWriter()
@@ -61,6 +75,40 @@
 	quit BestandLocatie
 ]]></Implementation>
 </Method>
+
+<Method name="ControleerBestandLocatie">
+<FormalSpec>BestandLocatie:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	if ..FileUtils.FileExists(..GeefTriggerBestandnaam(BestandLocatie)) {
+		#dim Error As %String = "Er is nog een triggerbestand aanwezig in '"_BestandLocatie_"'."
+		set Error = Error _ $$$CRLF _ "Hoogstwaarschijnlijk zijn de vorige bestanden niet verwerkt."
+		set Error = Error _ $$$CRLF _ "Gelieve de notes agent te controleren."
+		set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New(Error)
+		do ##class(TECH.ExceptionHandler).Throw(Exception)	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GenereerEmailTriggerBestand">
+<FormalSpec>BestandLocatie:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim FileWriter As TECH.File.FileWriter = ..FileAPI.GeefFileWriter()
+	#dim BestandVolledigeNaam As %String = ..GeefTriggerBestandnaam(BestandLocatie)
+	do FileWriter.Open(BestandVolledigeNaam)
+	do FileWriter.WriteLine("Dit is een dummy bestand gebruikt om de notes agent te triggeren")
+	do FileWriter.Close()
+]]></Implementation>
+</Method>
+
+<Method name="GeefTriggerBestandnaam">
+<FormalSpec>BestandLocatie:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.Files).AppendFile(BestandLocatie,"SafeToSendMail.txt")
+]]></Implementation>
+</Method>
 </Class>