SysTreeNodeCompareContext

[petergunn]

Доброго времени суток.
Коллеги, у кого имеется под рукой AX2009, выложите please проект с классом SysTreeNodeCompareContext (если таковой присутствует в AX2009).

[petergunn]

Dynamics Ax 4.0 SP2 (application version: 4.0.2501.122 )

Доброго времени суток.
Занимался на днях адаптацией решения axaptapedia: SysCompare class по сравнению 2 верхних слоев для Dynamics Ax 4.0.
Функционал по заполнению comboBox'ов списком сравниваемых слоев вынесен теперь на метод SysCompare\initContext():

protected void initContext(SysCompareContextProvider _context)
{
	...
    this.setCombo(comboBox1,
                  _context.comparableList(SysCompareType::Text1), comparableMap1, _context.comparableItemDefault(SysCompareType::Text1));

    this.setCombo(comboBox2, _context.comparableList(SysCompareType::Text2), comparableMap2, _context.comparableItemDefault(SysCompareType::Text2));

    comboBox1.selection(0);
	...
}

в методе SysCompare\setCombo()

protected void setCombo(
    FormComboBoxControl     combo,
    List                    list,
    Map                     map,
    str                     defaultItem
    )

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

    ...    
    if (comparable.comparableName() == defaultItem)
        sel = i;
    ... 
    combo.setDropSize(list.elements()+1);
    combo.selection(sel);
    ...

При просмотре кода под отладчиком обнаружилось что этот параметр defaultItem всегда приходит в функцию пустым ('') - позиционирование combo.selection(sel) отрабатывает как combo.selection(0).

Смотрим код используемого метода SysTreeNodeCompareContext\comparableItemDefault():

public str comparableItemDefault(SysCompareType _type)
{
    switch (_type)
    {
        case SysCompareType::Text1:
            return default1;

        case SysCompareType::Text2:
            return default2;
    }
    return '';
}

В классе SysTreeNodeCompareContext объявлены 2 строковые переменные default1 и default2, но при этом, судя по коду, они нигде не инициализируются (кроме метода comparableItemDefault() функциональности использующей эти переменные в классе нет, наследников класса тоже не обнаружил) - в результате функция стабильно возвращает ''.

Бага в коде? Или эта 'фича' так и задумывалась для инициализации на наследниках класса? - хотелось бы взглянуть на реализацию этого класса (и его наследников) в DAX2009.

[petergunn]

По результатам первичного переноса решения из Ax 3.0 публикую изменения внесенные в функционал Dynamics Ax 4.0 для отображения сравнения по 2-м верхним слоям:

SysCompare\initContext()

    ...
    this.setCombo(comboBox1,
                  _context.comparableList(SysCompareType::Text1), comparableMap1, _context.comparableItemDefault(SysCompareType::Text1));

    this.setCombo(comboBox2, _context.comparableList(SysCompareType::Text2), comparableMap2, _context.comparableItemDefault(SysCompareType::Text2));

    //comboBox1.selection(0);
    //  --> petergunn, Tools_000003_SysCompareDefaultLayer
    if( comboBox1.valueStr() == comboBox2.valueStr() )  //  если значения box'ов равны - в первом box'е пытаемся взять слой ниже
        comboBox1.selection( max( 0, comboBox1.selection() - 1 ) ) ;
    //  <-- petergunn, Tools_000003_SysCompareDefaultLayer
    ...

SysTreeNodeCompareContext\parmSysTreenode1():

public SysTreeNode parmSysTreenode1(SysTreeNode _sysTreenode1 = sysTreenode1)
{
    ;
    sysTreenode1 = _sysTreenode1;
    //  --> petergunn, Tools_000003_SysCompareDefaultLayer
    if( !prmisdefault( _sysTreenode1 ) )
        default1 = sysTreenode1 ? sysTreeNode1.comparableName() : '' ;
    //  <-- petergunn, Tools_000003_SysCompareDefaultLayer
    return sysTreenode1;
}

SysTreeNodeCompareContext\parmSysTreenode2():

public SysTreeNode parmSysTreenode2(SysTreeNode _sysTreenode2 = sysTreenode2)
{
    ;
    sysTreenode2 = _sysTreenode2;
    //  --> petergunn, Tools_000003_SysCompareDefaultLayer
    if( !prmisdefault( _sysTreenode2 ) )
        default2 = sysTreenode2 ? sysTreeNode2.comparableName() : '' ;
    //  <-- petergunn, Tools_000003_SysCompareDefaultLayer
    return sysTreenode2;
}

SysTreeNodeCompareContext\parmTreeNode1():

public TreeNode parmTreeNode1(TreeNode _treeNode1 = treeNode1)
{
    ;
    treeNode1 = _treeNode1;
    //  --> petergunn, Tools_000003_SysCompareDefaultLayer
    if( !prmisdefault( _treeNode1 ) && !sysTreeNode1 )
        default1 = treeNode1 ? SysTreeNode::newTreenode( treeNode1 ).comparableName() : '' ;
    //  <-- petergunn, Tools_000003_SysCompareDefaultLayer
    return treeNode1;
}

SysTreeNodeCompareContext\parmTreeNode2():

public TreeNode parmTreeNode2(TreeNode _treenode2 = treenode2)
{
    ;
    treenode2 = _treenode2;
    //  --> petergunn, Tools_000003_SysCompareDefaultLayer
    if( !prmisdefault( _treenode2 ) && !sysTreeNode2 )
        default2 = treeNode2 && treeNode2.applObjectLayerMask() ? SysTreeNode::newTreenode( treeNode2 ).comparableName() : '' ;
    //  <-- petergunn, Tools_000003_SysCompareDefaultLayer
    return treenode2;
}

В реализации метода SysTreeNodeCompareContext\parmTreeNode2() сделано небольшое 'допущение': если treeNode2.applObjectLayerMask() == 0 то в этом случае узел был инициализирован в результате импорта из XPO файла, для него должно бы возвращаться значение SysTreeNodeVirtualXPO::newTreenode( treeNode2 ).comparableName().
С другой стороны при импорте из XPO второй список сравнения содержит 1 значение ( вида '\ObjName (xpo)' ), позиционирование будет установлено на него даже в случае если функция вернет ''.

'Полный' вариант модифицированного метода изначально выглядел так - SysTreeNodeCompareContext\parmTreeNode2():

public TreeNode parmTreeNode2(TreeNode _treenode2 = treenode2)
{
    ;
    treenode2 = _treenode2;
    //  --> petergunn, Tools_000003_SysCompareDefaultLayer
    if( !prmisdefault( _treenode2 ) && !sysTreeNode2 )
    {
        if( treeNode2 )
            default2 = treeNode2.applObjectLayerMask() ? SysTreeNode::newTreenode( treeNode2 ).comparableName() : SysTreeNodeVirtualXPO::newTreenode( treeNode2 ).comparableName() ;
        else default2 = '' ;
    }	    	
    //  <-- petergunn, Tools_000003_SysCompareDefaultLayer
    return treenode2;
}

Проект с модифицированными классами прилагаю.
P.S. ногами сильно не пинать , проект пока носит характер отладочной версии и содержит 2 варианта модификации класса SysTreeNodeCompareContext - разделены значением макроопределения #debugVersion

[player]

Если еще актуально
Class_SysTreenodeCompareContext.xpo

[Sada]

Цитата:

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

Если еще актуально
Вложение 3986

Это для трешки или 4-ки?

[player]

Это из AX2009

(petergunn: "Коллеги, у кого имеется под рукой AX2009, выложите please проект с классом SysTreeNodeCompareContext")