Ruslan Goncharov Dynamics AX Development

SysTableBrowser instant field navigator

2009-11-20T17:05:00.031+02:00

Without any doubt AX SysTableBrowser is very useful tool which helps to watch on content of exploring table. Unfortunately as for me there is one essential fault. When table contains large number of fields using SysTableBrowser sometimes it's hard to find out
a. which column corresponds to particular field; and
b. using horizontal scroll bar it's difficult to "catch up" needed field.

I must confess that using of scroll bar is inconvenient very match in case when table has a dozen and more fields.

Figure 1 demonstrates lack of information of column's headers (checkbox fields).

Figure 2 illustrates disambiguation between fields RemainSalesPhysical and RemainSalesFinancial (SalesLine Table).

The simpliest way to reach needed field is Tab button. Pressing Tab user may find needed field at the end. But if there is necessity to find another one field user has to repeat Tab-pressing another one time. And another one time. And another one time...

Take a look at Axapta Object Tree (AOT) especially at \Data Dictionary\Tables\Table\Fields node. It's easy to watch on full range of fields and move from one field to another, isn't it?

Let's combine SysTableBrowser and Table\Fields node into one window.

SysTableBrowser tool this is a conjunction of SysTableBrowser Class and SysTableBrowser Form. I decided not to touch SysTableBrowser Class and following modification this is a modification of SysTableBrowser Form only.

1. Open SysTableBrowser Form Design and add FormTreeControl TreeControl like this:

Set Left Property to Right edge.
Set Height Property to Column height.

2. We need to create new fillTree() method:

