Index: vhDeploy/Deploy20171221xAxGeblokkeerdeOrderLijnenEmailPrefix.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20171221xAxGeblokkeerdeOrderLijnenEmailPrefix.cls.xml (revision 0)
+++ vhDeploy/Deploy20171221xAxGeblokkeerdeOrderLijnenEmailPrefix.cls.xml (revision 48499)
@@ -0,0 +1,19 @@
+
+
+
+vhDeploy.Deploy
+
+
+%String
+Prefix voor verzenden van email naar OV indien er geblokkeerde orderlijnen zijn bij import van een Ax order.
+
+
+
+1
+
+
+
+
+
+
Index: AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml
===================================================================
diff -u -r48494 -r48499
--- AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml (.../Mailer.cls.xml) (revision 48494)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml (.../Mailer.cls.xml) (revision 48499)
@@ -18,6 +18,11 @@
1
+
+TECH.Config.ConfigMgr
+1
+
+
MailApi:TECH.Mail.MailAPI="",VerkoopAPI:DOM.VKP.VerkoopAPI,DateTimeAPI:TECH.DateTime.DateTimeAPI
1
@@ -28,6 +33,7 @@
Set ..MailApi = $$$Inject(MailApi, ##class(TECH.Context).Instance().GeefMailAPI())
Set ..VerkoopAPI = $$$Inject(VerkoopAPI, ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
Set ..DateTimeAPI = $$$Inject(DateTimeAPI, ##class(TECH.Context).Instance().GeefDateTimeAPI())
+ Set ..ConfigMgr = ##class(TECH.Config.ConfigMgr).Instance()
Quit $$$OK
]]>
@@ -51,19 +57,23 @@
#dim Gebruiker As DOM.VKP.VanHoeckeKlant = Klant.GeefInterneVerantwoordelijke()
+ #dim MailTo As %String = ""
+
if $IsObject(Gebruiker) {
+ Set MailTo = Gebruiker.GeefEmailAdres()
+ } Else {
+ #dim MailToPrefix As %String = ..ConfigMgr.GeefString("AXimpl.Dynamics.SalesOrderIn.Converter.Mailer.VerzendMeldingGeblokkeerdeOrderLijn_MailToPrefix")
+ Set MailTo = MailToPrefix _ ##class(TECH.StringUtils).AddLeadingChar(Klant.GeefRegio(), "0", 2)
+ }
- #dim MailTo As %String = Gebruiker.GeefEmailAdres()
-
- #dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
- Do Mail.ZetVerzender($$$SystemMail("Ax order naar admin"))
- Do Mail.ZetOnderwerp(Titel)
- Do Mail.ZetInhoud(Inhoud)
- Do Mail.ZetIsHTML($$$True)
- Do Mail.VoegToeOntvanger(MailTo)
+ #dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
+ Do Mail.ZetVerzender($$$SystemMail("Ax order naar admin"))
+ Do Mail.ZetOnderwerp(Titel)
+ Do Mail.ZetInhoud(Inhoud)
+ Do Mail.ZetIsHTML($$$True)
+ Do Mail.VoegToeOntvanger(MailTo)
- Do ..MailApi.VerstuurMail(Mail)
- }
+ Do ..MailApi.VerstuurMail(Mail)
]]>