Dynamics AX Geek: Using query()

[Blog bot]

Источник: http://AxGeek.spaces.live.com/Blog/c...DB13!148.entry
==============
As the name implies QueryRun is the executor of a query linked to it. To construct a query you want QueryRun to execute, you need build classes:

• Query
•  QueryBuildDataSource
• QueryBuildRange
• QueryBuildFieldList
• QueryBuildLink
• QueryBuildDynaLink

 
Today’s example will use the first four to demonstrate a query that sums the credit limit field in CustTable grouped by Country and Currency. Additionally a count field indicates how many records are represented in the sum. Ranges are implemented for AccountNum and Country, but the user is allowed to add additional range criteria in the dialog. To demonstrate the status() property I have locked it, so the user can not change it.
 
QueryRun
QueryRun executes the query. If needed the familiar query dialog can be opened before the query is run. This is done using the prompt() method. SysQueryRun extends QueryRun and has a total of 7 prompt*() methods, with different default behavior. For example promptAllowAddRange() would allow the user to add new where-conditions.
 
Query
A query represents the select statement. This is where all the strings come together.
 
QueryBuildDataSource
Using QueryBuildDataSources you add all the tables you want joined (just one in this example). This is also where you define how the resultset is to be sorted. The orderMode() method lets you define

• OrderBy
• GroupBy

 
QueryBuildRange
Ranges represent where conditions. Multiple ranges are connected with AND conditions. Unfortunately there is no easy way to change that.
 
QueryBuildFieldList
Represents the selected fields of the query. By default all fields are selected. In regular queries you probably wouldn’t use them that often, but when grouping this is the way to define which fields are calculated. SelectionField is an enum with the following values

•  Avg
• Count
• Database
• Max
• Min
• Sum   

 
The result of Test_Query on my test system looks something like this:
CA CAD     1120,00 (3 records)
CA USD      500,00 (1 records)
DE EUR        0,00 (1 records)
DK CAD     5000,00 (1 records)
DK EUR      300,00 (6 records)
DK GBP      560,00 (2 records)
ES EUR        0,00 (1 records)
IE EUR        0,00 (1 records)
NL EUR       20,00 (2 records)
NO EUR     3000,00 (1 records)
 
 
static void Test_Query(Args _args)
{
    CustTable            custTable;
    Query                query      = new Query();
    QueryRun             qr         = new queryRun(query);
    QueryBuildDataSource qbds       = qr.query().addDataSource(tableNum(CustTable));
    QueryBuildRange      qbrAccN    = qbds.addRange(fieldNum(CustTable,AccountNum));
    QueryBuildRange      qbrCountry = qbds.addRange(fieldNum(CustTable,Country));
    QueryBuildFieldList  qbfl       = qbds.fields();
    ;
 
    qbrAccN.value('4000..4050');
    qbrAccN.status(RangeStatus::Locked);
    qbrCountry.value('CA..NO');
 
    qbfl.addField(fieldNum(CustTable,CreditMax),SelectionField::Sum);
    qbfl.addField(fieldnum(CustTable,RecId),SelectionField::Count);
 
    qbds.addSortField(fieldnum(CustTable,Country));
    qbds.addSortField(fieldNum(CustTable,Currency));
    qbds.orderMode(OrderMode::GroupBy);
 
    if (qr.prompt())
    {
 
 
        while (qr.next())
        {
            custTable = qr.get(tableNum(CustTable));
 
            print strfmt("%1 %2 %3 (%4 records)",custTable.Country,custTable.Currency,
                         num2str(custTable.CreditMax,10,2,0,0),custTable.RecId);
        }
 
    }
 
    pause;
}




==============
Источник: http://AxGeek.spaces.live.com/Blog/c...DB13!148.entry