AXForum  
Вернуться   AXForum > Microsoft Dynamics AX > DAX: Программирование
All
Забыли пароль?
Зарегистрироваться Правила Справка Пользователи Сообщения за день Поиск Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
Старый 05.02.2015, 14:34   #1  
Art_Tanis is offline
Art_Tanis
Участник
 
225 / 36 (2) +++
Регистрация: 04.02.2014
Скрипт который создает проект и перемещает в него все изменения со слоя за дату
Добрый день!
Может кому то будет интересно или полезно:
Данный скрипт собирает изменения на выбранном слое на выбранную дату и создает на основании этого проект в private.
X++:
static void createproject(Args _args)
{
    SysProjectFilterRunBase sysProjectFilter;
    Utilelements            utilElements;
    Identifiername          projName;
    TransDate               transDate;
    Counter                 c;
    UtilEntryLevel          utilLevel;
    TimeOfDay               timeOfDay;
    str                     projNamePrefix;
    UtcDateTime             dateTime;
    ;

    
    projNamePrefix = "USR";
 
    utilLevel   = UtilEntryLevel::usr;
    timeOfDay   = str2time("00:00:01");
     dateTime    = DateTimeUtil::newDateTime(mkDate(29,01, 2015), timeOfDay);
     transDate   = today();
    projName    = strFmt("%1_%2", projNamePrefix ? projNamePrefix : enum2str(utilLevel), date2str(transDate, 321, 2,0,2,0,2));

    setPrefix(strFmt("Create project %1", projName));

    sysProjectFilter = new sysProjectFilterRunBase();
    sysProjectFilter.parmProjectNode(sysTreeNode::createProject(projName));
    sysProjectFilter.grouping(sysProjectGrouping::AOT);

    while select name, utilLevel, RecordType, ParentId
        from    utilElements
        where   utilElements.utilLevel == utilLevel &&
               (utilElements.createdDateTime >= dateTime ||
                utilElements.modifiedDateTime >= dateTime)
    {
        try
        {
            utilelements.reread();

            if (sysProjectFilter.doUtilElements(utilelements))
            {
                c++;
            }
        }
        catch (exception::Error)
        {
            throw error('Error at adding elements to the project');
        }
    }

    sysProjectFilter.write();

    if (c)
    {
        strFmt("Project %1 was created", projName);
    }
    else
    {
        info("No elements found.");
    }
}
Старый 06.02.2015, 10:40   #2  
AlGol is offline
AlGol
Участник
 
277 / 93 (4) ++++
Регистрация: 24.12.2001
Адрес: Тверь.
Наверное, будет точнее сказать так:
"собирает изменения, сделанные после определенной даты и времени".
__________________
Ален ноби, ностра алис.
Что означает - если один человек построил, другой завсегда разобрать может.
Старый 06.02.2015, 14:32   #3  
Art_Tanis is offline
Art_Tanis
Участник
 
225 / 36 (2) +++
Регистрация: 04.02.2014
Да точно. По поводу даты - select легко можно исправить так как вам угодно. Я думаю что совместная разработка в аксапте не очень крута - можно к примеру написать RunBaseBatch который будет собирать изменения по людям на каждую дату и сохранять. Заодно можно посчитать наверное и количеств строк измененного кода.
Старый 06.02.2015, 14:58   #4  
AndyD is offline
AndyD
Участник
КОРУС Консалтинг
Лучший по профессии 2015
Лучший по профессии 2014
Лучший по профессии AXAWARD 2013
Лучший по профессии 2011
 
2,560 / 2476 (88) +++++++++
Регистрация: 20.08.2005
Если один и тот же объект несколько разработчиков будет менять между запусками функции, то вы ничего не увидите.
Точнее, увидите последнего менявшего.

Используйте контроль версий - будет намного проще.
И будет круче)
__________________
Axapta v.3.0 sp5 kr2
Старый 06.02.2015, 20:08   #5  
lvan is offline
lvan
Участник
Аватар для lvan
Лучший по профессии 2014
 
