Index: vhTest/Fake/APPS/EDI/Bestel/impl/BestelService.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/EDI/Bestel/impl/BestelService.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/EDI/Bestel/impl/BestelService.cls.xml	(revision 39895)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.EDI.Bestel.impl.BestelService">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EDI.Bestel.impl.BestelService</Super>
+
+<Method name="PlaatsBestelling">
+<FormalSpec>Aanvraag:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</FormalSpec>
+<ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/EDI/Bestel/impl/BestelService.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/EDI/Bestel/impl/BestelService.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/EDI/Bestel/impl/BestelService.cls.xml	(revision 39895)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.EDI.Bestel.impl.BestelService">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EDI.Bestel.impl.BestelService,vhTest.Mock.APPS.EDI.Bestel.BestelService</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="PlaatsBestelling">
+<FormalSpec>Aanvraag:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</FormalSpec>
+<ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("PlaatsBestelling",Aanvraag)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml
===================================================================
diff -u -r39851 -r39895
--- EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 39851)
+++ EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 39895)
@@ -18,22 +18,46 @@
 <Private>1</Private>
 </Property>
 
+<Property name="MailApi">
+<Type>TECH.Mail.impl.MailAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AanvraagHeaderBepaler">
+<Type>APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeaderBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AanvraagHeader">
+<Type>APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeader</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KlantBepaler">
+<Type>DOM.common.PersonalityKlantBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>XmlCorrelater:TECH.XMLCorrelater,BestelService:APPS.EDI.Bestel.BestelService</FormalSpec>
+<FormalSpec>XmlCorrelater:TECH.XMLCorrelater,BestelService:APPS.EDI.Bestel.BestelService,MailApi:TECH.Mail.impl.MailAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..XmlCorrelater = $$$Inject(XmlCorrelater,##class(TECH.XMLCorrelater).%New())
-	set ..BestelService = $$$Inject(BestelService,##class(APPS.EDI.Bestel.impl.BestelService).%New())
+	Set ..XmlCorrelater = $$$Inject(XmlCorrelater,##class(TECH.XMLCorrelater).%New())
+	Set ..BestelService = $$$Inject(BestelService,##class(APPS.EDI.Bestel.impl.BestelService).%New())
+	Set ..AanvraagHeaderBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeaderBepaler).%New()	
+	Set ..MailApi = $$$Inject(MailApi,##class(TECH.Context).Instance().GeefMailAPI())
+	Set ..KlantBepaler = ##class(DOM.common.impl.PersonalityKlantBepaler).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkBestand">
 <FormalSpec>BestandVolledigeNaam:%String</FormalSpec>
 <Implementation><![CDATA[
+	Set ..AanvraagHeader = ..AanvraagHeaderBepaler.GeefAanvraagHeader(BestandVolledigeNaam)
 	Set ..OrderConverter = ..GeefOrderConverter(BestandVolledigeNaam)
 	
 	#dim ClassName As %String = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.Order).%ClassName(1)
@@ -42,7 +66,9 @@
 	If ($IsObject(..OrderConverter)) {
 		#dim Resultaat As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat = ..BestelService.PlaatsBestelling(..OrderConverter.Converteer(Order))
 		If $IsObject(Resultaat.Exceptie) {
-			Do ##class(TECH.ExceptionHandler).Throw(Resultaat.Exceptie)   ; OPM.: als er nog andere bestanden zijn, zullen deze niet meer verwerkt worden. 
+			Do ..VerstuurMail(Resultaat.Exceptie.ToString())
+		} Else {
+			Do ..VerstuurMail()
 		}
 	}
 	Else {
@@ -56,11 +82,32 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim OrderConverter As EXT.Unishop.PurchaseOrder001.OrderConverter = ""	
-	Set AanvraagHeaderBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeaderBepaler).%New()	
-	Set OrderConverter = ##class(EXT.Unishop.PurchaseOrder001.OrderConverter).%New(AanvraagHeaderBepaler.GeefAanvraagHeader(BestandVolledigeNaam))
+	Set OrderConverter = ##class(EXT.Unishop.PurchaseOrder001.OrderConverter).%New(..AanvraagHeader)
 	Quit OrderConverter
 ]]></Implementation>
 </Method>
+
+<Method name="VerstuurMail">
+<FormalSpec>ExtraTekst:TECH.String=""</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Personality As DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(..AanvraagHeader.PersonalityID)
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(..KlantBepaler.GeefKlantID(Personality, ..AanvraagHeader.KlantID))
+	
+	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
+	Do Mail.ZetVerzender($$$SystemMail("EDI Bestelling"))
+	Do Mail.VoegToeOntvanger(Klant.GeefInterneVerantwoordelijke().GeefEmailAdres())
+	Do Mail.ZetOnderwerp("EDI bestelling van '"_Klant.GeefNaam()_"' ontvangen")
+	#dim Inhoud As %String = "Er werd een EDI bestelling van '"_Klant.GeefNaam()_"' ontvangen"
+	If $$$HasLength(ExtraTekst){
+		Set Inhoud = Inhoud _ $$$CRLF _ ExtraTekst
+	} Else {
+		Set Inhoud = Inhoud _ " en ze werd goed verwerkt"
+	}
+	Do Mail.ZetInhoud(Inhoud)
+	Do ..MailApi.VerstuurMail(Mail)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml
===================================================================
diff -u -r35715 -r39895
--- vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 35715)
+++ vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 39895)
@@ -10,12 +10,41 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="MailMock">
+<Type>vhTest.Mock.TECH.Mail.Mail</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MailApiMock">
+<Type>vhTest.Mock.TECH.Mail.MailAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	set ..VerwachteExceptie = ""
+	do ..SetRuntimeContext()
+	do ##class(Tools.Test.TestCase.OnBeforeOneTest).%New().Exec(..Debug)
+	do ..Checker.Store()
+	
+	Set ..MailMock = ##class(vhTest.Mock.TECH.Mail.Mail).%New()
+	Do ..MailMock.IndienMethodCall("ZetVerzender",$$$ElkeWaarde).DanDoeNiks()
+	Do ..MailMock.IndienMethodCall("ZetOnderwerp",$$$ElkeWaarde).DanDoeNiks()
+	Do ..MailMock.IndienMethodCall("ZetInhoud",$$$ElkeWaarde).DanDoeNiks()
+	Do ..MailMock.IndienMethodCall("VoegToeOntvanger",$$$ElkeWaarde).DanDoeNiks()
+	Set ..MailApiMock = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	Do ..MailApiMock.IndienMethodCall("MaakNieuwMail").DanReturn(..MailMock)
+	Do ..MailApiMock.IndienMethodCall("VerstuurMail",$$$ElkeWaarde).DanDoeNiks()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Verwerker doet een goede order correlatie">
 <Implementation><![CDATA[
 	set XmlCorrelaterSpy = ##class(vhTest.Spy.TECH.XMLCorrelater).%New()
 	set DummyEdiBestelService = ##class(vhTest.Dummy.APPS.EDI.Bestel.BestelService).%New()
 
-	set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(XmlCorrelaterSpy,DummyEdiBestelService)
+	set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(XmlCorrelaterSpy,DummyEdiBestelService,..MailApiMock)
 	do Verwerker.VerwerkBestand(..BestandVolledigeNaam)
 	
 	#dim CorrelatedObjects As %ListOfObjects = XmlCorrelaterSpy.GeefObjecten()
@@ -36,13 +65,13 @@
 	
 	set DummyEdiBestelService = ##class(vhTest.Dummy.APPS.EDI.Bestel.BestelService).%New()
 	
-	set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(MockCorrelator,DummyEdiBestelService)
+	set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(MockCorrelator,DummyEdiBestelService,..MailApiMock)
 	do Verwerker.VerwerkBestand(..BestandVolledigeNaam)
 	do MockCorrelator.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Na een goede correlate wordt de bestel service opgeroepen met de juiste parameters">
+<Method name="Test : Na een goede correlate wordt de bestelservice opgeroepen met de juiste parameters">
 <Implementation><![CDATA[
 	#dim DummyOrder As EXT.Unishop.PurchaseOrder001.CreateOrder.Order = ##class(vhTest.Utils.EXT.Unishop.PurchaseOrder001.CreateOrder.Order).TaorboxOrder()
 		
@@ -51,7 +80,7 @@
 	
 	set EdiBestelServiceSpy = ##class(vhTest.Spy.APPS.EDI.Bestel.BestelService).%New()
 	
-	set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(StubCorrelator,EdiBestelServiceSpy)
+	set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(StubCorrelator,EdiBestelServiceSpy,..MailApiMock)
 	do Verwerker.VerwerkBestand(..BestandVolledigeNaam)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = EdiBestelServiceSpy.GeefAanvraag()
@@ -73,10 +102,71 @@
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("BestandVerwerker : ongeldige Bestandnaam '"_BestandNaamFoutief_"'")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
 	
-	Set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(,)
+	Set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(,,..MailApiMock)
 	Do Verwerker.VerwerkBestand(BestandNaamFoutief)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Na fout in verwerking -&gt; mail naar de interne verantwoordelijke met de errormessage">
+<Implementation><![CDATA[
+	Set ResultaatMetError = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
+	Set ResultaatMetError.Exceptie = ##class(TECH.Exceptions.GeneralErrorException).%New($$$DummyString)
+	Set EdiBestelServiceMock = ##class(vhTest.Mock.APPS.EDI.Bestel.BestelService).%New()
+	Do EdiBestelServiceMock.IndienMethodCall("PlaatsBestelling",$$$ElkeWaarde).DanReturn(ResultaatMetError)
+	
+	Set MailMock = ##class(vhTest.Mock.TECH.Mail.Mail).%New()
+	Do MailMock.VerwachtMethodCall("ZetVerzender",$$$SystemMail("EDI Bestelling"))
+	Do MailMock.VerwachtMethodCall("ZetOnderwerp","EDI bestelling van 'SFS UNIMARKET AG' ontvangen")
+	Do MailMock.VerwachtMethodCall("ZetInhoud","Er werd een EDI bestelling van 'SFS UNIMARKET AG' ontvangen"_$$$CRLF_ResultaatMetError.Exceptie.ToString())
+	Do MailMock.VerwachtMethodCall("VoegToeOntvanger","bbe@vanhoecke.be")
+	
+	Set MailApiMock = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	Do MailApiMock.VerwachtMethodCall("VerstuurMail",MailMock)
+	Do MailApiMock.VerwachtMethodCall("MaakNieuwMail").DanReturn(MailMock)
+	
+	#dim DummyOrder As EXT.Unishop.PurchaseOrder001.CreateOrder.Order = ##class(vhTest.Utils.EXT.Unishop.PurchaseOrder001.CreateOrder.Order).TaorboxOrder()
+	set StubCorrelator = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	do StubCorrelator.IndienMethodCall("GeefObjectVanBestand",..BestandVolledigeNaam,"EXT.Unishop.PurchaseOrder001.CreateOrder.Order","PurchaseOrder").DanReturn(DummyOrder)
+	
+	Set AanvraagStub = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).%New()
+	
+	Set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(StubCorrelator,EdiBestelServiceMock,MailApiMock)
+	Do Verwerker.VerwerkBestand(..BestandVolledigeNaam)
+	
+	Do MailApiMock.Verifieer()
+	Do MailMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Na juiste verwerking -&gt; mail naar de interne verantwoordelijke">
+<Implementation><![CDATA[
+	Set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
+	Set EdiBestelServiceMock = ##class(vhTest.Mock.APPS.EDI.Bestel.BestelService).%New()
+	Do EdiBestelServiceMock.IndienMethodCall("PlaatsBestelling",$$$ElkeWaarde).DanReturn(Resultaat)
+	
+	Set MailMock = ##class(vhTest.Mock.TECH.Mail.Mail).%New()
+	Do MailMock.VerwachtMethodCall("ZetVerzender",$$$SystemMail("EDI Bestelling"))
+	Do MailMock.VerwachtMethodCall("ZetOnderwerp","EDI bestelling van 'SFS UNIMARKET AG' ontvangen")
+	Do MailMock.VerwachtMethodCall("ZetInhoud","Er werd een EDI bestelling van 'SFS UNIMARKET AG' ontvangen en ze werd goed verwerkt")
+	Do MailMock.VerwachtMethodCall("VoegToeOntvanger","bbe@vanhoecke.be")
+	
+	Set MailApiMock = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	Do MailApiMock.VerwachtMethodCall("VerstuurMail",MailMock)
+	Do MailApiMock.VerwachtMethodCall("MaakNieuwMail").DanReturn(MailMock)
+		
+	#dim DummyOrder As EXT.Unishop.PurchaseOrder001.CreateOrder.Order = ##class(vhTest.Utils.EXT.Unishop.PurchaseOrder001.CreateOrder.Order).TaorboxOrder()
+	set StubCorrelator = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	do StubCorrelator.IndienMethodCall("GeefObjectVanBestand",..BestandVolledigeNaam,"EXT.Unishop.PurchaseOrder001.CreateOrder.Order","PurchaseOrder").DanReturn(DummyOrder)
+	
+	Set AanvraagStub = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).%New()
+	
+	Set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(StubCorrelator,EdiBestelServiceMock,MailApiMock)
+	Do Verwerker.VerwerkBestand(..BestandVolledigeNaam)
+	
+	Do MailApiMock.Verifieer()
+	Do MailMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/EDI/Bestel/impl/BestelService.cls.xml
===================================================================
diff -u -r39064 -r39895
--- APPS/EDI/Bestel/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 39064)
+++ APPS/EDI/Bestel/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 39895)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.EDI.Bestel.impl.BestelService">
-<Super>APPS.EDI.Bestel.BestelService,TECH.RegisteredObject</Super>
+<Super>APPS.EDI.Bestel.BestelService,TECH.Mockable</Super>
 
 <Property name="Aanvraag">
 <Type>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</Type>