Dynamics AX Blog - Beiträge vom September 2009

Nachstehend ein Codebeispiel, wie man in Dynamics AX 2009 per X++ ein Umlagerungsjournal erstellen und buchen kann.

static void createAndPostInventJournalTransfer(Args _args)
{
    inventJournalTable  inventJournalTable;
    inventJournalTrans  inventJournalTrans;
    journalCheckPost    journalCheckPost;
    
    itemId              _itemId             = "1000";
    qty                 _qty                = 1;
    inventDimId         _fromInventDimId    = "00000070_069";
    inventDimId         _toInventDimId      = "00000063_069";
    ;

    try
    {
        ttsbegin;

        // Create header
        inventJournalTable.clear();
        inventJournalTable.initValue();

        inventJournalTable.initFromInventJournalName(
            InventJournalName::find(InventJournalName::standardJournalName(InventJournalType::Transfer)));

        inventJournalTable.SystemBlocked    = NoYes::Yes;
        inventJournalTable.BlockUserId      = curUserId();

        inventJournalTable.insert();

        // Create lines
        inventJournalTrans.clear();

        inventJournalTrans.initValue();
        inventJournalTrans.initFromInventJournalTable(inventJournalTable);

        inventJournalTrans.ItemId           = _itemId;
        inventJournalTrans.initFromInventTable(inventTable::find(inventJournalTrans.ItemId));

        inventJournalTrans.Qty              = _qty;

        inventJournalTrans.inventMovement().journalSetCostPrice();

        inventJournalTrans.inventDimId      = _fromInventDimId;
        inventJournalTrans.toinventDimId    = _toInventDimId;

        inventJournalTrans.voucher          = numberSeq::newGetVoucherFromCode(
                                                    InventJournalName::find(inventJournalTable.JournalNameId).VoucherSeqId).voucher();

        inventJournalTrans.insert();

        // Post journal
        journalCheckPost = InventJournalCheckPost::newJournalCheckPost(JournalCheckPostType::Post, inventJournalTable);
        journalCheckPost.run();

        ttscommit;
    }
    catch (Exception::Error)
    {
        throw exception::Error;
    }
}

Mit der einen oder anderen Anpassung sollte es auch möglich sein, Journale anderer Typen auf ähnliche Art & Weise zu erstellen.

Vor fast zwei Jahren habe ich schon einmal über die Funktion/Methode str2con und deren Unzulänglichkeiten in älteren Versionen von Dynamixs AX geschrieben. Leider musste ich vor kurzem feststellen, daß diese Funktion in AX 2009 auch nicht so zuverlässig ist, wie ich sie mir wünschen würde.

Sind nämlich im zu zerteilenden String rein numerische Werte enthalten, die größer oder gleich 2^31 (=2147483648) sind, kann AX diese Werte nicht mehr korrekt verarbeiten.

Nachstehend ein Job, der dieses Fehlverhalten demonstriert:

Mir blieb also nichts anderes übrig, als mir einen Ersatz für die Funktion str2con zu schreiben:

Wie man Maps verwenden kann, ist u.a. in der MSDN beschrieben, wie man allerdings Maps in Verbindung mit SELECT-Statements verwendet, steht auch dort nicht beschrieben.

Deshalb im folgenden ein kurzes Beispiel unter Verwendung der Map bankAccountMap.

static void selectFromMap(Args _args)
{
    bankAccountMap     bankAccountMap;

    custBankAccount    custBankAccount;
    vendBankAccount    vendBankAccount;
    ;

    while select bankAccountMap
    {
        info(bankAccountMap.AccountNum);    // Does never occur
    }

    // select records from custBankAccount
    bankAccountMap = custBankAccount.data();
    while select bankAccountMap
    {
        info(bankAccountMap.AccountNum);
    }

    // select records from vendBankAccount
    bankAccountMap = vendBankAccount.data();
    while select bankAccountMap
    {
        info(bankAccountMap.AccountNum);
    }
}

Vor kurzem lief mir im Enterprise Portal von Axapta 3.0 folgender Fehler über den Weg (gleich nach dem Login):

Laufzeitfehler in Microsoft VBScript Fehler '800a01a8'

Objekt erforderlich: 'wa'

/ECW_HBA/i_axaptafunctions.asp, line 117