Объекты АОТ в проекте

[Paul_ST]

Добрый день!

Подскажите, пожалуйста, как программно можно получить список объектов АОТ, входящих в определённых проект?

[kalex]

str         project = 'projectName';
    ProjectNode         node;
    ProjectNode         rootNode;
    ProjectNode         groupNode;
    TreeNodeIterator    treeNodeIterator;

    void getTreeNode(TreeNode _treeNode)
    {
        TreeNode            node1;
        TreeNodeIterator    treeNodeIterator1 = _treeNode.AOTiterator();

        node1 = treeNodeIterator1.next();
        while(node1)
        {
            if(node1.handle() == classNum(ProjectGroupNode))
            {
                getTreeNode(node1);
            }
            else
            {
                do something with node1...
            }

            node1 = treeNodeIterator1.next();
        }
    }
;
        rootNode         = Infolog.projectRootNode();
        treeNodeIterator = rootNode.AOTiterator();

        groupNode = treeNodeIterator.next();
        while(groupNode)
        {
            node = groupNode.AOTfindChild(project);
            if(node)
            {
                node = node.getRunNode();
                getTreeNode(node);

                break;
            }
            groupNode = treeNodeIterator.next();
        }

[Paul_ST]

Спасибо большое!
Получилось

[rinugun]

А как можно добавить сюда фильтрацию по ChangedDate у объекта?

[rinugun]

А как можно добавить сюда фильтрацию по ChangedDate у объекта?

[kalex]

UtilElements elements;
Date d;
;
select elements
where elements.name == node.AOTname() &&
elements.recordType == node.applObjectType();

d = elements.modifiedDate;

[Владимир Максимов]

Извиняюсь, что поднял старую тему, но возник дополнительный вопрос.

При сканировании всего дерева проектов, просто не хватает памяти. Axapta 2.5 вылетает с сообщение о нехватке памяти.

Есть ли возможность получить дерево объектов внутри проекта из каких-либо служебных таблиц (AXPATA 2.5) или же как-то принудительно чистить память, после очередного шага сканирования объектов.

Внешний цикл по таблице UtilElements практически не влияет на используемую память

PHP-Code:

.
    TreeNode         projectType;
    ProjectNode      curProject;
    UtilElements     utilElements;
    ;

    projectType = infolog.projectRootNode().AOTFindChild('Shared');

    while select name from utilElements
        group by name
        where utilElements.recordType == utilElementType::SharedProject
    {
        curProject = projectType.findChild(utilElements.name);
        curProject = curProject.getRunNode();
       // далее запуск рекурсии сканирования одного проекта
    } 


Т.е. всю память "съедает" именно рекурсивное сканирование проектов.

AXAPTA 2.5

[ymv2000]

Может кто знает

как программно можно получить аналог нажатия кнопки "Add-Ins->Включен в проекты" на каком либо объекте AOT?

[RVS]

Zitat:

Zitat von ymv2000

Может кто знает

как программно можно получить аналог нажатия кнопки "Add-Ins->Включен в проекты" на каком либо объекте AOT?

Вот так, например...

[Logger]

Спасибо за проект.
Но в 2009-й приведенный вами код не работает

Причина в том, что теперь ядро криво работает с узлами AOT. При переборе примерно 3 тысяч проектов все виснет. Иногда падает клиент.

Переписал проект на работу с Utilelements.
Работает очень быстро.

[sukhanchik]

Zitat:

Zitat von Logger

Переписал проект на работу с Utilelements.

Ээээ а чего-то там нет упоминаний об UtilElements... Это так и планировалось?

[Logger]

Zitat:

Zitat von sukhanchik

Ээээ а чего-то там нет упоминаний об UtilElements... Это так и планировалось?

Сорри, не тот проект вложил.
Тут то, что надо.

[Logger]

В 2012-й такой подход не работает к сожалению.

А каким инстрементом лучше пользоваться в 12-й ?

[Link]

Zitat:

Zitat von Logger

В 2012-й такой подход не работает к сожалению.

А каким инстрементом лучше пользоваться в 12-й ?

Ниже пример обхода всех элементов всех общих проектов.

// >> DEV:MXK >>
public static server void updateProjectCrossRef()
{
    TreeNode        tnRoot, tnProject;
    ProjectNode     projectNode;
    xRefPaths       refPaths;

    void updateProjectNodes(TreeNode        _prentProject,
                            xRefPathRecId   _xRefPathRecId = 0)
    {
        #TreeNodeSysNodeType

        TreeNode            treeNode;
        TreeNodeIterator    rootNodeIterator;

        xRefReferences      refReferences;
        xRefPaths           refPathsRef;

        xRefPathRecId       xRefNameRecId;

        rootNodeIterator = _prentProject.AOTiterator();

        treeNode = rootNodeIterator.next();

        while (treeNode)
        {
            if (treeNode.treeNodeType().id() == #NT_PROJECT_GROUP)
            {
                updateProjectNodes(treeNode, _xRefPathRecId);
            }
            else
            {
                refPathsRef     = xRefPaths::findOrInsert(treeNode.treeNodePath());
                xRefNameRecId   = xRefNames::findOrInsert(DEV_Maintain::getRefKind(treeNode), '', treeNode.treeNodeName(), 0).RecId;

                if (!xRefReferences::find(xRefNameRecId, _xRefPathRecId, XRefReference::Declaration))
                {
                    refReferences.initValue();
                    refReferences.xRefNameRecId        = xRefNameRecId;
                    refReferences.xRefPathRecId        = _xRefPathRecId;
                    refReferences.referencePathRecId   = refPathsRef.RecId;
                    refReferences.Reference            = XRefReference::Declaration;
                    refReferences.insert();
                }
            }

            treeNode.treeNodeRelease();
            treeNode = rootNodeIterator.next();
        }
    }

    tnRoot = SysTreeNode::getSharedProject();

    if (tnRoot)
    {
        tnProject = tnRoot.AOTfirstChild();

        while (tnProject)
        {
            projectNode = tnProject;

            if (TreeNode::findNode(tnProject.treeNodePath()))
            {
                refPaths = xRefPaths::findOrInsert(tnProject.treeNodePath());
                updateProjectNodes(projectNode.loadForInspection(), refPaths.RecId);
            }

            tnProject = tnProject.AOTnextSibling();
        }
    }

    info('Project references updated successfully.');
// << DEV:MXK <<
}

[Logger]

Портировал код по быстрому поиску проектов на 2012-ю R3.

Перекрестные ссылки не нужны.

[Logger]

По аналогии с вьюхой UtilElements добавил в запрос WITH (READUNCOMMITTED)