Создание новой номерной серии "шаг за шагом"

[SRF]

Доброго времени суток.

Во вложении мини-проект(может кому еще пригодится), который позволит автоматически создавать номерную серию для существующего модуля.

Как пользоваться :

Выбираем Extended Data Type, и вызываем
контекстное меню\Add-ins\Auto Create Number Sequence Reference

Задаем следующие параметры :

1. Модуль, для которого создается номерная серия
2. Является ли номерная серия непрерывной?(опционально)
3. Создавать ли статический метод на таблице параметров?(опционально)

Параметров немного, остальные по-умолчанию, если нужно, то думаю доработать будет не сложно.

Что делается :
1. В метод loadModule класса numberSequenceReference_<Module> автоматически добавится нужный код.
2. В случае если нужно, автоматически создает статический метод на
таблице <Module>Parameters, возвращающий ссылку на номерную серию.

Также во вложеном проекте, есть следующие мини dev-tools :

1. Для классов (Classes\Add-ins\Extended By) - показывает классы-потомки для указанного класса

2. Для проектов(Project\Add-ins\Compile All Project) - позволяет откомпилировать все объекты проекта, не открывая проект в новом окне

3. Для узла Classes(Classes\Add-ins\Auto Create Template RunBase) - создает класс-наследник RunBase\RunBaseBatch, также создается Menu Item для нового класса (опционально)

Проект импортировать аккуратно, изменен макрос xppTexts, затронуты методы системных классов, ниже их список :

SysContextMenu\verifyItem
ClassBuild\addSourceToEndMethod
Global\pickEnumValue
xppSource\beginBlock
xppSource\constructMethod
xppSource\constructMethod
xppSource\endBlock
xppSource\endLine
xppSource\getSource
xppSource\initDefaultIndentColumns
xppSource\mainMethodRunBase
xppSource\simpleLine

После импорта проекта Menu Items нужно закинуть в SysContextMenu.

Тестирование мини dev-tools производилось на DAX 4.0.

Вопросы к знатокам :

Почему в NumberSeqModule разные элементы имеют одинаковые метки ?
Например, NumberSeqModule::Ledger и NumberSeqModule::Asset имеют метку General Ledger.(В результате этого, если создавать контрол
typeId(NumberSeqModule) возникает путаница насчет модулей )

Почему поле Module в таблице NumberSequenceReference
имеет тип Integer, а не NumberSeqModule ?

offtopic: В Global\PickEnumValue был обнаружен баг, проявляется в любой из версий AX :

...
for (i=1;i <= dictEnum.values(); i++)
...

Такой код приводит к тому, что значение енума 0 теряется, должно быть :

...
for (i=0;i <= dictEnum.values(); i++)
...

Также в данном методе есть небольшая помарка :

...
formRun.choices(names, #ImageClass);
...

по идее логичнее использовать картинку #ImageBaseEnumElement, т.е.

...
formRun.choices(names, #ImageBaseEnumElement);
...

[TasmanianDevil]

Цитата:

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

offtopic: В Global\PickEnumValue был обнаружен баг, проявляется в любой из версий AX :

...
for (i=1;i <= dictEnum.values(); i++)
...

Такой код приводит к тому, что значение енума 0 теряется, должно быть :

...
for (i=0;i <= dictEnum.values(); i++)
...

Нет, Вы не правы - значение enum'а 0 не теряется .
Там идет проход по индексу enum'а, а затем уже по индексу инициализируется конкретное числовое значение enum'а.

for (i=1;i<=dictEnum.values();i++)
    {
        value = dictEnum.index2Value(i);

P.S.
При редактировании метода loadModule() у наследников NumberSequenceReference определение наименования переменной ошибочно, ввиду неправильного определения конца строки по символу ";" - strscan() ищет по подстроке от полного исходника, а начало поиска установлено на индекс относительно полной строки исходника. В результате поиск происходит где-то далеко за обявлением искомой переменной. В рабочем варианте выглядит так :

if (methodInfo)
    {
        positionVarTableStart = strScan(methodInfo.getSource(), tableStr(NumberSequenceReference), 1, strLen(methodInfo.getSource()));

        if (positionVarTableStart)
        {
            positionVarTableEnd = strScan(subStr(methodInfo.getSource(), positionVarTableStart, strlen(methodInfo.getSource())), ';', 1, strLen(methodInfo.getSource()));
            positionVarTableEnd += positionVarTableStart;

            if (positionVarTableEnd)
            {
                positionVarTableStart += strlen(tableStr(NumberSequenceReference));
                return strLRTrim(subStr(methodInfo.getSource(), positionVarTableStart,  positionVarTableEnd - positionVarTableStart - 1));
            }
        }
    }

P.P.S.
Кому б из "китайских пионеров" гвоздь в голову вбить за слой sys у механизма номерных серий ?
Отвратительно !

[in.dc]

Цитата:

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

Нет, Вы не правы - значение enum'а 0 не теряется .
Там идет проход по индексу enum'а, а затем уже по индексу инициализируется конкретное числовое значение enum'а.

for (i=1;i<=dictEnum.values();i++)
    {
        value = dictEnum.index2Value(i);

И все таки SRF прав - баг в pickEnumValue() имеет место быть.
Речь видимо шла не о нулевом значении enum'а, а о значении индекса enum'а (который валиден в интервале [0..enumcnt()-1]) - в текущей реализации метода цикл начат с 1. Цикл в pickEnumValue() должен был выглядеть:

    for (i=0;i<dictEnum.values();i++)
    {
        ...
    }

В варианте SRF было for (i=0;i <= dictEnum.values(); i++) в результате чего в список добавлялось пустая строка (при достижении равенства dictEnum.values()) с 'левым' значением.

P.S. либо так:

    for (i=1;i<=dictEnum.values();i++)
    {
        value = dictEnum.index2Value(i-1);
        ...
        names += dictEnum.index2Label(i-1);
        ...
    }