[ANN] Tabax 0.1 -- панель задач для Axapta

[belugin]

Навреное надо закрывать табакс по симетричному событию - застра попробую

[belugin]

падение не воспроизводится (4.0.2163)

[Alex_K]

У меня сегодня тоже

[belugin]

http://erpkb.com/Axapta/Tabax
0.3.2:

• Ax Path: теперь он пытается составлять условия по первичному ключу, а не по recID, название компании теперь dataAreaID
• Французская локализация

AxPath://MenuItem/Display/VendTable?dataAreaId=dat&AccountNum=Монтаж

[belugin]

Табаксу - год

[blokva]

Цитата:

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

Табаксу - год

Поздравляю с днем варенья "ребенка", классный он получился, спасибо!

[belugin]

Он не получился бы без многих людей, без AndyD в первую голову (на нем вся win32api магия), Также много полезного сделали Иван Кашперук, Олег (oip) и другие люди приславшие патчи, тестировавшие и предлагавшие фичи.

[blokva]

Цитата:

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

Он не получился бы без многих людей, без AndyD в первую голову (на нем вся win32api магия), Также много полезного сделали Иван Кашперук, Олег (oip) и другие люди приславшие патчи, тестировавшие и предлагавшие фичи.

Анназначна!
Большой респект всем "родителям и воспитателям!" и поздравления!

[belugin]

Иногда не работало определение текущего метода, текст которого был модифицирован.

Исправление:
\Forms\Tabax\Methods\getCurMethod

...
TreeNode fromMethods(TreeNode _parent, str _name)
    {
        TreeNode ret = _parent;
    ;
        if (this.strEndsWith(_name, ' *'))
            _name = subStr(_name, 1, strLen(_name) - 2);
        if (ret)
            ret = ret.AOTfindChild('methods');
        if (ret)
            ret = ret.AOTfindChild(_name);
        return ret;
    }

[belugin]

\Forms\Tabax\Designs\Design\[Group:toolbar]\ButtonpenApplObjBut\Methods\clicked

Добавление обработки диалогов в стрелочке вверх

    str getCallerPath()
    {
        switch (true)
        {
            case SysdictClass::isEqualOrSuperClass(classidget(caller), classNum(SysSetupFormRun)):
                return #formsPath+'\\'+caller.name();
            case SysdictClass::isEqualOrSuperClass(classidget(caller), classNum(RunBase)):
                return #classesPath+'\\'+classId2Name(classIdGet(caller.runBase()));
            case SysdictClass::isEqualOrSuperClass(classidget(caller), classNum(DialogRunBase)):
                return #classesPath + '\\' + classId2Name(classIdGet(caller.runBase()));
            // ================== вот тута ==================================
            case SysdictClass::isEqualOrSuperClass(classidget(caller), classNum(Dialog)):
                return #classesPath + '\\' + classId2Name(classIdGet(caller.caller()));
            case SysdictClass::isEqualOrSuperClass(classidget(caller), classNum(ReportRun)):
                return #reportsPath + '\\' + caller.name();
            case SysdictClass::isEqualOrSuperClass(classidget(caller), classNum(QueryRun)):
                return #queriesPath + '\\' + caller.name();
            default:
                return #classesPath + '\\' + classId2Name(classIdGet(caller));
        }
    }

[miklenew]

Очень понравился Tabax. Не знаю как я без него обходился.
Правда для себя я контрол tab сделал не видимым и код не много изменил в методе autoHeight

        //WINAPI::setWindowPos(this.Hwnd(),0,0, w - x, ht - y, true,false,
        WINAPI::setWindowPos(this.Hwnd(),0,0, w - x, 25, true,false,

Как то не очень удобно когда вкладки попадаются на пути мышки. Лучше если они снизу.
Плюс некоторые кнопки тоже сделал невидимыми, которыми тоже особенно не буду пользоваться.
Если кто-то хочет добавить дополнительные кнопки для работы с функциями EditorScripts, то можно
1) В класс Info добавить описание Editor curEditor;
2) Создать метод в классе Info

