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