EventInbox & SysUserInfo
Contoh penggunaan :
EventInbox EventInbox,inbox;
SysUserInfo SysUserInfo;
select SysUserInfo order by SysUserInfo.Id
where SysUserInfo.Id == "Husna";//ax account Husna
ttsbegin();
select maxof(inboxId) from inbox;
EventInbox.InboxId = EventInbox::nextEventId();
EventInbox.CompanyId = "psm";
EventInbox.AlertTableId = 105939;//2271;//diisi dengan tableId yang menjadi referensi table.
EventInbox.AlertCreatedDateTime = DateTimeUtil::utcNow();
EventInbox.ParentTableId = 105939;//2271;//diisi dengan tableId yang menjadi referensi table.
EventInbox.IsRead = NOYES::No;
EventInbox.Subject = "Update minimum stock information "+usernotif.ItemId;
EventInbox.AlertedFor = "update minimum stock information "+usernotif.ItemId;
EventInbox.UserId = SysUserInfo.Id;
EventInbox.ShowPopup = NOYES::Yes;
EventInbox.Visible = NOYES::Yes;
EventInbox.Message = strfmt("Minimum stok item "+usernotif.ItemId+" sudah lebih kecil atau sama dengan rata-rata pemakaian");
EventInbox.insert();
ttscommit();
Tidak ada komentar:
Posting Komentar