Сериализация common в xml

[axbegin]

А есть ли готовый код, сериализующий запись в xml. То есть, интересует функция, принимающая на вход common и выдающая на выходе xml примерно такого вида:

<?xml version="1.0"?>
<record id="0000004" author="А" status="Закрыто" priority="Средний" description="some text"/>

Атрибуты элемента являются всеми столбцами таблицы. Имена атрибутов - имена столбцов. Значение атрибутов - значение столбцов.

Ну и соответвенно есть ли обратная процедура, которая из xml заполняет common.

Схема xml может быть и другая.

[Lucky13]

из xml в common - Global::recordFromXMLNode(). Наоборот готовой я не нашел, самому пришлось писать

[DSPIC]

Цитата:

из xml в common - Global::recordFromXMLNode(). Наоборот готовой я не нашел, самому пришлось писать

Готовая - ещё проще:
xml = common.xml();

для примера смотри:
\Classes\SysImportLabel\label2Xml
\Classes\SysImportLabel\xml2Label

[AndyD]

Не знаю, как в других версиях, но в ax3 kr2 форматы передаваемый в recordFromXMLNode() и получаемый из xRecord.xlm() - несколько различаются. Если вызывать recordFromXMLNode() без передачи табличного буфера в метод, то таблица, содержащаяся в xml не будет определена и будет вызвано прерывание.
По-этому, либо надо будет парсить xml для опраделения таблицы до передачи в метод, либо надо будет знать заранее, какая таблица там будет

static void xml2record(Args args)
{
    InventTable InventTable;
    Common  common;
    xmlDocument xmlDocument = new xmlDocument();
    XMLNode xmlNode;
    ;
    select InventTable;
    if (xmlDocument.loadXML(InventTable.xml()))
    {
        xmlNode = xmlDocument.documentElement();
        if (xmlNode.nodeName() == "Table:Record")
        {
            common = new DictTable(tableName2Id(xmlNode.attributes().getNamedItem("name").nodeValue())).makeRecord();
            global::recordFromXMLNode(xmlDocument.documentElement(), common);
        }
        else
            common = global::recordFromXMLNode(xmlDocument.documentElement());
    }
}

[DSPIC]

и в 3ке и в 4ке есть штатный механизм экспорта меток при экспорте элементов AOT с метками. Метки в xpo записываются в виде XML. Механизм, формирующий xml и обратно находится в упомянутых выше методах:
\Classes\SysImportLabel\label2Xml
\Classes\SysImportLabel\xml2Label
Так что если входной и выходной форматы и отличаются, то метод recordFromXMLNode() уже допилен, хотя на первый взгляд они не отличаются в 3-ке и 4-ке.

[AndyD]

В методе xml2Label() идет вызов recordFromXMLNode(xmlDocument.documentElement(), tmp);
Если вместо него подставить tmp = recordFromXMLNode(xmlDocument.documentElement());, то будет эксепшен.

[SRF]

Цитата:

Сообщение от AndyD

...По-этому, либо надо будет парсить xml для опраделения таблицы до передачи в метод, либо надо будет знать заранее, какая таблица там будет

static void xml2record(Args args)
{
    InventTable InventTable;
    Common  common;
    xmlDocument xmlDocument = new xmlDocument();
    XMLNode xmlNode;
    ;
    select InventTable;
    if (xmlDocument.loadXML(InventTable.xml()))
    {
        xmlNode = xmlDocument.documentElement();
        if (xmlNode.nodeName() == "Table:Record")
        {
            common = new DictTable(tableName2Id(xmlNode.attributes().getNamedItem("name").nodeValue())).makeRecord();
            global::recordFromXMLNode(xmlDocument.documentElement(), common);
        }
        else
            common = global::recordFromXMLNode(xmlDocument.documentElement());
    }
}

Либо для AX 3.0 можно внести изменение в метод recordFromXMLNode (так же можно навсякий случай учитывать и атрибут 'table')

