runtime-error - Axe 2012 tts 错误

Question

嗨，我在更新发明表中的记录时遇到错误。我正在使用以下示例代码。

static void Job4(Args _args)
{
    CsInvBOMSplitQtyCalcHelper  bomCalc;
    Qty                         qty;
    InventTable                 inventTable;
    InventTable                 updateInventTable;
    BOM                         bom;
    boolean                     result;
    BOMId                       bomId;             
    BOMVersion                  bomVersion;
    ItemId                      item        = "1000M-3C-Pcs";

    select firstOnly * from bomversion
            where bomversion.Active == true
            && bomversion.ItemId    == item
            && csIsLengthItem(item) == false;

    if (0 != bomVersion.RecId)
    {
        select * from bom
            where bom.BOMId                 == bomversion.BOMId
        exists join inventTable
            where bom.ItemId                == inventTable.ItemId
            && inventTable.CsIsLengthItem   == true;
    }

    if (0 != bom.RecId)
    {
        result  = true;
        bomCalc = CsInvBOMSplitQtyCalcHelper::construct(item);
        qty     = bomCalc.getAdvicedBOMSpoolQty();
    }

    ttsBegin;

    while select forUpdate updateInventTable
        where updateInventTable.ItemId == item
    {
        updateInventTable.CsInvBOMSplitQty = qty;
        updateInventTable.update();
    }

    ttsCommit;

    info(strFmt('%1, %2, %3', result, qty, inventTable.CsInvBOMSplitQty));
}

这是我得到的错误:



请帮我解决这个问题。

Answer 1

错误显然不是由这项工作引起的(但可能是早期版本)。

只需运行这个小作业来重置 TTS 级别:

static ttsAbort(Args args)
{
    ttsabort;
}

TTS 级别的错误通常是由编程错误引起的，比如调用 return之前 ttsCommit .