Ограничение количества одновременных подключений под одним логином

[polygris]

    xSession session = new xSession();
    int i;
    int counter;
    SysUserInfo userInfo;
    ;

    userInfo = SysUserInfo::find(curUserId());
    for (i = 1; i <= xSession::maxSessionId(); i++)
    {
        session = new xSession(i, true);
        if (session && session.userId() == curUserId())
        {
            counter++;
        }
    }

    if ((userInfo.CountSessionFromOneLogin != 0) && (userInfo.CountSessionFromOneLogin < counter))
        checkFailed(strfmt('%1', counter));