Index: DOM/PM/impl/DataM/DataMProduct.cls.xml =================================================================== diff -u -r49110 -r49170 --- DOM/PM/impl/DataM/DataMProduct.cls.xml (.../DataMProduct.cls.xml) (revision 49110) +++ DOM/PM/impl/DataM/DataMProduct.cls.xml (.../DataMProduct.cls.xml) (revision 49170) @@ -87,6 +87,11 @@ 1 + +TECH.Mail.MailAPI +1 + + ProductNummer:%Integer="" 1 @@ -103,6 +108,7 @@ } Set ..ProductNummer = ProductNummer Set ..PersistentMgr = ##class(TECH.Persistentie.GlobalPersistenceMgr).Instance() + Set ..MailAPI = ##class(TECH.Context).Instance().GeefMailAPI() Quit $$$OK ]]> @@ -148,14 +154,13 @@ Do RECALC^PRODUKT2(..ProductNummer) #dim CifPPLNew as %Numeric = $$$ProductGet(..ProductNummer, $$$CifPPLEUR) if ($ZABS(CifPPLOld-CifPPLNew)>0.0001) && $$$Not(..IsNieuwProduct) && ##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("MailPMBijPrijsWijziging") { - #dim MailAPI as TECH.Mail.MailAPI = ##class(TECH.Context).Instance().GeefMailAPI() - #dim Mail As TECH.Mail.Mail = MailAPI.MaakNieuwMail() + #dim Mail As TECH.Mail.Mail = ..MailAPI.MaakNieuwMail() Do Mail.ZetVerzender($$$SystemMail("Product Synchronizatie AX - Admin")) Do Mail.VoegToeOntvanger("PM_Administratie@vanhoecke.be") Do Mail.ZetOnderwerp("Prijswijziging van product met nummer "_ ..ProductNummer) #Dim MeldingTekst as %String = "Voor product '" _ ..ProductNummer _ "' is de prijs gewijzigd van "_ CifPPLOld _" naar "_ CifPPLNew _"." Do Mail.ZetInhoud("Beste,"_ $$$CRLF _ $$$CRLF _ MeldingTekst) - Do MailAPI.VerstuurMail(Mail) + Do ..MailAPI.VerstuurMail(Mail) Do ##class(vhLib.Logger).%New().Warning("Product aanpassing (wsl AX synchronizatie)",MeldingTekst) } }