读取Info内容

后记：
最近发现其实AX里的类Info已经提供了相应的静态方法infoCon2Str来实现这个功能，所以可以直接调用这个方法去实现本文所说的功能，本文不看也罢。
AX用Infolog去管理用户操作中的出错或者提示信息，最后用SysInfologBrowser这个窗体去展现，但如果通过.NET Business Connector之类的去调用AX的系统类就不可能用这种方法了，因为不可能将窗体通过.NET Business Connector去展现，如果想知道调用的系统类到底发生了什么事情，可以把Infolog的内容转换成字符串返回给调用者。
窗体SysInfologBrowser的数据是通过类info的viewBuild来构造的，所以可以把这个方法简化一下，返回一个字符串，在Global中添加一个静态方法：

static str viewBuildExpress(InfologData _data)
{
    SysInfologMessageStruct logLine;

    int                  i = 1, j;
    Exception            exception;

    int                  parentId;

    TmpInfolog           tmpLookup;
    str                  returnValue;

    int                  oldParentId;
    int                  seq = 0;

    str                  splitStr = '';
    TmpInfoLog           tmpInfoLog;
    SysInfologEnumerator enum = SysInfologEnumerator::newData(_data);


TmpInfolog selectInfolog(SysInfologPrefix _prefix, int _parentid)
{
    TmpInfolog tmpinfolog2;
    tmpinfolog2.setTmpData(tmpInfoLog);

    select tmpinfolog2
        where tmpinfolog2.Parent == _parentid   &&
              tmpinfolog2.Prefix == _prefix;

    if (tmpinfolog2)
        return tmpinfolog2;
    return null;
}

    if (conlen(_data)==0)
        return '';

    enum.reset();
    enum.moveNext();
    logLine  = SysInfologMessageStruct::construct(enum.currentMessage());
    tmpInfoLog.recordLevelSecurity(true);
    enum.reset();
    i = 1;
    while (enum.moveNext())
    {
        logLine  = SysInfologMessageStruct::construct(enum.currentMessage());
        exception = enum.currentException();

        parentId = 1;   //header has id = 1

        for (j=1; j<=logLine.prefixDepth(); j++)
        {
            tmpLookup.setTmpData(tmpInfoLog);
            tmpLookup = selectInfolog(logLine.preFixTextElement(j), parentid);

            if (tmpLookup)
            {
                parentId = tmpLookup.Seq;
            }
            else
            {
                tmpInfoLog.Name         = logLine.preFixTextElement(j);
                tmpInfoLog.Parent       = parentId;
                tmpInfolog.Prefix       = tmpInfolog.Name;
                tmpInfolog.ConIdx       = j;
                seq++;
                tmpInfoLog.Seq          = seq;
                tmpInfoLog.insert();
                parentId                = tmpInfoLog.Seq;
            }
        }
        if (parentId != oldParentId)
        {
            oldParentId = parentId;
        }

        tmpInfoLog.Parent   = parentId;
        seq++;
        tmpInfoLog.Seq      = seq;
        tmpInfoLog.Name     = logLine.message();
        tmpInfoLog.doInsert();
    }

    while select * from tmpInfoLog
    order by seq
    {
        splitStr = '';
        for(i=1;i<=tmpInfolog.ConIdx;i++)
        {

            splitStr += '\t';
        }
        returnValue += splitStr + tmpInfolog.Name;
        returnValue +='\n';
    }
    return returnValue;



}

调用示例：

static void viewBuildExpressTest(Args _args)
{
    InfologData             data;
    int                     beforeLine,endLine;
    InventJournalTable      inventJournalTable = InventJournalTable::find('000079_061');
    InventJournalCheckPost  journalCheckPost   = InventJournalCheckPost::newPostJournal(inventJournalTable);
    SalesFormLetter         salesFormLetter = SalesFormLetter::construct(DocumentStatus::PackingSlip);
    SalesTable              salesTable;
    ;

    select * from salesTable
    where salesTable.SalesId == '00415_036';
    try
    {
        beforeLine = infolog.line()+1;
        journalCheckPost.run();
        salesFormLetter.update(salesTable);
        endLine     = infolog.line()+1;
        box::info(Global::viewBuildExpress(infolog.copy(beforeLine,endLine)));

    }
    catch
    {
        endLine     = infolog.line()+1;
        box::info(Global::viewBuildExpress(infolog.copy(beforeLine,endLine)));
    }

}