Сравнение при импорте XPO

[Denicce]

Исправление глюка со сравнением выравнивания для 4.0 в методе \Classes\SysTreeNode\comparableTextList

Сброс значения выравнивания только если у поля String есть EDT.

Не забудьте curuserid() верный поставить или снести строку. Однако я пока оставлю только для себя, т.к. нужно потестить.

...

    boolean  canInsert, canDelete;

// 20/01-2011 #bugfix_20110119 kird: bug fix 2011-01-19 -->
#Properties
#TreeNodeSysNodeType
// 20/01-2011 #bugfix_20110119 kird: bug fix 2011-01-19 <--

    if (comparableTextList)
        return comparableTextList;
...
...
...

/*
  Properties
*/
    properties = treeNode.AOTgetProperties();
    idxmatch = strscan(properties,'\n',1, strlen(properties));
    properties = substr(properties, idxMatch+1, strlen(properties));

    idxmatch = strscan(properties,'\n',strlen(properties)-2, -strlen(properties));
    properties = substr(properties, 1, idxMatch-1);

    // 20/01-2011 #bugfix_20110119 kird: bug fix 2011-01-19 -->
    if (curuserid() == 'kird')
    {
        if (treeNode.sysNodeType() == #NT_DBFIELDSTRING &&
            findPropertyPos(properties, #PropertyAdjustment) &&
            findProperty(properties, #PropertyExtendeddatatype))
        {
            properties = setProperty(properties, #PropertyAdjustment, "");
        }
    }
    // 20/01-2011 #bugfix_20110119 kird: bug fix 2011-01-19 <--

/*
    Don't remove the name property. Renamed fields and tables are not included in the upgrade project if name is removed