Есть ли у кого-нибудь такая штучечка?

[miklenew]

Есть большой xpo в нём много объектов.
Делаю импорт.
Изменений в нём я знаю что мало.
Переберать сравнением каждый объект, чтоб увидеть изменения не хочется.
Так вот вопрос:
Может у кого нибудь есть такая доработка и он ей поделится.
Так чтоб галочку какую-нибудь отжать или что-то в этом роде и система как-нибудь показала только те объекты, которые изменены.
Может штатное средство есть.
Я не нашёл.
Не хочется садится за программирование.
А очень нужно.

[tourist]

Попробуйте загрузить проект в USP, а затем создать новый проект, используя сравнение слоев, корый будет содержать только измененнные в USP объекты

[miklenew]

Цитата:

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

Попробуйте загрузить проект в USP, а затем создать новый проект, используя сравнение слоев, корый будет содержать только измененнные в USP объекты

Вариант конечно, но геморойный какой-то.
Лучше уж код написать.
Мне же не на один раз такое нужно.

[Dron AKA andy]

Есть такая разработка.
http://www.systomatics.com/Projects/...cts/proj13.htm

[miklenew]

Спасибо. То что доктор прописал.
Правда она щас у меня то виснет, то не виснет.
Не пойму из-за объёма или из-за определённых объектов.
Методом научного тыка.
Найду проблему отпишусь.

[Dron AKA andy]

Да, у меня на объемных проектах тоже подвисает...
Может быть, не хватает ресурсов компа.

[zemlyn]

А подскажите, после нажатия на кнопку Keep Diffrence открывается много формочек Сравнение.
Дальше неизмененённые объекты из дерева пропадают.
А формочки Сравнение так и должны (все!) остаться открытыми?

[Dron AKA andy]

У меня никаких формочек не открывается. АХ 3.0SP3 CU1.

[raz]

В аксапте есть ссылка на интересный продукт, очень удобно, даже для очень больших проектов.

http://www.araxis.com/

[Dron AKA andy]

Цитата:

Сообщение от Dron AKA andy

Есть такая разработка.
http://www.systomatics.com/Projects/...cts/proj13.htm

Кто-нибудь адаптировал это дело на DAX4? Хочется загрузить, вдруг кто уже заморочился до меня, чтоб не возиться...

[Denicce]

Писал на коленке на 3.0, перевел на 4.0

\Classes\SysImportElements\compareNodes