Editor editor(Editor _e = curEditor)
{
;
    curEditor = _e;
    return curEditor;
}

3) В классе EditorScripts метод showScripts закоментировал потому что не особенно он мне нужен. Оставил только.

infolog.editor(e);

4) В формe Tabax перекрыть метод activate().

public void activate(boolean _active)
{
    DLL winApiDLL = new DLL('User32');
    DLLFunction keybd_event = new DLLFunction(winApiDLL, 'keybd_event');
    ;

    keybd_event.arg(ExtTypes::Byte, ExtTypes::Byte, ExtTypes::DWord, ExtTypes::DWord);

    keybd_event.call('18', 0, 0, 0);
    keybd_event.call('77', 0, 0, 0);
    keybd_event.call('77', 0, 2, 0);
    keybd_event.call('18', 0, 2, 0);
    super(_active);
}

5) В методе clicked вашей кнопки написать код

void clicked()
{
    EditorScripts es;
    Editor        e;
;
    super();
    e = infolog.editor();
    es = new EditorScripts();
    es.NewWindow(e);//ваш script
}

[sparur]

А еще можно реализовать автозапуск Tabax'а без модификации стандартных классов

Делается это достаточно просто...
1) Нужно создать простенький XMLчик вида:

<?xml version="1.0" encoding="utf-8" ?>

<AxaptaAutoRun exitWhenDone="false" version="4.0" logFile="C:\Program Files\Microsoft Dynamics AX\40\Application\Share\Include\tabax\AutoRun\AxOpenTabax.log">
<Run type="displayMenuItem" name="Tabax"/>
</AxaptaAutoRun>

2) Далее в папке где лежат картинки для кнопочек(ну можно канешно в любую, но для удобства наверное лучше там), создал папку AutoRun и кинул XMLку(параметр logFile в XML'е еще по этому пути создаст текстовичок с логом).

3) Ну и осталось прописать эту XMLку при запуске...
Для этого открываем Конфигурационную утилиту клиента, видим на 1ой закладке поле "Command to run at application startup". Сюда нам необходимо забить строчку вида: AutoRun_полный путь к файлу XML

В моем случае это выглядит так:

AutoRun_C:\Program Files\Microsoft Dynamics AX\40\Application\Share\Include\tabax\AutoRun\openTabax.xml

и ВСЁ...

Наслаждаемся Tabax'ом при открытии

[sukhanchik]

Цитата:

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

Если кто-то хочет добавить дополнительные кнопки для работы с функциями EditorScripts, то можно
1) В класс Info добавить описание Editor curEditor;
2) Создать метод в классе Info

Можно (по идее) попробовать обойтись и без правки класса Info.
Основная задача - послать окну Editora сообщение (окно найти через WinAPI) Alt+M (ну или какое другое) для того, чтобы ядро запустило метод showScripts.
Далее - задача передать из Tabax информацию о том, какой метод запускать и задача определить в showScripts что его вызвали из Tabax.
Передать можно через Infolog.globalcache, а определить - опять-таки - по наличию команды в globalcache.
По крайней мере такой способ не затронет системные классы.

[miklenew]

Цитата:

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

Можно (по идее) попробовать обойтись и без правки класса Info.
Основная задача - послать окну Editora сообщение (окно найти через WinAPI) Alt+M (ну или какое другое) для того, чтобы ядро запустило метод showScripts.
Далее - задача передать из Tabax информацию о том, какой метод запускать и задача определить в showScripts что его вызвали из Tabax.
Передать можно через Infolog.globalcache, а определить - опять-таки - по наличию команды в globalcache.
По крайней мере такой способ не затронет системные классы.

