Index: DOM/PM/impl/DataM/DataMProduct.cls.xml =================================================================== diff -u -r48456 -r48484 --- DOM/PM/impl/DataM/DataMProduct.cls.xml (.../DataMProduct.cls.xml) (revision 48456) +++ DOM/PM/impl/DataM/DataMProduct.cls.xml (.../DataMProduct.cls.xml) (revision 48484) @@ -2,7 +2,7 @@ -BL.Kenm.Common +BL.Kenm.Common,Prod.Product 1 TECH.RegisteredObject,TECH.Mockable @@ -143,7 +143,22 @@ Set ^KPR(..ProductNummer, "J") = "" Do BLDIND^PRODUKT2(..ProductNummer) - Do:(RecalcProduktNodig) RECALC^PRODUKT2(..ProductNummer) + if RecalcProduktNodig{ + #dim CifPPLOld as %Numeric=$$$ProductGet(..ProductNummer, $$$CifPPLEUR) + 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() + 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 ##class(vhLib.Logger).%New().Warning("Product aanpassing (wsl AX synchronizatie)",MeldingTekst) + } + } If ..IsNieuwProduct { Do Gemaakt^PRODUKT2(..ProductNummer) } Else { Do Gewijzigd^PRODUKT2(..ProductNummer) } Set ..IsNieuwProduct = $$$False Index: vhDeploy/Deploy20171220xMailPMIndienPrijsUpdateBijDataMPRoductOpslaan.cls.xml =================================================================== diff -u --- vhDeploy/Deploy20171220xMailPMIndienPrijsUpdateBijDataMPRoductOpslaan.cls.xml (revision 0) +++ vhDeploy/Deploy20171220xMailPMIndienPrijsUpdateBijDataMPRoductOpslaan.cls.xml (revision 48484) @@ -0,0 +1,19 @@ + + + +vhDeploy.Deploy + + +%String +Switch Mail PM indien prijsverschil geregistreerd bij DataMProduct update + + + +1 + + + + + +