同一时间只允许一个用户登录AX

void startupPost()

{

    int         counter;

    int         maxUserSessions = 1;

    int         maxAdminSessions = 4;

    int         num = 0;

    int         maxSessions = Info::licensedUsersTotal();

    xSession    session;

    UserInfo    userInfo;

    UserId      currentUserId;

    UserGroupList   UserGroupList;

    ;

    currentUserId = curuserid();

    if (currentUserId == 'Admin')

        return;

    for(counter = 1; counter < maxSessions;counter++ )

    {

        session = new xSession(counter, true);

        if(session && session.userId())

        {

            select firstOnly userInfo

                where userInfo.id == session.userId();

            if (userInfo && (currentUserId == session.userId()))

                num++ ;

        }

    }

    while select userGroupList

        where userGroupList.userId == currentUserId

        && userGroupList.groupId == 'Admin'

        maxUserSessions = maxAdminSessions;

    if (num > maxUserSessions)

        {

        box::stop(strfmt("The same user id can't log in more than %1.", maxUserSessions));

        infolog.shutDown(true);

        }

}