// Input is <Record table="name"> <Field:field1> value </Field:field1> ... </Record>
static common recordFromXMLNode(XMLNode n, Common c = null)
{
    TableId table;
    FieldId field;
    dictTable dt;
    dictField df;
    XMLNode fieldNode;
    str fieldName;
    struct content;
    // If we don't have an incoming buffer, one is created
    if (prmIsDefault(c))
    {
        // Create a buffer of the correct type
        //srf -->
        //table = tableName2Id(n.attributes().getNamedItem('table').nodeValue());
        table = tableName2Id(n.attributes().getNamedItem('name').nodeValue());
        //srf <--
        dt = new dictTable(table);
        c = dt.makeRecord();
    }
    else
    {
        table = c.TableId;
        dt = new dictTable(table);
    }
    ...
}

После этого можно пользоваться вызовом

common = global::recordFromXMLNode(xmlDocument.documentElement());

без передачи табличной переменной вторым параметром. В AX 2009 в данном методе именно так и делается(еще также учитывается атрибут 'table') :

// Input is <Record table="name"> <Field:field1> value </Field:field1> ... </Record>
static Common recordFromXMLNode(XmlNode n, Common c = null)
{
    tableId table;
    fieldId field;
    DictTable dt;
    DictField df;
    XmlNode fieldNode;
    str fieldName;
    Struct content;
    XmlNode tableName;
    Types t;
    //validate arguments before using them
    if (n == null)
        return null;
    // If we don't have an incoming buffer, one is created
    if (prmisdefault(c))
    {
        // Create a buffer of the correct type
        tableName = n.attributes().getNamedItem('name');
        // If node does not contain name attribute, try with table attribute.
        if (tableName == null)
        {
            tableName = n.attributes().getNamedItem('table');
        }
        // Check if table node can be accessed
        if (tableName != null)
        {
            table = tablename2id(tableName.nodeValue());
            dt = new DictTable(table);
            c = dt.makeRecord();
        }
    }
    else
    {
        table = c.TableId;
        dt = new DictTable(table);
    }
...
}

Есть и еще неприятные моменты и ошибки возникающие при работе с recordFromXMLNode

