Dynamics AX Blog - Beiträge von 2014 - Seite 7

Mit Hilfe der Funktion timeConsumed kann man auf sehr einfache Art & Weise die Ausführungsdauer einer Funktion testen:

Ergebnis im Infolog:
Total time consumed: 1 Minute 41 Sekunden

Über die unten dargestellte Klasse möchte ich demonstrieren, wie man in Dynamics AX 2012 eine Funktion mit den Credentials eines anderen Benutzers ausführt.

Die Klasse führt die Funktion - im Beispiel handelt es sich um die Kreditlimitprüfung des Debitoren 100001  - im ersten Schritt mit dem eigenen Benutzer und im zweiten Schritt mit den Credentials des Benutzers User1 aus.

Aufgerufen wird die Klasse entweder über das Kontext-Menü im AOT bzw. über DEV_RunAsDemo::main(new args()).

Die obenstehende Klasse ist basierend auf dem folgenden MSDN-Beitrag entstanden: http://msdn.microsoft.com/en-us/library/aa893873.aspx
 

Anfang April erreichte mich eine E-Mail von Microsoft in welcher mir mitgeteilt wurde, daß ich den Microsoft® MVP Award 2014 zum Thema Microsoft Dynamics AX erhalten habe! 

Ich freue mich riesig über diesen Award und mein Ziel für die kommenden zwölf Monate wird sein, diese jährlich neu vergebene Auszeichnung zu erneuern.

Anbei ein kurzer Auszug aus dieser Mail:

Wir freuen uns, Ihnen den Microsoft® MVP Award 2014 verleihen zu können! Diese Auszeichnung wird an herausragende, führende Mitglieder der technischen Communities verliehen, die ihre wertvollen praktischen Erfahrungen mit anderen Menschen teilen. Wir schätzen Ihren außerordentlich bedeutenden Beitrag in den technischen Communities zum Thema Dynamics AX im vergangenen Jahr hoch ein.

Ich möchte mich an dieser Stelle auch bei denjenigen - grösstenteils unbekannterweise - ganz herzlich bedanken, die mich für diesen Award nominiert haben!

Wer mehr über den Award wissen möchte, kann sich auf http://mvp.support.microsoft.com/default.aspx informieren.

Nachstehend ein kurzer Job, mit dessen Hilfe man AOT-Elemente zu einem bestehenden Shared Project hinzufügen kann.

Das geänderte Projekt sieht beispielsweise wie folgt aus:

Mit Hilfe der nachstehenden Klasse möchte ich zeigen, wie man in Dynamic AX 2012 X++ Code als CIL ausführt.

Die Klasse MyDemoClass enthält eine statische Methode countSalesRecords() welche die eigentliche Logik enthält.
Eine weitere Methode namens countSalesRecordsWrapper() ruft diese statische Methode über eine weitere Methode countSalesRecordsIL() als CIL auf.

Zu beachten sind vor allem die Modifier der jeweiligen Methoden sowie das Parameter-Profil der Methode countSalesRecordsIL() (ein- und ausgehender Container). Hätte die Methode keinen eingehenden Container als Parameter, würde AX behaupten, die Methode nicht zu kennen:

Fehler während der Verarbeitung: Classname Objekt verfügt nicht über Methode 'MethodName'.

Nachdem man die Klasse erstellt und die CIL inkrementell kompiliert hat, kann man die Klasse per rechter Maustaste ausführen. Dadurch wird die main()-Methode aufgerufen welche die Logik der Methode countSalesRecords() auf die altbewährte Art & Weise aufruft und zusätzlich in der CLR ausführt.

Vorausgesetzt natürlich der Benutzer hat in seinen Benutzer-Optionen die Option Geschäftliche Arbeitsgänge in CIL ausführen aktiviert!

class MyDemoClass
{
}

public server static counter countSalesRecords(SalesStatus _salesStatus)
{
    Query query;
    QueryBuildDataSource qbds_salesTable;
    QueryBuildDataSource qbds_salesLine;
    QueryRun queryRun;
    Counter r;

    setPrefix(strFmt("isCLRSession: %1", enum2str(xSession::isCLRSession())));

    setPrefix(enum2str(_salesStatus));

    query = new query();
    qbds_salesTable = query.addDataSource(tableNum(salesTable));
    qbds_salesTable.addSelectionField(fieldNum(salesTable, RecId));
    qbds_salesLine = qbds_salesTable.addDataSource(tableNum(salesLine));
    qbds_salesLine.addSelectionField(fieldNum(salesLine, RecId));
    qbds_salesLine.joinMode(JoinMode::InnerJoin);
    qbds_salesLine.relations(true);

    SysQuery::findOrCreateRange(qbds_salesTable, fieldNum(SalesTable, SalesStatus)).value(queryValue(_salesStatus));

    queryRun = new queryRun(query);
    while(queryRun.next())
    {
        r++;
    }

    info(strFmt("Records: %1", r));

    return r;
}

private server static container countSalesRecordsIL(container _con)
{
    SalesStatus salesStatus;
    Counter c;
    container cReturn;

    salesStatus = conPeek(_con, 1);

    // Call method and get it's return value
    c = MyDemoClass::countSalesRecords(salesStatus);

    return conPoke(cReturn, 1, c);
}

public server static counter countSalesRecordsWrapper(SalesStatus _salesStatus) // Same parameter-profile as method, which is called in CIL
{
    container resultContainer;
    Counter c;

    new XppILExecutePermission().assert();

    resultContainer =
    Global::runClassMethodIL(classStr(MyDemoClass),
                             staticMethodStr(MyDemoClass, countSalesRecordsIL),
                             [_salesStatus]);

    CodeAccessPermission::revertAssert();

    // Get return value through resultContainer
    c = conPeek(resultContainer, 1);

    return c;
}

public static server void main(Args _args)
{
    setPrefix("MyDemoClass");

    MyDemoClass::countSalesRecords(SalesStatus::Invoiced);
    MyDemoClass::countSalesRecordsWrapper(SalesStatus::Backorder);
}

SysDictEnum SysDictEnum = new SysDictEnum(enumNum(SalesStatus));
int i;

for (i=0;i<SysDictEnum.values();i++)
{
    info(SysDictEnum.index2Label(i));
}

Tritt beim Öffnen oder Synchronisieren einer - meist neu erstellten - Tabelle der folgende Fehler auf

Ein Datensatz in Table1 (Table1) kann nicht ausgewählt werden.
Die SQL-Datenbank hat einen Fehler gemeldet.

so kann die Ursache sein, daß die Tabelle ein Feld enthält, dessen Name ein "Reserved Word" der SQL-Datenbank ist. Beispielsweise darf ein Feld nicht Primary genannt werden.