Index: vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/VanHoecke/Verzend/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/VanHoecke/Verzend/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/VanHoecke/Verzend/Test.cls.xml	(revision 54077)
@@ -0,0 +1,80 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.MailVerzender.VanHoecke.Verzend.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestCase:%String</FormalSpec>
+<Implementation><![CDATA[
+ 	Do ##super(aTestCase)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("VanHoecke.Vhisie4.User.Login.URL", "http://integratietest_V4.vanhoecke.be", ..#Applicatie)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verzender voor VHisie4 offerte met ongelijk Totaalbedrag en Herbestelling">
+<Implementation><![CDATA[
+	#dim MailApiStub As vhTest.Utils.MailNaarBestandAPI = ##class(vhTest.Utils.MailNaarBestandAPI).MockInstance(..GeefBestandLocatie())
+	
+	#dim KlantId As %String = "UT_KlantId"
+	#dim Offerte As APPS.VKP.impl.Offerte = ..GeefOfferte(KlantId)
+	#dim KlantStub As vhTest.Mock.DOM.VKP.VanHoeckeKlant = ..GeefKlant(KlantId, "99test")
+	#dim PartijApiStub As vhTest.Mock.DOM.PARTIJ.PartijAPI = ..GeefPartijApi(1000, KlantId)
+	#dim HeeftHerbestelling As %Boolean = $$$True
+	
+	#dim VerkoopApiStub As vhTest.Mock.DOM.VKP.VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).MockInstance()
+	Do VerkoopApiStub.IndienMethodCall("GeefKlant", KlantId).DanReturn(KlantStub)
+	
+	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do OfferteServiceStub.IndienMethodCall("GeefBerekendeTotaalBedrag",Offerte).DanReturn(999.97)
+	
+	Set MailVerzenderVanHoecke = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.MailVerzender.VanHoecke).%New(MailApiStub,OfferteServiceStub)
+	Do MailVerzenderVanHoecke.Verzend(Offerte, HeeftHerbestelling)
+	
+	do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
+<Method name="GeefOfferte">
+<FormalSpec>KlantId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.VKP.impl.Offerte</ReturnType>
+<Implementation><![CDATA[
+	Set Offerte = ##class(APPS.VKP.impl.Offerte).%New(KlantId, ##class(DOM.common.enu.Personality).VanHoecke())
+	
+	Set Offerte.DocumentReferenties.OrderReferentie = "UTest_OrderReferentie"
+	Set Offerte.DocumentReferenties.CommissieReferentie = "UTest_CommissieReferentie"
+	
+	Set Offerte.ExterneId = "UT_ExterneId"
+	Do Offerte.ZetTotaalBedragWebshop(999.99)
+	
+	Quit Offerte
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlant">
+<FormalSpec>KlantId:%String,RegioId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.VKP.impl.Offerte</ReturnType>
+<Implementation><![CDATA[
+	#dim KlantStub As vhTest.Mock.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
+	Do KlantStub.IndienMethodCall("GeefID").DanReturn(KlantId)
+	Do KlantStub.IndienMethodCall("GeefRegio").DanReturn(RegioId)
+	Quit KlantStub
+]]></Implementation>
+</Method>
+
+<Method name="GeefPartijApi">
+<FormalSpec>Klantnummer:%String,KlantId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.VKP.impl.Offerte</ReturnType>
+<Implementation><![CDATA[
+	#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.PARTIJ.impl.DataM.DataMKlant).%New(Klantnummer)
+	#dim PartijApiStub As vhTest.Mock.DOM.PARTIJ.PartijAPI = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).MockInstance()
+	Do PartijApiStub.IndienMethodCall("GeefPartij", KlantId).DanReturn(Partij)
+	Quit PartijApiStub
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>