Вне зависимости от версии AX (3.0, 4.0, 2009), если в таблице есть поле типа Container - то при сериализации записи c помощью common.xml() и обратном преобразовании с помощью recordFromXMLNode вылетает эксепшен. Чтобы побороть данную ошибку нужно внести изменение Global::valueFromXmlNode

         ....
         case Types::Container :
            //srf -->
            //retval.value(#value, Global::containerFromXMLNode(n));
            retval.value(#value, Global::containerFromXMLNode(n.firstChild()));
            //srf <--
            break;
         ...

Для AX 4.0 (SP2 в том числе) не учитываются поля типа int64, т.е. нужно как минимум в метод Global::valueFromXmlNode добавить case по типу int64

         ....
         case Types::Int64 :
            retval.value(#value, str2int64(getXmlNodeValue(n)));
            break;
          ....

Для AX 2009 поле типа int64 учитывается , однако совсем забыт новый тип UtcDateTime, чтобы поля данного типа заполнялись в метод Global::valueFromXmlNode нужно добавить соотвествующий case

...
case Types::UtcDateTime :
            retval.value(#value, str2datetime(getXmlNodeValue(n), -1));
            break;
...

[SRF]

Как оказалось, это еще не все неприятности, связанные с recordFromXMLNode. Недавно коллега обнаружил еще пару интересных моментов.

Независимо от версии AX 3.0, AX 4.0 или AX2009 через метод recordFromXMLNode не загружаются поля-массивы записей, поскольку атрибут offset (формируемый при помощи common.xml()) никак не учитывается.

А коде функции valueFromXMLNode (используется в recordFromXMLNode)

boolean enum; // Any enumeration type will do...
 
...
 
case Types::Enum :
    enum = str2int(getXmlNodeValue(n));
    retval.value(#value, enum);
    break;

Т.е. для enum-ов можно увидеть преобразование int -> boolean, как следствие, некорректная загрузка значений enum'ов, данная ошибка наблюдается только в версиях младше AX 2009, там починили следующим образом

...
t = df.baseType();
 
if (t == Types::Enum)
    t = Types::Integer;
 
content = valueFromXmlNode(t, fieldNode);
...

После всех этих ошибок, в голову пришли вопросы

Цитата:

А вообще common.xml() и global::recordFromXMLNode это обратные функции или нет? Может есть другие обратные для ниx?

Буду рад услышать комментарии по данным вопросам.

Пока для себя решил, что это обратные функции(то, как они используются в AX, говорит как раз об этом), и те ошибки, которые допущены в реализации recordFromXMLNode и valueFromXMLNode, в последующих версиях должны, как мне кажется, быть устранены

А пока ниже приведен код метода recordFromXMLNode для AX 4.0, устраняющий обе эти ошибки

// Input is <Record table="name"> <Field:field1> value </Field:field1> ... </Record>
static Common recordFromXMLNode(XmlNode n, Common c = null)
{
    tableId table;
    fieldId field;
    DictTable dt;
    DictField df;
    XmlNode fieldNode;
    str fieldName;
    Struct content;
    // -->
    XmlNode     fieldArrayNode;
    int         fieldArray;
    // <--
    //validate arguments before using them
    if (n == null)
        return null;
    // If we don't have an incoming buffer, one is created
    if (prmisdefault(c))
    {
        // Create a buffer of the correct type
        table = tablename2id(n.attributes().getNamedItem('table').nodeValue());
        dt = new DictTable(table);
        c = dt.makeRecord();
    }
    else
    {
        table = c.TableId;
        dt = new DictTable(table);
    }
    fieldNode = n.firstChild();
    while (fieldNode)
    {
        fieldName = fieldNode.attributes().getNamedItem('name').text();
        field = dt.fieldName2Id(fieldName);
        df = new DictField(table, field);
        // -->
        fieldArrayNode = fieldNode.attributes().getNamedItem('offset');
        if (fieldArrayNode)
        {
            fieldArray = str2int(fieldArrayNode.text());
            if (fieldArray)
            {
                field = fieldId2Ext(field, fieldArray);
            }
        }
        if (df.baseType() == Types::Enum)
        {
            content = valueFromXMLNode (Types::Integer, fieldNode);
        }
        else
        // <--
        content = valueFromXMLNode (df.baseType(), fieldNode);
        c.(field) = content.value('value');
        fieldNode = fieldNode.nextSibling();
    }
    return c;
}

[DSPIC]

Там ещё была проблема с common.xml(); По-моему, был страшный взлет клиента, если common содержит memo поля. Пытался повторить но чё-то не получилось, так что be careful.

[Denicce]

у нас при попытке воспользоваться CustTable.xml() (есть поля memo) вылезает "Внутренняя ошибка 25 в сценарии." на каждое мемо поле, однако система не валится. Причем если посмотреть в полученный xml-файл, видно, что значение для поля мемо будет равно значению предыдущего поля.
Как я понял, ошибка вылезает в \Classes\xRecord\xml(), а туда путь заказан.

DAX4.0 SP2EE FP1

[Denicce]

Война с мемо-в-XML продолжается.
Попробовал в Ах3.0 SP3 + SQL2005 - тот же эффект. Пробовал DAX4.0 SP1 + SQL2000 - аналогично.
Может, подскажет кто, куда копать?

[egorych]

Цитата:

Сообщение от Denicce

Может, подскажет кто, куда копать?

Воспользоваться человеческим языком (SQL)

SELECT * FROM Table
FOR XML RAW;

[DSPIC]

Цитата:

Сообщение от Denicce

Война с мемо-в-XML продолжается.
Попробовал в Ах3.0 SP3 + SQL2005 - тот же эффект. Пробовал DAX4.0 SP1 + SQL2000 - аналогично.
Может, подскажет кто, куда копать?

Это kernel функция, наверное не обойдешь никак, пока(если) не вылечат. Нарисуйте свою обертку XML, там ведь не сложно по сути.

[Denicce]

Продолжаем....
Метод Global::valueFromXmlNode, не хватает case для memo (VarString хоть и описан, но вылетает ошибка "Ожидался memo, получен str", и struct retval не принимает строку).
Посему: выделил VarString отдельно, но сделал, как мне кажется, коряво:

        case Types::VarString :
            retval = new Struct(Types::String, #value);
            retval.value(#value, getXmlNodeValue(n));
            break;

и не хватает case для types::guid:

        case Types::Guid:
            retval.value(#value, str2guid(getXmlNodeValue(n)));
            break;