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) ]]>