Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender.cls.xml
===================================================================
diff -u -r40949 -r41218
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender.cls.xml	(.../MailVerzender.cls.xml)	(revision 40949)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender.cls.xml	(.../MailVerzender.cls.xml)	(revision 41218)
@@ -13,6 +13,26 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ConfigMgr">
+<Type>TECH.Config.ConfigMgr</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PartijAPI">
+<Type>DOM.PARTIJ.PartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>MailApi:TECH.Mail.MailAPI="",OfferteService:APPS.VKP.OfferteService=""</FormalSpec>
 <Private>1</Private>
@@ -22,17 +42,21 @@
 <Implementation><![CDATA[
 	Set ..MailApi = $$$Inject(MailApi, ##class(TECH.Context).Instance().GeefMailAPI())
 	Set ..OfferteService = $$$Inject(OfferteService, ##class(APPS.VKP.impl.OfferteService).%New())
-	
+	Set ..ConfigMgr = ##class(TECH.Config.ConfigMgr).Instance()
+	Set ..PartijAPI = ##class(DOM.DomeinContext).Instance().GeefPartijAPI()
+	Set ..VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
+	Set ..LegacyPartijAPI = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
+
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Verzend">
 <FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
 <Implementation><![CDATA[
-	#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(Offerte.KlantID)
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(Offerte.KlantID)	
-	#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Partij.GeefID())
+	#dim Partij As DOM.PARTIJ.Partij = ..PartijAPI.GeefPartij(Offerte.KlantID)
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(Offerte.KlantID)	
+	#dim KlantNr As %String = ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(Partij.GeefID())
 	#dim Titel As %String = "Bestelling voor klant " _ KlantNr _ " '" _ Partij.GeefNaam() _ "' "
 	#dim BestelReferentie As %String = Offerte.GeefDocumentReferenties().OrderReferentie
 	#dim CommissieReferentie As %String = Offerte.GeefDocumentReferenties().CommissieReferentie
@@ -59,7 +83,7 @@
 	
 	Set Inhoud = $Replace(Inhoud, $$$CRLF, "<br/>")
 	
-	#dim MailToPrefix As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.OV.impl.OrderVerwerkingInteracties.OfferteBesteld_MailToPrefix")
+	#dim MailToPrefix As %String = ..ConfigMgr.GeefString("APPS.OV.impl.OrderVerwerkingInteracties.OfferteBesteld_MailToPrefix")
 	#dim MailTo As %String = MailToPrefix _ ##class(TECH.StringUtils).AddLeadingChar(Klant.GeefRegio(), "0", 2)	
 	
 	#dim IsHTML As %Boolean = $$$True
@@ -92,8 +116,8 @@
 <Method name="GeefVerwerkVhisie4OfferteLink">
 <FormalSpec>OfferteID:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim ServerUrl As %String = "http://" _$$$Server _"/csp/" _$$$NSpace
-	#dim URIVerwerkOfferte As %String = ServerUrl _ "/Vhisie4/WinkelkarTotOrderVerwerker/View.csp?WinkelkarId=" _ OfferteID
+	#dim ServerUrl = ..ConfigMgr.GeefString("VanHoecke.Vhisie4.User.Login.URL")
+	#dim URIVerwerkOfferte As %String = ServerUrl _"?destination=/ov/manage/" _OfferteID
 	Quit "<a href='" _ URIVerwerkOfferte _ "'>" _ "Verwerk (vhisie4) offerte '" _ OfferteID _ "'" _ "</a>"
 ]]></Implementation>
 </Method>