Skip to main content

How to find the maximum number of logged on users on a given day...

This checks max users for every hour because my original task was to show user count by hour.  You can easily modify this to check every second or whatever if you need a much more detailed number.



static void JobFindMaxUsersLoggedInPerDay(Args _args)
{
    SysUserLog      sysUserLog;
    utcDateTime     utc = DateTimeUtil::addHours(DateTimeUtil::newDateTime(systemDateGet(), 0), 8);
    int             i;
    int             n;
    int             iUsers;
    ;

    utc = DateTimeUtil::newDateTime(systemDateGet(), 0);

    utc = DateTimeUtil::addDays(DateTimeUtil::addHours(utc, 13), -13);
//    utc = DateTimeUtil::applyTimeZoneOffset(utc, DateTimeUtil::getUserPreferredTimeZone());

    for (i=1; i<=90; i++)
    {
        iUsers = 0;
        for (n=1; n<=11; n++)
        {
            // Find the number of users logged in
            select count(recId) from sysUserLog
                where sysUserLog.createdDateTime < DateTimeUtil::addHours(utc, n)      &&
                      sysUserLog.LogoutDateTime  > DateTimeUtil::addHours(utc, n)      &&
                      sysUserLog.LogoutDateTime;

            if (!iUsers || sysUserLog.RecId > iUsers)
                iUsers = sysUserLog.RecId;
        }

        info(strfmt("%1, %2", DateTimeUtil::date(utc), iUsers));
        utc = DateTimeUtil::addDays(utc, -1);
    }
}

Popular posts from this blog

Dynamics Axapta: Sales Orders & Business Connector

Well, again folllowing my same idea of writting close to nothing and pasting code, I'll paste in some code to create a sales order from some basic data and the invoice it. I'll try to explain more in the future. AxaptaObject axSalesTable = ax.CreateAxaptaObject("AxSalesTable"); AxaptaRecord rcInventDim = ax.CreateAxaptaRecord("InventDim"); AxaptaRecord rcCustTable = ax.CreateAxaptaRecord("CustTable"); rcCustTable.ExecuteStmt("select * from %1 where %1.AccountNum == '" + MySalesOrderObject.CustAccount + "'"); if (MySalesOrderObject.CurrencyCode.Trim().Length == 0) MySalesOrderObject.CurrencyCode = rcCustTable.get_Field("Currency").ToString().Trim(); string sTaxGroup = rcCustTable.get_Field("taxgroup").ToString().Trim(); //set header level fields axSalesTable.Call("parmSalesName", MySalesOrderObject.SalesName.Trim()); axSalesTable.Call("parmCustAccount", M

Passing values between form and class

Class name is EmplDuplication and Form is EmplTable . void clicked() {    MenuFunction mf;    args args = new Args();    ;     args.record(EmplTable);     mf = new menufunction(identifierstr(EmplDuplication), MenuItemType::Action); mf.run(args); } Meanwhile, in the main() method of the EmplDuplication class, we need to put this Axapta x++ code to get the datasource: static void main(Args args) {     EmplDuplication EmplDuplication; EmplTable localEmplTable; ;     if(args.record().TableId == tablenum(EmplTable)) localEmplTable = args.record();     ... }