Tuesday, September 23, 2008

Limited Access Per Group via xSessions

Tulisan saya tentang membuat limited access per group ternyata mengandung kesalahan. Tips ini bisa dipakai jika semua user-nya memiliki permission sebagai developer yang bisa diketahui dari User > Permission > Tools > Development Tools = Tercentang. Jika tidak, maka tips ini tidak bisa alias error. Hal ini disebabkan Table SysClientSessions adalah table admin yang ternyata tidak bisa disentuh oleh user yang TIDAK memiliki hak sebagai admin. Karena itu, solusinya adalah bukan membaca langsung Table SysClientSessions, tapi ubah jadi membaca pembungkusnya yaitu class xSessions.

Untuk memperbaikinya, butuh sedikit perubahan. Penambahan script di SysStartupCmd bisa diremark, lalu tambahkan kode berikut ini di class Info > startupPost :

/*
No SYS code must exist in this method
*/
void startupPost()
{


int counter;
int num = 0;
int maxSessions = Info::licensedUsersTotal();
xSession _xSession;
UserInfo userInfo;
UserInfo userInfo2;
UserId currentUserId;

SysClientSessions _SysClientSessions;
ABCUserGroupList _ABCUserGroupList;
ABCUserGroupList _ABCUserGroupList2;
ABCUserGroupInfo _ABCUserGroupInfo;
xSession session;
int x, y;
int maxSession ;

;
currentUserId = curuserid();

session = new xSession();
x = 0;
y = 0;
while select * from _ABCUserGroupList
where _ABCUserGroupList.userid == session.userId()
{
x++;
}
if ( x > 0 )
{
select ABCgroupid from _ABCUserGroupList
where _ABCUserGroupList.userid == session.userId() ;

select total from _ABCUserGroupInfo
where _ABCUserGroupInfo.id == _ABCUserGroupList.ABCgroupid;

maxSession = _ABCUserGroupInfo.total;

/* alur logika
1. dapatkan ABCgroupid nya apa
2. cek ke ABCusergrouplist dengan ABCgroupid tersebut
3. cek ke sessionid
*/

counter = 0;

while select * from _ABCUserGroupList2
where _ABCUserGroupList2.ABCgroupid == _ABCUserGroupList.ABCgroupid
{
for(counter = 1; counter <>
{
session = new xSession(counter, true);
if(session.userId() == _ABCUserGroupList2.userid )
{
y++;
}
}

}

if ( y > maxSession )
{
Box::info( 'Sorry, your group is full.', 'Administrator' );
{
this.shutDown(true);
}
}
}

}

Kategori

info (205) foto (133) komentar ga penting (128) fotografi (123) Technology (104) Kantor (95) website (88) blog (84) Jakarta (78) comic strip (75) bisnis (71) karir (51) suara hati (51) senda-gurau (50) wisata (38) Bekasi (37) Internet (34) manajemen (31) kuliner (22) selebritis (21) soccer (21) Navision (20) iklan (14) kasus (14) sql server 2005 (13) buku (11) Greeting (10) movie (10) komik strip (9) novel (9) programming (9) televisi (9) Banjir (8) VCD/DVD (8) kopi (8) Vanessa (7) billiard (7) hypermarket (7) bogor (6) kesehatan (6) rumah (6) old document (5) Terios (4) basket (4) guru (4) Axapta (3) bioinformatika (3) azure (1)

My Instagram