856 / 82 (4) ++++
Регистрация: 15.04.2011
Записей в блоге: 1
согласен с AndyD
вот читайте Change Management and TFS Integration for Multi-Developer Projects White paper
Старый 06.02.2018, 19:24   #6  
gl00mie is offline
gl00mie
Участник
MCBMSS
Most Valuable Professional
Лучший по профессии 2017
Лучший по профессии 2015
Лучший по профессии 2014
Лучший по профессии AXAWARD 2013
Лучший по профессии 2011
Лучший по профессии 2009
 
3,684 / 5788 (200) ++++++++++
Регистрация: 28.11.2005
Адрес: Москва
Записей в блоге: 3
Подниму, пожалуй, тему. В АХ2012 появились модели, а UtilElements не позволяет по ним фильтроваться. Ниже приведен пример создания проекта по объектам конкретной модели. Также в приведенном коде исправлена ошибка исходного скрипта, когда, скажем, находился метод класса или поле таблицы, но сам класс или таблица в итоге в проект не добавлялись. Это связано с особенностью работы SysProjectFilterRunBase, которому на вход надо подавать только объекты AOT верхнего уровня.

X++:
SysModelManifest        modelManifest;
SysModelElement         modelElement;
SysModelElementData     modelElementData;
UtilElements            utilElementsBuf;
ProjectNode             projectNode;
SysProjectFilterRunBase projectFilt;
UTCTimestamp            dateTimeMin = DateTimeUtil::addDays(DateTimeUtil::utcNow(), -1);
boolean                 isAnyFound  = false;

projectNode = SysTreeNode::createProject('MyProject', ProjectSharedPrivate::ProjShared);
projectFilt = SysProjectFilterRunBase::construct();
projectFilt.parmProjectNode(projectNode);
projectFilt.grouping(SysProjectGrouping::AOT);                      // важно: группируем объекты в проекте, как в AOT, иначе получим плоский список объектов

while select tableId
    from    modelManifest
    where   modelManifest.DisplayName           == 'My Model Name'  // фильтр по интересующей модели
    join    tableId
    from    modelElementData
    where   modelElementData.ModelId            == modelManifest.RecId
        &&  modelElementData.modifiedDateTime   >= dateTimeMin      // фильтр по времени модификации
    join    modelElement
    where   modelElement.RecId                  == modelElementData.ModelElement
	    // мы в любом случае не сможем добавить в наш проект другие проекты
        &&  modelElement.ElementType            != any2int64(UtilElementType::SharedProject)
        &&  modelElement.ElementType            != any2int64(UtilElementType::PrivateProject)
{
    utilElementsBuf.clear();
    utilElementsBuf.recordType     = modelElement.ElementType;
    utilElementsBuf.name           = modelElement.Name;
    utilElementsBuf.parentId       = modelElement.ParentId;
    if (utilElementsBuf.ParentId)
    {
        // важно: добавлять следует лишь объекты верхнего уровня
        // поэтому если нашелся метод или табличное поле, то
        // получаем родительский объект, иначе в проект он не добавится
        
        // за счет группировки повторяющиеся объекты в итоге 
        // будут добавлены в результирующий проект лишь один раз
        utilElementsBuf = xUtilElements::parentElement(utilElementsBuf);
    }
    isAnyFound = projectFilt.doUtilElements(utilElementsBuf) || isAnyFound;
}
if (isAnyFound)
{
    // сохраняем изменения и открываем новый проект
    projectFilt.write();
    projectNode.AOTnewWindow();
}
За это сообщение автора поблагодарили: Logger (3).
 

Похожие темы
Тема Автор Раздел Ответов Посл. сообщение
Consumption project in purchase order Bergman DAX: Функционал 4 11.07.2014 17:05
Ошибки при установке SP и русского слоя. (AX 2009) lekonstantine DAX: Администрирование 6 30.11.2011 12:48
Экспорт таблиц и форм с указанием слоя Zepp DAX: Администрирование 8 31.10.2005 20:16
Сводное планирование - изменения&изменения мин. Alexm DAX: Прочие вопросы 1 05.04.2005 10:43
Русская локализация Axapta 3 ? SlavaK DAX: Администрирование 59 01.07.2003 22:38
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход

Рейтинг@Mail.ru
Часовой пояс GMT +3, время: 02:16.
Powered by vBulletin® v3.8.5. Перевод: zCarot
Контактная информация, Реклама.