// GRR fields navigator -->
void fillTree()
{
    int _i;


    FormDesign              Ctrl = element.design();
    FormControl             _buildCtrl;

    FormControl             _formControl;
    TreeItemIdx             treeItemIdx;

    ImageListAppl_Aot       ImageListAppl_Aot;
    FormTreeItem            item;

    DictField                       dictField;

    fieldId                         fieldId;
    int                             i,j;

    int                             fieldCnt;
    #DictField
    #resAppl

    ImageRes findOverlayImage(Types _type)
    {

        ImageRes imageRes;
        switch(_type)
        {
            case Types::STRING, Types::VARSTRING :
                return #ImageOverlayString;

            case Types::ENUM:
                return #ImageOverlayEnum;

            case Types::REAL:
                return #ImageOverlayReal;

            case Types::DATE:
                return #ImageOverlayDate;

            case Types::INTEGER:
                return #ImageOverlayInteger;

            case Types::DATETIME:
                return #ImageOverlayTime;

            case Types::CONTAINER:
                return #ImageOverlayContainer;

            default:
                return 0;
        }
        return imageRes;
    }
    ;

    // Find 'Grid' object -->
    for(_i=1; _i<=Ctrl.controlCount(); _i++)
    {
        _buildCtrl = Ctrl.controlNum(_i);
        _formControl = element.control(_buildCtrl.id());


        if(_formControl.name() == 'Grid')
        {
            _formGridControl = _formControl;
        }
    }
    // Find 'Grid' object <--

    // Fill tree -->
    if((FormTreeControl.visible())&&(dictTable))
    {
        ImageListAppl_Aot = new ImageListAppl_Aot();
        formTreeControl.setImagelist(ImageListAppl_Aot.imageList());
        formTreeControl.deleteAll();
        fieldCnt = dictTable.fieldCnt();

        for (i=1; i<=fieldCnt; i++)
        {
            fieldId = dictTable.fieldCnt2Id(i);
            dictField = new DictField(dictTable.id(), fieldId);
            if (bitTest(dictField.flags(), #DBF_STORE))
            {
                for(j = 1;j <= dictField.arraySize(); j++)
                {
                    treeItemIdx = SysFormTreeControl::addTreeItem(formTreeControl, dictField.name(), 0, null, imageListAppl_Aot.image(#ImageField));
                    SysFormTreeControl::setOverlayImage(formTreeControl, treeItemIdx, imageListAppl_Aot.image(findOverlayImage(dictField.baseType())));

                    itemIdxContainer += treeItemIdx;
                }
            }
        }
        SysFormTreeControl::expandTree(formTreeControl, formTreeControl.getRoot(), 1);
        // Do predefined design width more wider
        element.design().width( element.design().widthValue()+FormTreeControl.widthValue() );
        if(_formGridControl)
            _formGridControl.topMode(FormTop::TopEdge);
    }
    // Fill tree <--
}

3. In run() method we'll run fillTree() method:

void run()
{
    super();

    dictTable = new DictTable(tableId);

    this.parmSQLStmt('SELECT * FROM '+tableId2name(tableId));

    // GRR fields navigator -->
    this.fillTree();
    // GRR fields navigator <--
}

4. In ClassDeclaration we need declare two variables itemIdxContainer and _formGridControl:

class FormRun extends ObjectRun
{
    TableId tableId;
    source sqlcmd;
    DictTable dictTable;

    // GRR fields navigator -->
    Container               itemIdxContainer;
    FormGridControl         _formGridControl;
    // GRR fields navigator <--
}

5. Override mouseDblClick() method of FormTreeControl TreeControl. Now by mouse double click we may move from one field to another:

// GRR fields navigator -->
public int mouseDblClick(int _x, int _y, int _button, boolean _Ctrl, boolean _Shift)
{
    TreeItemIdx             itemIdx;
    int ret;
    ;

    ret = super(_x, _y, _button, _Ctrl, _Shift);

    [itemIdx] = this.hitTest(_x, _y);


    if((_formGridControl)&&(itemIdx))
    {
        _formGridControl.controlNum( conFind(itemIdxContainer, itemIdx ) ).setFocus();
    }

    return ret;
}

Now we may enjoy our extra functionality. If we want to hide this functionality just set FormTreeControl Visible Property to No.

I'd like to notice that navigating tree would be very useful for another tool QueryBrowser which usually deals with huge number of fields.

Who interested in another modificated SysTableBrowser take a look at Kashperuk's DEV SysTableBrowser

Copyright © 2009 Ruslan Goncharov

A few words about sorting codes

2009-02-18T16:19:00.014+02:00

In AX each item may be assigned by its own sort code. On the other hand each WMS location has its own sort code and there is a functionality for updating sort codes.

Let's analyse how do they work together.

Take a look at WMSAisle table which has following fields:

inventLocationId
sortCode
sortDescending
aisleId
aisleNo

A sample of WMSAisle table:

By the way combination inventLocationId and aisleId fields is unique (see \Data Dictionary\Tables\WMSAisle\Indexes\AisleIdx).

Every time when we try to update WMSLocation sort codes (e.g. \Menus\Invent\Periodic\Locations\Sort codes) updateSortCodes() method of WMSAisle table is invoking. The sort codes are updating in two steps:

- initialSortCode seeking;

- updating sort codes;

Determining of initialSortCode

If WMSParameters.manualSortCode is true the initialSortCode is assigned by WMSAisle.sortCode. Else initialSortCode will be equal maximal value of WMSLocation.sortCode for all aisles less than current aisleNo.

To understand how does it work suppose there is an inventLocation 00001 with several aisles (WMSAisle table)

inventLocationId        aisleId         aisleNo
    00001                   1               1
    00001                   2               2
    00001                   3               3
    00001                   4               4
    00001                   5               5
    00001                   6               6
    00001                   7               7
    00001                   8               8
    00001                   9               9

WMSLocation is filtered by inventLocationId = '00001'

inventLocationId        wmsLocationId           sortCode        aisleId
    00001                   1-07-2-1                11              1
    00001                   1-07-2-2                12              1
    00001                   1-07-2-3                13              1
………
    00001                   1-07-2-20               30              1

    00001                   1-07-2-21               31              2
    00001                   1-07-2-22               32              2
………
    00001                   1-07-2-32               42              2

    00001                   1-07-2-33               43              3
    00001                   1-07-2-34               44              3
………
    00001                   1-07-2-39               49              3

………

    00001                   1-07-2-91               101             9
    00001                   1-07-2-92               102             9
………
    00001                   1-07-2-92               112             9

We are trying to determine initialSortCode for aisleId = 3. Aisles less 3 are 1 and 2. For these aisles (1 and 2) maximal sortCode is 42. Therefore in our example initialSortCode is 42.

Updating sort codes

Updating sort codes is pretty easy and works according following algorithm:

sortCode = initialSortCode;
WMSLocation.sortCode = sortCode;
sortCode++;

i.e. each record updating aisle WMSLocation.sortCode is incrimenting by 1.

If WMSAisle.sortDescending is true all the records before updating are arranged by descended rack, ascended level and ascended position.

If WMSAisle.sortDescending is false records are arranged by ascended rack, ascended level and ascended position.

It is useful to mention that records with WMSLocation.manualSortCode = true are excluded from initialSortCode seeking and sort codes updating. And now take a look at WMSOrderTrans table (reservation). At Tables\WMSPickingRoute\Methods\makePickingLine WMSPickingRoute.makePickingLine method we may watch on followng lines:

    select firstonly forupdate WMSOrderTransCopy
        index hint RouteIdx
        where WMSOrderTransCopy.routeId         == WMSOrderTrans.routeId    &&
              WMSOrderTransCopy.fullPallet      == NoYes::No                &&
              WMSOrderTransCopy.recId           == WMSOrderTrans.recId;

    WMSOrderTransCopy.routeId                   = this.pickingRouteID;
    WMSOrderTransCopy.sortCode                  = (WMSLocation) ? WMSLocation.sortCode :

WMSOrderTrans.WMSLocation().sortCode;
    WMSOrderTransCopy.itemSortCode              = inventTable.sortCode;
    WMSOrderTransCopy.volume                    = WMSOrderTrans.qty * inventTable.grossVolume();
    WMSOrderTransCopy.expectedExpeditionTime    = expectedPickTime;
    WMSOrderTransCopy.fullPallet                = NoYes::No;

Here WMSLocation.sortCode and inventTable.sortCode are stored. And the result of sorting codes we may watch in WMSPickForm form where records are arranged by itemSortCode and sortCode.

    queryBuildDataSource.addSortField(fieldNum(WMSOrderTrans, routeId));
    queryBuildDataSource.addSortField(fieldNum(WMSOrderTrans, itemSortCode));
    queryBuildDataSource.addSortField(fieldNum(WMSOrderTrans, sortCode));
    queryBuildDataSource.addSortField(fieldNum(WMSOrderTrans, itemId));
    queryBuildDataSource.addSortField(fieldNum(WMSOrderTrans, dataAreaId));

\Forms\WMSPickForm\Data Sources\WMSOrderTrans\Methods\init()

Therefore itemSortCode is more prevalent than Location sortCode as described in Logistic documentation.

Copyright © 2009 Ruslan Goncharov

Storing report design in database

2008-08-27T13:26:00.007+03:00

Today I'd like to say a few words about packDesign()/unpackDesign() methods.

As a matter of fact we may store report design just in database. All we need is new container field in table where report design is storing.

Following job demonstrates storing technique.

When restore is false - we store the design. Else design restoring.

P.S. FieldReportDesign field should be Container.

static void JobReportDesign(Args _args)

{
    Report              report = new Report();
    ReportRun           reportRun;

    ReportDesign        reportDesign;
    ReportSection       reportSection;
    ReportTextControl   reportTextControl;

    Table1              Table1;
//    boolean             restore = true;
    boolean             restore = false;
    BinData             binData;

    void runReport(ReportRun _reportRun)
    {
        ReportDesign    _reportDesign = _reportRun.report().design();
        int sCount    = _reportDesign.sectionCount();
        int i;
        ;

        for(i=1; i<=sCount; i++)
        {
            _reportDesign.section(i).executeSection();
        }
    }
    ;

    reportDesign = report.addDesign();
    reportRun = new ReportRun(report);

    // ReStore the report -->
    if(restore)
    {
        select Table1
            where Table1.ItemId == '000000000001';

        reportRun.unpackDesign(Table1.FieldReportDesign);
        runReport(reportRun);

        report.interactive(false);
        reportRun.run();

        return;
    }
    // ReStore the report <--

    reportSection = reportDesign.addProgrammableSection(1);
    reportTextControl = reportSection.addTextControl('Small');
    reportTextControl.width100mmInclBorder(20120);
    reportTextControl.fontSize(15);
    reportTextControl.bold(10);
    reportTextControl.alignment(3);
    reportSection.executeSection();

    reportSection = reportDesign.addProgrammableSection(2);
    reportTextControl = reportSection.addTextControl('report');
    reportTextControl.width100mmInclBorder(20120);
    reportTextControl.fontSize(15);
    reportTextControl.bold(10);
    reportTextControl.alignment(3);
    reportSection.executeSection();

    report.interactive(false);

    // Store the report -->
    if(!restore)
    {
        ttsbegin;
        select forupdate Table1
            where Table1.ItemId == '000000000001';

        Table1.FieldReportDesign = reportRun.packDesign();
        Table1.update();

        ttscommit;
    }
    // Store the report <--

    reportRun.run();
}

Copyright © 2008 Ruslan Goncharov

SysListSelect

2008-07-31T16:44:00.016+03:00

In AX there is an easy tool for creating simple lists with following selection needed items called SysListSelect. In this form we may check/uncheck every item separately or whole list by clicking at Yes to All or No to All buttons.

Some information about SysListSelect we may find in MSDN SysListSelect class, but unfortunately description is very compact and it's hard even for experienced developer to understand how to fully use this tool. Following article is meant to fill this gap in knowledge.

To call SysListSelect form we don't need write any code. In Global class there is corresponding wrapper selectMultiple() method:

/*
Returns container with the status of how the form is closed plus the selected ids.
*/
static client container selectMultiple(
    Caption     caption,
    str         info,                   // An info text displayed in the top of the form
    container   choices,
    container   headers = conNull()     // If null, the list view is used
    )

The first and second parameters are evident. There are form's caption and info respectively. At first glance third parameter is obvious too: choices container contains items we need to select. But be aware that each item consists from three fields:

label - (string) in fact this is an item we are selecting
id - (integer) item's identifier
set - (boolean) determines default state of item (checked\unchecked)

before passing choices into selectMultiple() we need to pack every item into container using sysListSelect::packChoice()

static container packChoice(
    str                 label,
    int                 id,
    boolean             set
    )
{
    return [label,id,set];
}

Here we create our first row.

con+=[sysListSelect::packChoice(label, id, set)];

The fourth parameter headers is used to show headers. That means that we may visualise more than one column. But how to pass these columns?
The answer is simple. If we need to pass some columns we just need to "divide" each label at columns by '\n' symbol:

label = column1+'\n'+column2+'\n'+...+columnN

Thats all. Now we are ready to launch SysListSelect form.

static void sysListSelectSampleJob(Args _args)
{
    container con;
    container ret;
    boolean             ok;

    str                 label;
    int                 id;
    boolean             set;
    ;

    label   = 'label_11'+'\n'+'label_12';
    id      = 1;
    set     = false;
    con+=[sysListSelect::packChoice(label, id, set)];

    label   = 'label_21'+'\n'+'label_22';
    id      = 2;
    set     = true;
    con+=[sysListSelect::packChoice(label, id, set)];

    [ok, ret] = selectMultiple('Caption','Info', con, ['First column', 'Second column']);
    conView(ret);
}

I absolutely forgot to say that selectMultiple() returns container which first parameter is boolean (in our example this is ok) pointing whether was pressed OK button or not and container of selected id's.

Here we selected 2 elements.

And here we try to work with AX breakpoints (something similar with native SysBreakpoints form)

static void sysListSelectBreakpointsJob(Args _args)
{
    container con;
    container ret;
    boolean             ok;

    str                 label;
    int                 id;
    boolean             set;

    container           breakpoints;
    int                 i, bpLen;
    ;

    breakpoints = infolog.breakpoint();
    bpLen = conLen(breakpoints);
    for(i=2; i<=bpLen; i++)
    {
        switch ((i mod 3))
        {
            case 2:
                label   = conpeek(breakpoints, i);
            break;

            case 0:
                id      = conpeek(breakpoints, i);
            break;

            case 1:
                set     = conpeek(breakpoints, i);
            break;
        }
        con+=[sysListSelect::packChoice(label, id, set)];
    }
    [ok, ret] = selectMultiple('Caption','Breakpoints', con, ['Path']);
}

I'd like to point at fact that using SysListSelect is very rare. I've found in AX it in one place only: \Classes\SysDataImport\deleteTablesCheck (AX 3.0) so this tool is still waiting for developers :-)

I've discovered too that there is a small bug in \Classes\SysListSelect\selected() method.
When we launch the form from a wrapper and try to close form (not click at OK or Cancel) AX falls at endless loop(AX 3.0). The matter of fact in this case listView is destroyed already and impossible to get listView items correctly.

To avoid this I dropped a line into selected() method:

container selected()
{
    Counter         i;
    FormListItem    item;
    container       selected;
    ;

    
  if(listView.getCount())// added by GRR
  {
    for (i=listView.getNextItem(FormListNext::ALL); i>=0; i=listView.getNextItem(FormListNext::ALL,i))
    {
        item = listView.getItem(i);
        if (item && item.image() == this.imageOn())
            selected += item.data();
    }
  }
    return selected;
}

Copyright © 2008 Ruslan Goncharov

Stereogram in AX

2008-05-30T16:56:00.006+03:00

Following job demonstrates random dot stereogram technique in AX.

static void RDStechniqueJob(Args _args)
{
        #define.image("C:\\Images\\pattern.bmp")

        #define.imageSizeX(300) // width*2
        #define.imageSizeY(300) // height

        #define.depth(5)

        Form            form;
        FormRun         formRun;
        FormDesign      formDesign;

        Args            args;
        FormBuildDesign formBuildDesign;

        FormBuildWindowControl formBuildWindowControl;
        FormWindowControl pane;

        Image image     = new Image();
        Image pattern   = new Image();
        int     _x, _y;


        void Draw()
        {
            Random  rnd = new Random();
            int     color;
            ;

            for(_x=0; _x<#imageSizeX/2; _x++)
            {
                for(_y=0; _y<#imageSizeY; _y++)
                {
                    color = rnd.nextInt()*0xFF;
                    image.setPixel(_x, _y, color);
                    image.setPixel(_x+#imageSizeX/2, _y, color);
                }
            }
        }

        void CreateStereogram()
        {
            int     color;
            int     d;
            ;

            pattern.loadImage(#image);

            for(_x=0; _x<#imageSizeX/2; _x++)
            {
                for(_y=0; _y<#imageSizeY; _y++)
                {
                    if(!(pattern.getPixel(_x, _y) mod 2))
                    {
                        color = image.getPixel(_x, _y);
                        image.setPixel(_x+#imageSizeX/2-#depth, _y, color);
                    }
                }
            }
        }
        ;

        form = new Form();
        formBuildDesign = form.addDesign('design');
        formBuildDesign.hideToolbar(true);

        formBuildDesign.columns(1);
        formBuildDesign.topMode(1); // Auto
        formBuildDesign.leftMode(1); // Auto
        formBuildDesign.widthMode(1); // Auto
        formBuildDesign.heightMode(1); // Auto
        formBuildDesign.width(1.1*#imageSizeX);

        formBuildWindowControl = formBuildDesign.addControl(FormControlType::IMAGE, 'pane');
        formBuildWindowControl.height(#imageSizeY);
        formBuildWindowControl.width(#imageSizeX);
        formBuildWindowControl.backgroundColor(0);

        args = new Args();
        args.object(form);
        formRun = classFactory.formRunClass(args);
        formRun.init();
        formRun.resetSize();
        formDesign = formRun.design();
        formRun.resetSize();
        formrun.formOnTop();
        formRun.run();


        formRun.design().caption('Random-dot stereogram');
        pane = formRun.control(formBuildWindowControl.id());

        image.saveType(ImageSaveType::BMP_UNCOMP);
        image.createImage(#imageSizeX, #imageSizeY, 24);

        Draw();

        CreateStereogram();
        pane.image(image);

        formRun.wait();
}

Notes:
in this job
- pattern.bmp should be monochrome.
- imageSizeX should be twice more than width of bitmap file.
- depth -- z-axis (depth).

Copyright © 2008 Ruslan Goncharov

From Microsoft Dynamics AX Programming newsgroup tricks

2008-05-23T18:00:00.004+03:00

TreeNode Alternative for FormControls

I want to create a Control on a Form just like I would with a TreeNode in AX 3.0. But the TreeNode.AOTAdd doesn't work for FOrmControls. Is there an Alternative how I can create a Control? These Fields should notbe temporary like in the Tutorial_Form_AddControl. They should be in the AOT after being created.

    TreeNode                formlist;
    Form                    formNode;

    FormBuildDesign         formDesign;

    ;

    formlist = infolog.findNode('Forms');
    formNode = formlist.AOTfindChild('Form1');

    formDesign = formNode.design();
    formDesign.addControl(FormControlType::String, 'StringEdit');
    formNode.save();

Saved form settings

When we import new objects, the user defined form settings are lost. It's possible to prevent that from happening?

static void JobSettingsStoringAndRestoring(Args _args)
{
    syslastvalue    sysLastValue;
    container       dataContainer;
    BinData         binData;

    container       blobContainer;
    ContainerClass  containerClass;
    str             settingsFileName = "c:\\settings.txt";
    ;

//  Store settings -->
    dataContainer = xSysLastValue::getValue(
        curExt(), curUserId(), UtilElementType::Usersetup, 'AddressCheck', 'myDesign');

    containerClass = new ContainerClass(dataContainer);
    blobContainer = containerClass.toBlob();

    binData = new BinData();
    binData.setData(blobContainer);

    binData.saveFile(settingsFileName);
//  Store settings <--

//  Restore settings -->
/*    binData = new BinData();
    binData.loadFile(settingsFileName);

    dataContainer = containerClass::blob2Container(binData.getData());
    xSysLastValue::putValue(dataContainer,
        curExt(), curUserId(), UtilElementType::Usersetup, 'AddressCheck', 'myDesign');*/
//  Restore settings <--
}

Copyright © 2008 Ruslan Goncharov

Dynamic enabled() property for StringEdit and arrows

2008-04-18T16:47:00.009+03:00

Sometimes we need to enable or disable some field depending on value from another field.

The first way is using Group object where FrameOptionButton property is set to Check. For details see \Forms\tutorial_Form_groupOption

The second approach is setting enabled() property for StringEdit object.

void enableControls()
{
    StringEdit_1.enabled(myTable.Field);
}

Unfortunately we may notice that the arrow object of StringEdit doesn't work properly. Sometimes the arrow is vanish away from control.

The small modification should improve the arrow's behaviour.

In fact the arrow is the child window of StringEdit. The idea consists in managing state of parent and child window trough winApi.

All what we need to do is:

1. Add new enableWindow() method in WinApi class:

// Created by GRR
client static boolean enableWindow(int _handle, boolean _value)
{
    DLL         _DLL             = new DLL('USER32');
    DLLFunction _enableWindow    = new DLLFunction(_DLL, 'EnableWindow');

    _enableWindow.returns(ExtTypes::DWord);
    _enableWindow.arg(ExtTypes::DWord);
    _enableWindow.arg(ExtTypes::DWord);

    return _enableWindow.call(_handle, _value);
}

2. Rewrite our enableControls() method:

void enableControls()
{
    void controlEnabled(FormControl control, boolean _value)
    {
        #WinApi

        int ctrlHwnd    = control.hWnd();
        int childHwnd   = WinApi::getWindow(ctrlHwnd, #GW_CHILD);
        ;

        WinApi::showWindow(ctrlHwnd, #SW_SHOW);
        WinApi::showWindow(childHwnd, #SW_SHOW);

        WinApi::enableWindow(ctrlHwnd,  _value);
        WinApi::enableWindow(childHwnd, _value);
    }
    ;

    controlEnabled(StringEdit_1,   myTable.Field);
    controlEnabled(StringEdit_2,   myTable.Field);
}

AX 3.0 SP4

Copyright © 2008 Ruslan Goncharov

Scrolling in AX 3.0 without dll

2008-03-09T16:12:00.011+02:00

As is well known in AX 3.0 it's unable to scroll objects (first of all Groups etc.) in the form. This feature is present since AX4 and supported, as far as I know by axScroll.dll.

Honestly, I'm not a big worshipper of using side components. On the other hand I've been thinking about how to implement scrolling feature in AX3.

About one year ago there was published very interesting project Capturando el WindowProc desde Axapta by Manekaze

In this project the author showed a possibility to trap keyboard events using API in AX. So why don't capture the scrollbar events.

What we have to do:
1. Apply scrollable style for the window which we are going to scroll.
2. Trap scroll events in AX.
3. Scroll the window according scrollbar positions.

Let's go.

- Apply scrollable style for the window which we are going to scroll

Setting scrollable style for the window is pretty easy:

WinApi::showScrollbar(handle, #SB_BOTH, true);

By the way we need to set some parameters for vertical and horizontal scrollbars

//                            pos pSize  min max
    WinApi::setScrollInfo(handle, 0, 20,    0, 100, true, #SB_HORZ);
    WinApi::setScrollInfo(handle, 0, 20,    0, 100, true, #SB_VERT);

and get back these parameters

   cScrollInfoH = WinApi::getScrollInfo(handle, #SB_HORZ);
    xOffset      = conpeek(cScrollInfoH, #pos);
    xScroll      = conpeek(cScrollInfoH, #maxValue);
    xSize        = conpeek(cScrollInfoH, #pageSize);
   cScrollInfoV = WinApi::getScrollInfo(handle, #SB_VERT);
    yOffset      = conpeek(cScrollInfoV, #pos);
    yScroll      = conpeek(cScrollInfoV, #maxValue);
    ySize        = conpeek(cScrollInfoV, #pageSize);

In my case page size of each scrollbar is 20, minimum scrolling position is 0 and maximum scrolling position is 100.

- Scroll the window according scrollbar positions

Here I don't like to reinvent something new and I used standard library, which I've found here with small modifications As a matter of fact we need only two methods:
int Scroll_SetVert(ScrollInfo_t* pScroll, HWND hWnd, WORD wScrollCmd, WORD wScrollPos)
int Scroll_SetHorz(ScrollInfo_t* pScroll, HWND hWnd, WORD wScrollCmd, WORD wScrollPos)

int Scroll_SetVert(ScrollInfo_t* pScroll, HWND hWnd, WORD wScrollCmd, WORD wScrollPos)
        {
        int               nScrollAmt ;

        switch (wScrollCmd)
                {
                case SB_TOP:
                        nScrollAmt = -pScroll->yOffset ;
                        break ;

                case SB_BOTTOM:
                        nScrollAmt = pScroll->yScroll - pScroll->yOffset ;
                        break ;

                case SB_PAGEUP:
                        nScrollAmt = -pScroll->ySize ;
                        break ;

                case SB_PAGEDOWN:
                        nScrollAmt = pScroll->ySize ;
                        break ;

                case SB_LINEUP:
                        nScrollAmt = -pScroll->yChar ;
                        break ;

                case SB_LINEDOWN:
                        nScrollAmt = pScroll->yChar ;
                        break ;

                case SB_THUMBPOSITION:
                        nScrollAmt = wScrollPos - pScroll->yOffset ;
                        break ;

                default:
                        return ( FALSE ) ;
                }
        if ((pScroll->yOffset + nScrollAmt) > pScroll->yScroll)
                nScrollAmt = pScroll->yScroll - pScroll->yOffset ;
        if ((pScroll->yOffset + nScrollAmt) < 0)
                nScrollAmt = -pScroll->yOffset ;
        ScrollWindow( hWnd, 0, -nScrollAmt, 0, 0 ) ;
        pScroll->yOffset = pScroll->yOffset + nScrollAmt ;
        SetScrollPos( hWnd, SB_VERT, pScroll->yOffset, TRUE ) ;

        return ( TRUE ) ;

        } // end of Scroll_SetVert()

int Scroll_SetHorz(ScrollInfo_t* pScroll, HWND hWnd, WORD wScrollCmd, WORD wScrollPos)
        {
        int               nScrollAmt ;

        switch (wScrollCmd)
                {
                case SB_TOP:
                        nScrollAmt = -pScroll->xOffset ;
                        break ;

                case SB_BOTTOM:
                        nScrollAmt = pScroll->xScroll - pScroll->xOffset ;
                        break ;

                case SB_PAGEUP:
                        nScrollAmt = -pScroll->xSize ;
                        break ;

                case SB_PAGEDOWN:
                        nScrollAmt = pScroll->xSize ;
                        break ;

                case SB_LINEUP:
                        nScrollAmt = -pScroll->xChar ;
                        break ;

                case SB_LINEDOWN:
                        nScrollAmt = pScroll->xChar ;
                        break ;

                case SB_THUMBPOSITION:
                        nScrollAmt = wScrollPos - pScroll->xOffset ;
                        break ;

                default:
                        return ( FALSE ) ;
                }
        if ((pScroll->xOffset + nScrollAmt) > pScroll->xScroll)
                nScrollAmt = pScroll->xScroll - pScroll->xOffset ;
        if ((pScroll->xOffset + nScrollAmt) < 0)
                nScrollAmt = -pScroll->xOffset ;
        ScrollWindow( hWnd, -nScrollAmt, 0, 0, 0 ) ;
        pScroll->xOffset = pScroll->xOffset + nScrollAmt ;
        SetScrollPos( hWnd, SB_HORZ, pScroll->xOffset, TRUE ) ;

        return ( TRUE ) ;
        } // end of Scroll_SetHorz()

In my WinApi class I haven't found scrollWindow() method. And I've added it into WinApi class

// Created by GRR
client static int scrollWindow(int     hwnd,
                               int     XAmount,
                               int     YAmount)
{
    DLL         _winApiDLL     = new DLL('USER32');
    DLLFunction _scrollWindow  = new DLLFunction(_winApiDLL, 'ScrollWindow');

    _scrollWindow.returns(ExtTypes::DWord);
    _scrollWindow.arg(ExtTypes::DWord,
                       ExtTypes::DWord,
                       ExtTypes::DWord,
                       ExtTypes::DWord,
                       ExtTypes::DWord);

    return _scrollWindow.call(hwnd, XAmount, YAmount, 0,0);
}

Now we are ready for third step

- Trapping scroll events I've designed it as a new class xApplyScrolling // Begin of xApplyScrolling class -->

#define.minValue(1)
#define.maxValue(2)
#define.pageSize(3)
#define.pos(4)

#define.xChar(5)
#define.yChar(5)

class xApplyScrolling
{
    #WinApi

    TrucosAx_TrapperWndProc     WndProcHScroll, WndProcVScroll;
    HWND                        handle;

    container    cScrollInfoH, cScrollInfoV;
    int          xOffset, yOffset;
    int          xScroll, yScroll;
    int          xSize,   ySize;
}

//In new() method we are installing hooks for WM_HSCROLL and WM_VSCROLL separately
void new(FormRun _element, FormControl _formControl)//HWND _HWnd
{
    handle = _formControl.hWnd();

    WndProcHScroll = new TrucosAx_TrapperwndProc(_element, handle, true);
    WndProcHScroll.InstallHook(#WM_HSCROLL, 'scrlMessageH');
    WndProcHScroll.setObject(this);

    WndProcVScroll = new TrucosAx_TrapperwndProc(_element, handle, true);
    WndProcVScroll.InstallHook(#WM_VSCROLL, 'scrlMessageV');
    WndProcVScroll.setObject(this);

    this.setScrollable();
}

//Here we set scrollable style for the window
protected void setScrollable()
{
    ;
    WinApi::showScrollbar(handle, #SB_BOTH, true);

//                 pos pSize  min max
    WinApi::setScrollInfo(handle, 0, 20,    0, 100, true, #SB_HORZ);
    WinApi::setScrollInfo(handle, 0, 20,    0, 100, true, #SB_VERT);

    cScrollInfoH = WinApi::getScrollInfo(handle, #SB_HORZ);
    xOffset      = conpeek(cScrollInfoH, #pos);
    xScroll      = conpeek(cScrollInfoH, #maxValue);
    xSize        = conpeek(cScrollInfoH, #pageSize);

    cScrollInfoV = WinApi::getScrollInfo(handle, #SB_VERT);
    yOffset      = conpeek(cScrollInfoV, #pos);
    yScroll      = conpeek(cScrollInfoV, #maxValue);
    ySize        = conpeek(cScrollInfoV, #pageSize);
}

//Here we scroll the window
protected str translateHCode(int _nScrollCode)
{
    int          nScrollAmt ;
    str          strCode;
    ;

    switch (_nScrollCode)
    {
        case #SB_BOTTOM: // Scrolls to the lower right.
            //nScrollAmt = pScroll->xScroll - pScroll->xOffset;
            nScrollAmt = xScroll - xOffset;
            strCode = 'SB_BOTTOM';
        break;

        case #SB_ENDSCROLL: // Ends scroll.
            strCode = 'SB_ENDSCROLL';
        break;

        case #SB_LINELEFT: // Scrolls left by one unit.
            nScrollAmt = -#xChar;
            strCode = 'SB_LINELEFT';
        break;

        case #SB_LINERIGHT: // Scrolls right by one unit.
            nScrollAmt = #xChar;
            strCode = 'SB_LINERIGHT';
        break;

        case #SB_PAGELEFT: // Scrolls left by the width of the window.
            //nScrollAmt = -pScroll->xSize;
            nScrollAmt = -xSize;
            strCode = 'SB_PAGELEFT';
        break;

        case #SB_PAGERIGHT: // Scrolls right by the width of the window.
            //nScrollAmt = pScroll->xSize;
            nScrollAmt = xSize;
            strCode = 'SB_PAGERIGHT';
        break;

        case #SB_THUMBPOSITION: // Scrolls to the absolute position. The current position is specified by the nPos parameter. 
            //nScrollAmt = wScrollPos - pScroll->xOffset;
            nScrollAmt = -xSize;
            strCode = 'SB_THUMBPOSITION';
        break;

        case #SB_THUMBTRACK: // Drags scroll box to the specified position. The current position is specified by  the nPos parameter.
            strCode = 'SB_THUMBTRACK';
        break;
        case #SB_TOP: // Scrolls to the upper left.
            //nScrollAmt = -pScroll->xOffset;
            nScrollAmt = -xOffset;
            strCode = 'SB_TOP';
        break;

        default:
            //return int2HEX(_nScrollCode);
            nScrollAmt = _nScrollCode/0x10000 - xOffset;
            strCode = int2HEX(_nScrollCode);
    }

    if ((xOffset + nScrollAmt) > xScroll)
        nScrollAmt = xScroll - xOffset ;
    if ((xOffset + nScrollAmt) < 0)
        nScrollAmt = -xOffset ;
//    ScrollWindow( hWnd, -nScrollAmt, 0,) ;
    WinApi::scrollWindow(handle, -nScrollAmt, 0);

    xOffset+=nScrollAmt ;
//    SetScrollPos( hWnd, SB_HORZ, pScroll->xOffset, TRUE ) ;
    WinApi::setScrollPos(handle, #SB_HORZ, xOffset, true);
    WinApi::invalidateRect(handle);

    return strCode;
}

protected str translateVCode(int _nScrollCode)
{
    int          nScrollAmt ;
    str          strCode;
    ;

    switch (_nScrollCode)
    {
        case #SB_BOTTOM: // Scrolls to the lower right.
            nScrollAmt = yScroll - yOffset;//nScrollAmt = pScroll->yScroll - pScroll->yOffset ;
            strCode = 'SB_BOTTOM';
        break;
        case #SB_ENDSCROLL: // Ends scroll.
            return 'SB_ENDSCROLL';
        break;
        case #SB_LINEDOWN: // Scrolls one line down.
            nScrollAmt = #yChar;//nScrollAmt = pScroll->yChar;
            strCode = 'SB_LINEDOWN';
        break;

        case #SB_LINEUP: // Scrolls one line up.
            nScrollAmt = -#yChar;//nScrollAmt = -pScroll->yChar;
            strCode = 'SB_LINEUP';
        break;
        case #SB_PAGEDOWN: // Scrolls one page down.
            nScrollAmt = ySize;//nScrollAmt = pScroll->ySize;
            strCode = 'SB_PAGEDOWN';
        break;

        case #SB_PAGEUP: // Scrolls one page up.
            nScrollAmt = -ySize;//nScrollAmt = -pScroll->ySize;
            strCode = 'SB_PAGEUP';
        break;

        case #SB_THUMBPOSITION: // Scrolls to the absolute position. The current position is specified by the nPos parameter.
            //nScrollAmt = wScrollPos - pScroll->yOffset;
            nScrollAmt = -ySize;
            strCode = 'SB_THUMBPOSITION';
        break;

        case #SB_THUMBTRACK: // Drags scroll box to the specified position. The current position is specified by the nPos parameter.
            return 'SB_THUMBTRACK';
        break;

        case #SB_TOP: // Scrolls to the upper left.
            nScrollAmt = -yOffset;// nScrollAmt = -pScroll->yOffset;
            strCode = 'SB_TOP';
        break;

        default:
            nScrollAmt = _nScrollCode/0x10000 - yOffset;
            strCode = int2HEX(_nScrollCode);
    }

    if ((yOffset + nScrollAmt) > yScroll)
        nScrollAmt = yScroll - yOffset;
    if ((yOffset + nScrollAmt) < 0)
        nScrollAmt = -yOffset;

    WinApi::scrollWindow(handle, 0, -nScrollAmt);
//    pScroll->yOffset = pScroll->yOffset + nScrollAmt ;
//    SetScrollPos( hWnd, SB_VERT, pScroll->yOffset, TRUE ) ;

    yOffset+=nScrollAmt;
    WinApi::setScrollPos(handle, #SB_VERT, yOffset, true);
    WinApi::invalidateRect(handle);

    return strCode;
}

// Here we process scrolling messages
protected void scrlMessageH()
{
    map     MMsgH;
    ;

    MMsgH = WndProcHScroll.GetMsg();

    this.translateHCode(MMsgH.lookup('WPARAM'));
}

protected void scrlMessageV()
{
    map     MMsgV;
    ;

    MMsgV = WndProcVScroll.GetMsg();

    this.translateVCode(MMsgV.lookup('WPARAM'));
}

// Here we finalize our class 
void finalize()
{
    WndProcHScroll.RemoveMainProc();
    WndProcVScroll.RemoveMainProc();
}

// <-- End of xApplyScrolling class

By the way there was modificated a bit TrucosAx_TrapperWndProc class.
In method processMessages() in our case we need to work with class object, not with FormRun object. Here are modifications:

class TrucosAx_TrapperWndProc extends TrucosAx_TrapperBase
{
 #define.CodeSize(159) // Total bytes de codigo
  #define.InternalDataSize(16)
  #define.MaxDataelements(100) // Si se cambia se debe cambiar el codigo asm
  #Define.DataSize(16) // +16 bytes de buffer
  #Define.offsetcounter(#CodeSize + 4)
  #Define.offsetlastmsg(#CodeSize + 8)
  #Define.offsetCallwndproc(#CodeSize + 12)

  map hooks;
  #define.maxHooks(20) //si se cambia se debe cambiar el codigo asm
  Binary HooksBuffer;

    Object  object;//Created by GRR
}

//Created by GRR
void setObject(Object _object)
{
    ;
    object = _object;
}

protected void processMessages()
{ map Mmsg;
  int msgId;


  void Ejecuta( str methodname )
  {
    str func = @"void FireHook(object obj)
    {
     ;
      obj.%1();
    }";
    func = strfmt(func,methodname);
    //RunBuf(func, xelement); //Commented by GRR

    // Created by GRR -->
    if (object)
        RunBuf(func, object);
    else
        RunBuf(func, xelement);
    // Created by GRR <--
  }
;

 do
 {
  MMsg = this.GetMsg();
  if (! MMsg) continue;
  MsgId = MMsg.lookup('MSG');
  if (hooks.exists(MsgId))
  {
    Ejecuta(hooks.lookup(MsgId));

   // Si se queda el mensaje debe devolver algo en 'RESULT' en el MMSG
    if ( ! MMsg.exists('RESULT'))
     this.CallbackOriginalProc(MMsg);
  }
 } while (MMsg && this.nextmessage());
}

That's all. To work with scrollable objects we need drop a line in run() method:

public void run()
{
    super();

    applyScrolling = new xApplyScrolling(element, element.control(control::HRMPersonal));
}

// don't forget to finalize ApplyScrolling class
public void close()
{
    applyScrolling.finalize();

    super();
}

// and declare applyScrolling variable in ClassDeclaration 
xApplyScrolling applyScrolling;

Following picture demonstrates scrolling TabPage:HRMPersonal EmplTable form
P.S. This project is raw enough. For example it doesn't support form resizing.
Another words... to be continued.

Copyright © 2008 Ruslan Goncharov

Posting InventJournal from X++

2008-02-24T14:55:00.006+02:00

Once I was faced the problem to post InventJournal from code.
At first glance it's easy. Let's open AOT. Then we find corresponding Menu Item in \Menu Items\Action\InventJournalPost. Open class InventJournalCheckPost... And looking at main() method of this class we are coming to conclusion that this class is tightly tied to the journalForm. What's a pity!

So let's try to write own code.

Look at main() method:

static void main(Args args)
{
        InventJournalCheckPost journalCheckPost;
        journalForm journalForm;

        ;

        journalForm = journalForm::fromArgs(args);
        journalCheckPost = InventJournalCheckPost::newFromForm(args,journalForm);

        journalForm.runbaseMainStart();

        if (!journalCheckPost.PROMPT())

        {
                if (! journalCheckPost.BatchInfo().parmBatchExecute())
                        journalForm.runbaseMainCancel();
        
                return;
        }

        try
        {
                journalCheckPost.run();
                journalForm.runbaseMainEnd(journalCheckPost,false);

        }
        catch (Exception::Error)
        {
                journalForm.runbaseMainEnd(journalCheckPost,true);
        }
}

First of all we need to get rid of journalForm.
Let's rewrite newFromForm() method. The parameters wich passing into this method are used to achieve InventJournalTable. So we may just pass InventJournalTable into our new method.

JournalCheckPost getJournalCheckPost(InventJournalTable _inventJournalTable)
{
        // \Menu Items\Action\InventJournalPost
        switch(inventJournalTable.journalType)
        {
                case InventJournalType::Movement:
                case InventJournalType::LossProfit:
                case InventJournalType::Transfer:
                case InventJournalType::BOM:
                case InventJournalType::Count:
                case InventJournalType::project:
                case InventJournalType::Asset:
                        journalCheckPost_Mov = InventJournalCheckPost_Movement::newJournalCheckPost(
                        false,true, JournalCheckPostType::Post, _inventJournalTable.tableId,                    _inventJournalTable.journalId);
                        // journalTransData = _journalForm.JournalTransData();
                        // if (journalTransData)
                        // journalCheckPost_Mov.parmVoucher(journalTransData.journalTrans().voucher);
                return journalCheckPost_Mov;

                case InventJournalType::TagCounting:
                        journalCheckPost = InventJournalCheckPost_Tag::newJournalCheckPost(
                        false, true, JournalCheckPostType::Post, inventJournalTable.tableId,                    _inventJournalTable.journalId);
                return journalCheckPost_Tag;
        }
}

Look at JournalFormTable class. It extends journalForm class.

Inside of runbaseMainStart() method we may find following line
journalTableData.updateBlock(JournalBlockLevel::None,JournalBlockLevel::System,false);

inside of runbaseMainCancel() method:
journalTableData.updateBlock(JournalBlockLevel::System,JournalBlockLevel::None,false);

and inside of runbaseMainEnd() method:
journalTableData.updateBlock(JournalBlockLevel::System,JournalBlockLevel::None,false);

That's enough. Now we may rewrite main() method:

// Posting start. According to \Classes\InventJournalCheckPost
// journalForm.runbaseMainStart();
        journalTableData::updateBlockServer(
        inventJournalTable, JournalBlockLevel::None, JournalBlockLevel::System, false);

        journalCheckPost = getJournalCheckPost(inventJournalTable);
        if (!journalCheckPost.PROMPT())
        {
                if (! journalCheckPost.BatchInfo().parmBatchExecute())
                {
                        // journalForm.runbaseMainCancel();
                        journalTableData::updateBlockServer(
                        inventJournalTable, JournalBlockLevel::System, JournalBlockLevel::None, false);
                }
                return;
        }

        try
        {
                journalCheckPost.run();
                // journalForm.runbaseMainEnd(journalCheckPost,false);
                journalTableData::updateBlockServer(
                        inventJournalTable, JournalBlockLevel::System, JournalBlockLevel::None, false);
        }
        catch (Exception::Error)
        {
                // journalForm.runbaseMainEnd(journalCheckPost,true);
                journalTableData::updateBlockServer(
                inventJournalTable, JournalBlockLevel::System, JournalBlockLevel::None, true);
        }
// Posting end

Finally, we are ready to write our remarkable job:

static void JobInventJournalPost(Args _args)
{
        InventJournalCheckPost_Movement journalCheckPost_Mov;
        InventJournalCheckPost_Tag journalCheckPost_Tag;

        InventJournalCheckPost journalCheckPost;

        InventJournalTable inventJournalTable;
        InventJournalId inventJournalId = 'Inv002372';

        JournalCheckPost getJournalCheckPost(InventJournalTable _inventJournalTable)
        {
                // \Menu Items\Action\InventJournalPost
                switch(_inventJournalTable.journalType)
                {
                        case InventJournalType::Movement:
                        case InventJournalType::LossProfit:
                        case InventJournalType::Transfer:
                        case InventJournalType::BOM:
                        case InventJournalType::Count:
                        case InventJournalType::project:
                        case InventJournalType::Asset:
                                journalCheckPost_Mov = InventJournalCheckPost_Movement::newJournalCheckPost(
                                false,true, JournalCheckPostType::Post, _inventJournalTable.tableId,                            _inventJournalTable.journalId);
                                // journalTransData = _journalForm.JournalTransData();
                                // if (journalTransData)
                                // journalCheckPost_Mov.parmVoucher(journalTransData.journalTrans().voucher);
                                return journalCheckPost_Mov;

                        case InventJournalType::TagCounting:
                                journalCheckPost = InventJournalCheckPost_Tag::newJournalCheckPost(
                                false, true, JournalCheckPostType::Post, _inventJournalTable.tableId,                           _inventJournalTable.journalId);

                                return journalCheckPost_Tag;
                }
        }
        ;

        inventJournalTable = InventJournalTable::find(inventJournalId);
        if(inventJournalTable)
        {
                // Posting start. According to \Classes\InventJournalCheckPost
                // journalForm.runbaseMainStart();

                journalTableData::updateBlockServer(
                inventJournalTable, JournalBlockLevel::None, JournalBlockLevel::System, false);

                journalCheckPost = getJournalCheckPost(inventJournalTable);
                if (!journalCheckPost.PROMPT())
                {
                        if (! journalCheckPost.BatchInfo().parmBatchExecute())
                        {

                                // journalForm.runbaseMainCancel();
                                journalTableData::updateBlockServer(
                                inventJournalTable, JournalBlockLevel::System, JournalBlockLevel::None, false);
                        }

                        return;

                }

                try
                {
                        journalCheckPost.run();
                        // journalForm.runbaseMainEnd(journalCheckPost,false);
                        journalTableData::updateBlockServer(
                        inventJournalTable, JournalBlockLevel::System, JournalBlockLevel::None, false);
                }

                catch (Exception::Error)
                {
                        // journalForm.runbaseMainEnd(journalCheckPost,true);
                        journalTableData::updateBlockServer(
                        inventJournalTable, JournalBlockLevel::System, JournalBlockLevel::None, true);
                }
                // Posting end
 }

Copyright © 2008 Ruslan Goncharov

Quick sorting in info messages

2008-02-09T16:53:00.001+02:00

Sometimes developer face the problem formatting of information messages to user, namely how to sort any items in message especially without duplications. Don't design own sorting algorhytms indeed.

Let's use class Set. The question is toString() method automatically sorts the values and supresses duplicate values.

Following job illustrates how to prepate formatting message using toString() method.

static void JobSetSorting(Args _args)
{
    str         out;
    set         is = new set (types::Real);
    ;

    is.add(0.5);
    is.add(1.25);
    is.add(1.0);
    is.add(3.0);
    is.add(0.5);

    out = is.toString();

    out = strReplace(out,"{", "");
    out = strReplace(out,"}", "");
    //out = strReplace(out,",", "/");

    box::info("In fact: "+out);
}

Copyright © 2008 Ruslan Goncharov

Sending message to user

2008-01-26T15:58:00.001+02:00

Following job illustrates how to send message to user in AX 3.0

static void JobSendMessage(Args _args)
{
    AOSSessionInfo  testSession;

    int             counter;
    int             maxSessions;

    container       users;
    int             sesId;
    userId          userId;
    ClientType      clientKind;
    date            logindate;
    int             logintime;
    str             clientComputerName;
    str             databaseSpid;
    str             itemSTr;
    userName        userName;
    AOSClientMode   clientMode;
    int             sessionCount;
    int             idleTicks;
    str             recipient = curuserid();// place here addressee userid
    int             recSesId = -1;
    ;

    [ users, maxSessions ] = SysUsersOnline::getAllOnlineUserInfo();
    for(counter = 1; counter <= maxSessions; counter++)
    {
        [   sesId,
            userId,
            clientKind,
            loginDate,
            loginTime,
            clientComputerName,
            databaseSpid,
            userName,
            clientMode,
            idleTicks
            ] = conPeek(users, counter);

            if(userId == recipient)
            {
                recSesId = sesId;
                break;
            }
    }

    if(recsesId != -1)
    {
        testSession = new AOSSessionInfo(recsesId);
        if (testSession)
        {
            AOSSessionInfo::sendMessage(
               recsesId, strfmt("@SYS55325", curuserid(), time2str(timenow(),0,0)),

                "Hello!");

            box::info("Delievered");
        }
    }
    else
    {
        throw error(strFmt("User %1 is offline.", recipient));
    }
}

Borrowed from \Menu Items\Action\SysUsersSendMessage
Involved classes:
\Classes\SysUsersSendMessage
\Classes\SysUsersOnline

Copyright © 2008 Ruslan Goncharov

How to clarify what happened with variables in AX

2008-01-17T10:56:00.001+02:00

In microsoft.public.axapta.programming group Arjang in subject "Finding the lookup table of a lookup field" asked how to find out what is the look up table used to display the values for SalesTable.SalesStatus filed.

I've suggested look at SalesTableType and SalesLineType classes. The next question was how did I pointed at these classes.

Unfortunately I can't reply in the newsgroup at the moment (something wrong with the newsgroup or my browser), so I've decided to answer here in my blog.

Actually in AOT you may find out a huge chunk of information about tables, classes, enumerations etc. In case of SalesTable.SalesStatus field first of all I've decided to look at SalesTable Methods AOT node (just clicked Search [SalesStatus]). Looking at table's methods we may get a lot of useful information.

The second step was the searching of SalesStatus text in Classes.

By the way don't forget about cross-references. The cross-reference is important tool when you develop or debug Dynamics Ax.

Copyright © 2008 Ruslan Goncharov

How to get the screenshots of all open windows in AX

2008-01-12T10:54:00.001+02:00

This job allows get screenshots of all currently open windows in Axapta. It based on idea published in How to get list of all open windows and their names in AX

static void JobAllTheWindowsScreenshots(Args _args)
{        
        #define.screenshotFolder('q:\\capture\\')

        hWnd Parent;
        hWnd handle;

        hWnd mdi;
        #WinApi

        dialog d = new Dialog();
        DialogTabPage dt;

        str text;

        // retrieves the visibility state of the specified window -->
        DLL _DLL = new DLL('USER32');
        DLLFunction _isWindowVisible = new DLLFunction(_DLL, 'IsWindowVisible');
        // retrieves the visibility state of the specified window <--


        container cHWnd;
        int i;

        void addTab()
        {
                if(text)
                {               
                        dt = d.addTabPage(text);
                        d.addText(text);
                        cHWnd+=handle;

                }
        }

        fileName getSaveName(identifiername name)
        {
                return #screenshotFolder + name + ".bmp";
        }

        void captureForm()
        {
                Image image = new Image();
                ;

                // Take a screenshoot of the form
                image.captureWindow(handle);

                // reduce the colors (bits/pixel)
                image.reduceColorOctree(FALSE,256);

                // Save it as bitmap
                image.saveImage(getSaveName(text), ImageSaveType::BMP_UNCOMP);
        }
        ;

        d.caption("All the windows");
        d.windowType(FormWindowType::PopUp);

        Parent = infolog.hWnd();
        mdi = WinApi::getWindow(Parent, #GW_CHILD);

        handle = WinApi::getWindow(mdi, #GW_CHILD);
        text = WinApi::getWindowText(handle);

        addTab();

        if(handle)
        {
                while(handle)
                {
                        handle = WinApi::getWindow(handle, #GW_HWNDNEXT);
                        text = WinApi::getWindowText(handle);


                        addTab();
                }
        }

        // retrieves the visibility state of the specified window -->
        _isWindowVisible.returns(ExtTypes::DWord);
        _isWindowVisible.arg(ExtTypes::DWord);
        // retrieves the visibility state of the specified window <--


        for(i=1; i<=conlen(cHWnd); i++)
        {
                handle = conPeek(cHWnd, i);

                if( _isWindowVisible.call(handle) )
                {
                        infolog.activateWindow(handle);
                        WinApi::updateWindow(handle);

                        text = strFmt('%1 %2', i, strRem(WinApi::getWindowText(handle), '\\/:*?"<>|'));
                        captureForm();
                }

        }

        d.run();
}

Note #screenshotFolder definition sets the path to the folder where screenshot collection is storing, so you have to adjusting your path on you own.

Copyright © 2008 Ruslan Goncharov

Lorenz attractor

2008-01-09T15:52:00.001+02:00

The Lorenz attractor is a set of differential equations which are popular in the field of Chaos. Following job visualize Lorenz attractor:

static void JobLorenzAttractor(Args _args)
{
        #define.iterations(1000000)

        #define.sigma(5)
        #define.r(15)
        #define.b(1)

        #define.imageSizeX(300)
        #define.imageSizeY(300)

        Form            form;
        FormRun         formRun;
        FormDesign      formDesign;

        Args            args;
        FormBuildDesign formBuildDesign;

        FormBuildWindowControl formBuildWindowControl;
        FormWindowControl pane;

        Image image = new Image();

        void DrawAttractor()
        {
                real x, y, z;
                int color;

                real t;

                real x1, y1, z1;
                real dt;

                int _x, _y;
                ;

                color = 0xFF00;

                x = 3.051522;
                y = 1.582542;
                z = 15.62388;

                dt = 0.0001;

                for(t=0; t<#iterations; t++)
                {
                        x1 = x + #sigma*(y-x)*dt;
                        y1 = y + (#r*x-y-z*x)*dt;
                        z1 = z + (x*y-#b*z)*dt;
        
                        x = x1; y = y1; z = z1;

                        _x = 16*(y - x*0.292893) + 150;
                        _y =-13*(z + x*0.292893) + 330;

                        if((_x>0)&&(_x<#imageSizeX)&&(_y>0)&&(_y<#imageSizeY))
                        {
                                image.setPixel(_x,_y, color);// + (t div 1000));
                        }
                }
        }
        ;

        form = new Form();
        formBuildDesign = form.addDesign('design');
        formBuildDesign.hideToolbar(true);

        formBuildDesign.columns(1);
        formBuildDesign.topMode(1); // Auto
        formBuildDesign.leftMode(1); // Auto
        formBuildDesign.widthMode(1); // Auto
        formBuildDesign.heightMode(1); // Auto
        formBuildDesign.width(1.4*#imageSizeX);

        formBuildWindowControl = formBuildDesign.addControl(FormControlType::IMAGE, 'pane');
        formBuildWindowControl.height(#imageSizeY);
        formBuildWindowControl.width(#imageSizeX);
        formBuildWindowControl.backgroundColor(0);

        args = new Args();
        args.object(form);
        formRun = classFactory.formRunClass(args);
        formRun.init();
        formRun.resetSize();
        formDesign = formRun.design();
        formRun.resetSize();
        formrun.formOnTop();
        formRun.run();


        formRun.design().caption('Lorenz attractor');
        pane = formRun.control(formBuildWindowControl.id());

        image.saveType(ImageSaveType::BMP_UNCOMP);

        image.createImage(#imageSizeX, #imageSizeY, 24);


        DrawAttractor();
        pane.image(image);
        formRun.design().caption(strFmt('Lorenz attractor - sigma: %1, r: %2, b: %3, iterations: %4',
                #sigma, #r, #b, #iterations));

        formRun.wait();
}

Note: in the job the number of iterations is equal one million by default, so it takes several minutes to see the result. You may change parameters sigma, r, b and iterations and enjoy the behaviour of attractor.

Copyright © 2008 Ruslan Goncharov

How to get list of all open windows and their names in AX

2007-12-28T14:08:00.000+02:00

How to get list of all open windows and their names in AX. Just run following job.

static void JobAllTheWindows(Args _args)
{
        hWnd Parent;
        hWnd handle;

        hWnd mdi;
        #WinApi

        dialog d = new Dialog();
        DialogTabPage dt;

        str text;
        ;

        d.caption("All the windows");
        d.windowType(FormWindowType::PopUp);

        Parent = infolog.hWnd();
        mdi = WinApi::getWindow(Parent, #GW_CHILD);

        handle = WinApi::getWindow(mdi, #GW_CHILD);
        text = WinApi::getWindowText(handle);

        if(text)
        {
                dt = d.addTabPage(text);
                d.addText(text);
        }

        if(handle)
        {
                while(handle)
                {
                        handle = WinApi::getWindow(handle, #GW_HWNDNEXT);
                        text = WinApi::getWindowText(handle);

                        if(text)
                        {
                                dt = d.addTabPage(text);
                                d.addText(text);
                        }
                }

        }

        d.run();
}

An interesting observation: as a matter of fact Infolog window is open always, even if we not see it at the moment!

Mandatory property for DialogField

2007-12-21T17:41:00.000+02:00

Usually in Dialog Forms it's unable to set mandatory property for Dialog Fields. The lack of this property sometimes annoyed me. At the end I've decided to eliminate this gap :-) To expand the standard functionality you need to do the following steps: 1.Add mandatory() method into DialogField class:

void mandatory(boolean r)
{
    str name;

    // If properties exists then we are on server
    if (properties)
    {
        name = #Propertymandatory;
        if (! properties.exists(name))
            properties.add(name,true);
        properties.value(name,r);
    }
    else
        this.fieldControl().mandatory(r);
}

2. Add into unpack() method following lines:

case #PropertyMandatory:

        this.mandatory(unpackedProperties.valueIndex(i));
break;

Now you may enjoy mandatory property in Dialog Forms. This trick published in Axaptapedia too.

QueryBrowser

2007-12-19T13:31:00.001+02:00

The tool I've developed allows browse queries from AOT or custom queries as such as TableBrowser works.

Visit axaptapedia to download QueryBrowser

Copyright © 2007 Ruslan Goncharov

How to add a document into AX programmically (Document handling)

2007-12-19T10:06:00.000+02:00

As a matter of fact it's pretty easy. Following lines allow you do this.

void saveIntoDocuRefTable()
{
        DocuValue docuValue;
        DocuRef docuRef;
        Container cFile;

        BinData binData;
        DocuTypeId _docuTypeId = ...;
        ;

        binData = new BinData();
        binData.loadFile(fileName);

        cFile = Docu::splitFileName(fileName);
        docuValue.fileName = conpeek(cFile,1);
        docuValue.path = conpeek(cFile,3);
        docuValue.fileType = conpeek(cFile,2);
        docuValue.File = binData.getData();
        docuValue.insert();

        docuRef.ValueRecId = docuValue.recId;
        docuRef.RefCompanyId = CurExt();
        docuRef.RefTableId = tableNum(....);
        docuRef.RefRecId = .....;
        docuRef.TypeId = _docuTypeId;
        docuRef.Name = fileName;
        docuRef.Notes = ....;
        docuRef.insert();

        WinApi::deleteFile(fileName);
}

Integration AX with side applications

2007-12-18T11:40:00.000+02:00

The Microsoft Business Connector is the way to integrate AX with outside world. It allows the programmer to leverage existing Microsoft Axapta functionality in his favorite programming language. At the other hand AX has one powerful feature: enumerators. An enum is a list of literals, which can be used throughout the development environment in MorphX. Really, in MorphX using enumerators very simple, e.g.:

SalesStatus status; //Order status as to delivery and invoicing;
if(status == SalesStatus::Invoiced)
{
...
}

There are two advantages: it is an easy way to make an overall change in the system; the code is easier to read; Unfortunately, side application nothing "knows" about this AX feature. And we need to use constants directly in code!

if(status == 3)//SalesStatus::Invoiced)
{
...
}

Let's try to instruct side applications enums feature. The idea consists in asking AX directly what does construction SalesStatus::Invoiced mean. To do this I've developed new DEV_DictTable class with some methods.

// Created by GRR on 18.07.2007 for AX Connector
class DEV_DictTable
{

}

// Returns constant, where _enumName is enum's name; _enumSymbol - literal
int getEnum(identifierName _enumName, str 
_enumSymbol)
{
        return new DictEnum(enumName2Id(_enumName)).symbol2Value(_enumSymbol);
}

An example how to use this class:

dict = AX.CreateObject("DEV_DictTable"); // A reference at our class
SalesStatus_Invoiced = dict.Call("getEnum", "SalesStatus", "Invoiced"); // here we store our constant 3
//And now we may use SalesStatus::Invoiced in side application code -->
if(status == SalesStatus_Invoiced){
...
}// <--

There are some methods in DEV_DictTable class to improve integration's flexibility:

// gets enum label according enum name and specific value
str getEnumLabel(identifierName _enumName, int _value)
{
        return new DictEnum(enumName2Id(_enumName)).value2Label(_value);
}

// gets fieldId according Axapta's tableName and fieldName
FieldId getFieldId(str tableName, str fieldName)
{
        FieldId fieldId;
        DictField dictField;
        TableId tableId;
        ;

        tableId = new SysDictTable(tableName2Id(tableName)).id();
        dictField = new DictField(tableid, fieldName2Id(tableId, fieldName));
        fieldId = dictField.id();
        return fieldId;
}
// gets tableId according Axapta's tableName

TableId getTableId(str tableName)
{
        SysDictTable sysDictTable;
        TableId tableId;
        ;

        sysDictTable = new SysDictTable(tableName2Id(tableName));
        tableId = sysDictTable.id();

        return tableId;
}

Hello Everybody!

2007-12-18T10:40:00.020+02:00

Hello Everybody!

In this blog I'd like to share with everyone who interested in and works with Dynamics AX useful tips and tricks.

Hope it will be interesting information.