Index: vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Test.cls.xml
===================================================================
diff -u -r46554 -r54073
--- vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Test.cls.xml	(.../Test.cls.xml)	(revision 46554)
+++ vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Test.cls.xml	(.../Test.cls.xml)	(revision 54073)
@@ -3,6 +3,42 @@
 <Class name="vhUnitTest.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.MailVerzender.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Method name="Test: Er wordt mail verstuurd indien GEEN automatische verwerking van een VH-offerte">
+<Implementation><![CDATA[
+	#dim WinkelkarId As %String = "DummyWinkelkarId"
+	#dim Offerte As APPS.VKP.impl.Offerte = ..GeefOfferte(WinkelkarId, $$$False)
+	
+	Set WinkelkarRepositoryStub = ##class(vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryStub.IndienMethodCall("GeefViaID",WinkelkarId).DanReturn(##class(DOM.EC.Winkelkar.Winkelkar).%New(""))
+	
+	Set MailVerzenderVanHoeckeStub = ##class(vhTest.Mock.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.MailVerzender.VanHoecke).%New()
+	Do MailVerzenderVanHoeckeStub.VerwachtMethodCall("Verzend", Offerte, $$$False).DanDoeNiks()
+	
+	Set BesteldeOfferteMelder = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder).%New(,MailVerzenderVanHoeckeStub, WinkelkarRepositoryStub)
+	Do BesteldeOfferteMelder.VerwittigVerwerker(Offerte)
+	
+	Do MailVerzenderVanHoeckeStub.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Er wordt GEEN mail verstuurd bij automatische verwerking van een VH-offerte">
+<Implementation><![CDATA[
+	#dim WinkelkarId As %String = "DummyWinkelkarId"
+	#dim Offerte As APPS.VKP.impl.Offerte = ..GeefOfferte(WinkelkarId, $$$True)
+	
+	Set WinkelkarRepositoryStub = ##class(vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryStub.IndienMethodCall("GeefViaID",WinkelkarId).DanReturn(##class(DOM.EC.Winkelkar.Winkelkar).%New(""))
+	
+	Set MailVerzenderVanHoeckeStub = ##class(vhTest.Mock.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.MailVerzender.VanHoecke).%New()
+	Do MailVerzenderVanHoeckeStub.VerwachtMethodCall("Verzend", Offerte, $$$False).ExactAantalKeer(0)
+	
+	Set BesteldeOfferteMelder = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder).%New(,MailVerzenderVanHoeckeStub, WinkelkarRepositoryStub)
+	Do BesteldeOfferteMelder.VerwittigVerwerker(Offerte)
+	
+	Do MailVerzenderVanHoeckeStub.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Mail wordt verstuurd naar OV indien offerte via handel Van Hoecke">
 <Implementation><![CDATA[
 	Set Mail = ##class(TECH.Mail.impl.Mail).%New()
@@ -32,6 +68,21 @@
 	Do $$$AssertInList(Mail.GeefOntvangers(), "OV_weborder_RRegio")
 ]]></Implementation>
 </Method>
+
+<Method name="GeefOfferte">
+<FormalSpec>WinkelkarId:%String,AutomatischeVerwerking:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.VKP.impl.Offerte</ReturnType>
+<Implementation><![CDATA[
+	#dim KlantId As %String = "UT_KlantId"
+
+	Set Offerte = ##class(APPS.VKP.impl.Offerte).%New(KlantId, ##class(DOM.common.enu.Personality).VanHoecke())
+	Set Offerte.AutomatischeVerwerking = AutomatischeVerwerking
+	Set Offerte.WinkelkarID = WinkelkarId
+	
+	Quit Offerte
+]]></Implementation>
+</Method>
 </Class>