На днях поковыряю. Посмотрю.
Есть новая кнопочка которую можно при желании повесить в tabax.
Стоим в коде на каком-нибудь поле таблицы, жмём кнопку "Справка по полю".
Открывается форма с help-ом по полю и с путями в каких формах используется это поле для ввода данных или для просмотра.
Если жмём на этот путь открывается в новом окне эта форма.
В классе SysHelpBook изменить construct
Добавить

        case 'a':
            return new SysHelpBookField(sysHelp, url);

Метод кнопки

void clicked()
{
    EditorScripts es;
    Editor        e;
;
    super();
    e = infolog.editor();
    es = new EditorScripts();
    es.helpField(e);
}

Как editor получить писал выше.
Метод в класс Editor

void helpField(Editor e)
{
    TreeNode            treeNode = TreeNode::findNode(e.path());
    TmpxRefReferences   tmpxRefReferences;
    Column              nCol = e.columnNo() + 1;
    Line                nLine = e.currentLineNo() + 1;
    ;

    treeNode.AOTmakeXref(1);
    tmpxRefReferences = xRefCreate::makeTmp(infolog.lastxRef());

    select firstonly tmpxRefReferences
        order by Column desc
        where tmpxRefReferences.line == nLine &&
              tmpxRefReferences.Column <= nCol;

    if (!tmpxRefReferences)
        return;

    treeNode = TreeNode::findNode(tmpxRefReferences.path());

    if (treeNode && tmpxRefReferences.Kind == xRefKind::TableField)
    {
        HelpField::checkPost(tmpxRefReferences.parentName, tmpxRefReferences.name);
    }
}

[sukhanchik]

А насколько сие жизнеспособно в 4-ке? Там же много чего потерли из хелпа.... Ну... в смысле "перенесли в отдельный chm-файл")

[miklenew]

Цитата:

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

А насколько сие жизнеспособно в 4-ке? Там же много чего потерли из хелпа.... Ну... в смысле "перенесли в отдельный chm-файл")

К своему стыду четвёрку ещё не поставил. Всё собераюсь, но воз и ныне там.
Через две недели будет отпуск, поставлю.
Так что не знаю будет оно там работать или нет.
Но уверен адаптировать можно.
MS вроде редко отчего то отказываются, обычно дописывают.

[sukhanchik]

Цитата:

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

Но уверен адаптировать можно.

А... ну-ну... сразу скажу - не пробовал... но отдельная доля скепсиса у меня присутствует.
В конкретно этом случае - МС действительно отказалась от интегрированного хелпа.
Остаолсь лишь то, до чего руки "не дошли" видимо...
Ну посмотрим.. Будет время - сам гляну

[belugin]

Sidax & Tabax for Ax 2009 beta


Tabax Работает с окнами вне главного окна аксапты (ну кроме функций управления окнами - имеется ввиду кнопки типа браузера таблиц)

У Sidax изменился способ вызова пунктов меню, чтобы вызванное окно оставалось активным

http://erpkb.com/Axapta/Tabax/files?...ax2009beta.zip

[miklenew]

Цитата:

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

Есть новая кнопочка которую можно при желании повесить в tabax.
Стоим в коде на каком-нибудь поле таблицы, жмём кнопку "Справка по полю".
Открывается форма с help-ом по полю и с путями в каких формах используется это поле для ввода данных или для просмотра.
Если жмём на этот путь открывается в новом окне эта форма.

Ошибочку нашёл в класс HelpField метод label()
добавить ещё и CheckBox.(забыл про галку)
В исходном хро исправил.

[belugin]

Небольшой баг - если название контрола или дс == названию формы, редактор не воспринимался

/// returns control from form _form with the name _name
TreeNode controlByName(TreeNode _form, str _name)
{
    TreeNodeTraverser i = new TreeNodeTraverser(_form, false);
    TreeNode node = i.next();
    while (node)
    {
        if (match(@": +name: +#"+_name+': +', node.AOTgetProperties()))
            return node;
        node = i.next();
    }
    return null;
}