private boolean compareNodes(FormTreeControl _formTreeControl, FormTreeItem _formTreeItem)
{
    TreeNode                        treeNodeAOT;
    TreeNode                        treeNodeImport  = NULL;
    int                             exportId;
    int                             flag            = (#impGetCompareNode + #impKeepIds);
    boolean                         ret;
    ;

    if (_formTreeItem &&
        _formTreeItem.stateBold())
    {
        select firstonly tmpImportAot
            where tmpImportAot.TreeNodePath == _formTreeItem.data();

        if (tmpImportAot)
        {
            treeNodeAOT = infolog.findNode(tmpImportAot.TreeNodePath);
            if (treeNodeAot)
            {
                ret = true;
                exportId        = infolog.startImport(filename, flag);
                treeNodeImport  = infolog.getImportedNode(
                                        exportId,
                                        tmpImportAot.UtilFileType,
                                        tmpImportAot.UtilElementType,
                                        tmpImportAot.treeNodeName,
                                        tmpImportAot.FilePos,
                                        flag);
                ret = SysCompare::silentCompare(SysTreeNode::newTreenode(treeNodeAOT), SysTreeNode::newTreenode(treeNodeImport));

                infolog.endImport(exportId, 1);
            }
        }
    }
    return ret;
}

\Classes\SysImportElements\markDifferentObjects

public void markDifferentObjects(FormTreeControl _ftc)
{
    int idx;
    FormTreeControl     t = _ftc;
    FormTreeItem        i;
    TreeItemIdx     treeItemIdx;
    boolean checked, res;
    ;

    i = t.getItem(t.getRoot());
    SysFormTreeControl::expandTree(t, i.idx());

    while (i)
    {
        // KDV анализируем только конечные узлы дерева (листы - объекты АОТ):
        if (! strFind(i.data(), '\\', strLen(i.data()), -1))
        {
            // KDV сравниваем последний слой в АОТ и слой XPO:
            res = this.compareNodes(t, i);

            if (res)
                SysFormTreeControl::deselectedTreeItem_checkBox(t, i.idx());
            else
                SysFormTreeControl::selectedTreeItem_checkBox(t, i.idx());

            while select forUpdate firstonly tmpImportAot
                where tmpImportAot.TreeNodePath == i.data()
            {
                tmpImportAot.Import = ! res;
                tmpImportAot.update();
            }
        }
        else
            SysFormTreeControl::deselectedTreeItem_checkBox(t, i.idx());
        i = t.getItem(t.getNextVisible(i.idx()));
    }
}

\Forms\SysImportDialog\Methods\markDifferentObjects

void markDifferentObjects()
{
    ;
    sysImportElements.markDifferentObjects(AOTtree);
    tmpImportLabel_ds.executeQuery();
}

Добавляем кнопку на форму:
\Forms\SysImportDialog\Designs\Design\[Group:BottomGrp]\[ButtonGroup:ButtonGroup]\Button:MarkDifferentObjects\Methods\clicked

void clicked()
{
    element.markDifferentObjects();
}

минус - перед нажатием на кнопку нужно включить "Отобразить подробости". Да не особо шустро работает...

[Dron AKA andy]

Доработал вариант Denicce под себя: нужно, чтобы неизмененные объекты удалялись из дерева, а оставались только содержащие изменения.

Соответственно, вместо \Classes\SysImportElements\markDifferentObjects предлагается \Classes\SysImportElements\deleteEqualObjects:

public void deleteEqualObjects(FormTreeControl _ftc)
{
    FormTreeControl     treeControl = _ftc;
    FormTreeItem        treeItem;
    Set                 itemIdxSet = new Set(Types::Integer);

    void deleteNodeWithEmptyParents(FormTreeItem  _treeItem)
    {
        TreeItemIdx         idx;
        TreeItemIdx         childIdx;
        int                 i;
        boolean             parentIsEmpty;

        if (_treeItem)
        {
            idx = _treeItem.idx();
            itemIdxSet.add(idx);
            while select forUpdate firstonly tmpImportAot
                where tmpImportAot.TreeNodePath == _treeItem.data()
            {
                tmpImportAot.Import = false;
                tmpImportAot.update();
            }
            parentIsEmpty = true;
            childIdx = treeControl.getChild(treeControl.getParent(idx));
            while (childIdx)
            {
                if (!itemIdxSet.in(childIdx))
                {
                    parentIsEmpty = false;
                    break;
                }
                childIdx = treeControl.getNextSibling(childIdx);
            }
            if (parentIsEmpty)
                deleteNodeWithEmptyParents(treeControl.getItem(treeControl.getParent(idx)));
        }
    }


    itemIdxSet = new Set(Types::Integer);

    treeItem = treeControl.getItem(treeControl.getRoot());
    if (treeItem)
    {
        SysFormTreeControl::expandTree(treeControl, treeItem.idx());
        while (treeItem)
        {
            // KDV анализируем только конечные узлы дерева (листы - объекты АОТ):
            if (! strFind(treeItem.data(), '\\', strLen(treeItem.data()), -1))
            {
                // KDV сравниваем последний слой в АОТ и слой XPO:
                if (this.compareNodes(treeControl, treeItem))
                    deleteNodeWithEmptyParents(treeItem);

            }
            treeItem = treeControl.getItem(treeControl.getNextVisible(treeItem.idx()));
        }
        SysFormTreeControl::deleteTreeItem(treeControl, itemIdxSet);
    }
}

ну и соотв. образом подменить вызов исходного метода на мой.

[Denicce]

а compareNodes_NV это мой compareNodes?

[Dron AKA andy]

Да
Исправил в своем сообщении.

Полезная штука! Выложите пожалуйста в виде .XPO

Кстати, на 2009 будет работать?

[Denicce]

В таком виде легче себе перенести, благо не так много изменений. Плюс не затрагиваются ваши изменения указанных объектов.
Думаю, на девятке тоже работать будет, но я не проверял.

[olesh]

Цитата:

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

Писал на коленке на 3.0, перевел на 4.0

А для 3.0 не осталось варианта?

Потестил - вобщем работает с существенными ограничениями...
Если класс выгружен только с измененного слоя - неверно отмечает, что он изменен.
Если таблица выгружена только с измененного слоя - валится в throw error 'InventQualityOrderTable' does not have property 'ConfigurationKey'.

Если класс выгружен полностью и нажать на метод от Dron AKA andy выпадает в стек трейс (оригинальный метод отрабатывает корректно)

[Denicce]

Вариант для 3.0.
\Classes\SysImportElements\compareNodes

private boolean compareNodes(FormTreeControl _formTreeControl, FormTreeItem _formTreeItem)
{
    TreeNode                        treeNodeAOT;
    TreeNode                        treeNodeImport  = NULL;
    int                             exportId;
    int                             flag            = (#impGetCompareNode + #impKeepIds);
    boolean                         ret;
    ;

    if (_formTreeItem &&
        _formTreeItem.stateBold())
    {
        select firstonly tmpImportAot
            where tmpImportAot.TreeNodePath == _formTreeItem.data();

        if (tmpImportAot)
        {
            treeNodeAOT = infolog.findNode(tmpImportAot.TreeNodePath);
            if (treeNodeAot)
            {
                ret = true;
                exportId        = infolog.startImport(filename, flag);
                treeNodeImport  = infolog.getImportedNode(
                                        exportId,
                                        tmpImportAot.UtilFileType,
                                        tmpImportAot.UtilElementType,
                                        tmpImportAot.treeNodeName,
                                        tmpImportAot.FilePos,
                                        flag);
                ret = new SysCompare(true).compareTreenodes(treeNodeAOT, treeNodeImport);
                infolog.endImport(exportId, 1);
            }
        }
    }
    return ret;
}

остальные методы такие же, как и в 4.0.

[Denicce]

Цитата:

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

Потестил - вобщем работает с существенными ограничениями...
Если класс выгружен только с измененного слоя - неверно отмечает, что он изменен.
Если таблица выгружена только с измененного слоя - валится в throw error 'InventQualityOrderTable' does not have property 'ConfigurationKey'.

а стандартное сравнение из контекстного меню в списке объектов в окне импорта работает нормально в обоих случаях?