x++ Create Alert for All user Group

static void SendAlertVN(Args _args) { EventParameters eventParameters = EventParameters::find(); SysUserInfo sysUserInfo; UserInfo userinfo; EventInbox inbox; UserGroupList UsergroupList; //SysYserInfo = SysUserInfo::find(curUserId()); while select UsergroupList where UsergroupList.groupId =="admin" { inbox.initValue(); inbox.ShowPopup = NoYes::Yes; inbox.Subject = "Préparation de réception marchandise"; inbox.Message = "?"; inbox.AlertedFor = "Préparation de réception marchandise"; inbox.UserId = UsergroupList.userID ; inbox.TypeId = 1527; inbox.globalrule = true; inbox.AlertTableId = tableNum(PurchReceiptsListHeaderTmp); inbox.AlertFieldId = fieldNum(PurchReceiptsListHeaderTmp, PurchID); inbox.TypeTrigger = EventTypeTrigger::RecordInsert; inbox.CompanyId = curext(); inbox.InboxId = EventInbox::nextEventId(); inbox.AlertCreatedDateTime = DateTimeUtil::getSystemDateTime(); inbox.SendEmail = true; inbox.EmailTemplateId = "001"; // inbox.emailRecipient = "exemple@exemple.com; inbox.insert(); } }

reference : https://dynamicsuser.net/ax/f/developers/69282/creat-alert-notification-and-send-email-with-x

Reverse Customer Closed Transaction trough x++

static void Update_Reverse_Settlement(Args _args) { CustTrans invCustTrans,findCustTrans; SpecTransManager specTransManager; DocumentNum invdocnumx,paydocnumx; CustSettlement custSettlement; AccountNum accnumx; date paydatex; CustTable custTable; ; select invCustTrans order by TransDate asc where invCustTrans.Voucher=="18BM01-00082"; //invCustTrans.DocumentNum == invdocnumx // && invCustTrans.AmountMST > 0 // && invCustTrans.AccountNum == accnumx; while select findCustTrans where findCustTrans.RecId == invCustTrans.RecId { custTable = custTable::find(findCustTrans.AccountNum); // if(findCustTrans.TransType != ledgerTransType::Payment) // { //We must go to the customer settlement table and locate the records that were used to settle the invoice in scope and pass them into the class // that manages the marking and updating of applied credits and payments to invoices. We remove the credit marking to remove the link between the invoice //and the credits used to settle the invoice. Then we must reverse the transactions using the reverseTransact method on the customer transaction table select firstonly custSettlement where// custSettlement.SettlementVoucher==''; custSettlement.TransCompany == findCustTrans.dataAreaId && custSettlement.TransRecId == findCustTrans.RecId && custSettlement.AccountNum == findCustTrans.AccountNum; specTransManager = SpecTransManager::newRefTableId(custTable,tablenum(custSettlement), true); specTransManager.insert(custSettlement.DataAreaId, custSettlement.TableId, custSettlement.RecId, custSettlement.SettleAmountCur, findCustTrans.CurrencyCode); custSettlement.CustVendSettlement::markOffsets(specTransManager, findCustTrans.CurrencyCode, true); if (CustTrans::reverseTransact(custTable,null,settleDatePrinc::DateOfPayment,custSettlement.TransDate)) { specTransManager.deleteAll(); //custTrans_ds.executeQuery(); } // } } info(strFmt('Done %1',findCustTrans.txt)); }