Программно добавить пункт меню

[Wamr]

Подскажите, как программно добавить пункт меню в подменю одного из главных меню, например Администрирование.

Добавить просто пункт меню можно так

    Menu            m = New Menu(menustr(Administration));
    MenuFunction    mf = new MenuFunction(menuitemdisplaystr(MyMenuItem), MenuItemType::Display);
    ;

    m.addMenuitem(mf);
    m.AOTcompile();
    m.AOTsave();

[Косых Артём]

вот так

    Menu          m = New Menu(menustr(Administration));
    MenuFunction  mf = new MenuFunction(menuitemdisplaystr(MyMenuItem), MenuItemType::Display);
    Menu          m2;
    ;

    m2 = m.AOTfindChild("Запросы");
    m2.addMenuitem(mf);

    m.AOTcompile();
    m.AOTsave();

[Delfins]

А я только что так убил Аxапту - именно меню `Администрация` - делает крэш, если пытаешся открыть или редактировать в АОТ

[Косых Артём]

Zitat:

Zitat von Delfins

А я только что так убил Аxапту - именно меню `Администрация` - делает крэш, если пытаешся открыть или редактировать в АОТ

Ужас

А какая версия Аксапты? У меня 3.0 SP3 вроде все нормально.

[Delfins]

3.0 SP3

Придется вырывать весь УСР слой кроме того меню...
Странно

[Wamr]

Вроде, работает. Спасибо.
А как теперь создать свое подменю?

[Косых Артём]

Zitat:

Zitat von Wamr

А как теперь создать свое подменю?

метод addSubMenu класса Menu

[kashperuk]

Только вот не совсем понимаю - зачем создавать это программно?
Расскажите, если не секрет

[Wamr]

Артем. я пробовал - не работает

Иван. Как еще можно перенести пункты главного меню на заранее неизвестную конфигурацию Аксапты?

[Hidden]

Zitat:

Zitat von Wamr

Артем. я пробовал - не работает

Иван. Как еще можно перенести пункты главного меню на заранее неизвестную конфигурацию Аксапты?

А чем стандартный Экспорт - Импорт не подходит?

[Ned]

Тем, что главное меню - только одно. Импортируешь - перезапишешь.

[Hidden]

Zitat:

Zitat von Ned

Тем, что главное меню - только одно. Импортируешь - перезапишешь.

Так есть же функция сравнения, чтобы сравнить, а в процессе сравнения можно вставить только то, что нужно. У меня правда при нажатие на стрелочку для внесения изменений, открывается (about:blank#Insert-1) - списываю это на SP1.

[Ned]

А так можно инсталляшку для модуля сделать. Получается почти коробка - поставил и вроде работает. На новые сервис-паки удобно переходить. Для кого это - реальность

[Косых Артём]

Zitat:

Zitat von Wamr

Артем. я пробовал - не работает

А сохраняли объект меню "Администрирование", то есть верхнего уровня??? сохранять надо именно его. Сейчас Аксапты под рукой нету, завтра-послезавтра посмотрю (а может кто и раньше поможет).

[Delfins]

Ned, в Аксапта сервис паки также инсталируются - сначала ставится новые DIS,DIP..etc, потом инсталятор предлагает сделать проект изменений АОТ... вот потом то и надо вручную пройти и все проверить... Если ето отделный модуль, конечно меньше гемороя, но все равно, хоть это и менюшка - надо делать это осторожно.. При импорте, перед нажатием ОК можно также сравнить XРО и любой уровень, вплоть до УСР...

Я даже так иногда импортирую из XРО, не нажимая на ОК... xватает только нажать стрелочьки в броузере

[belugin]

static void addSubMenu(str _menu, str _subMenu)
{
    Menu sysContextMenu=new Menu(_menu);
    Menu subMenu=new Menu(_subMenu);
    ;
    sysContextMenu.AOTDrop(subMenu);
    sysContextMenu.AOTsave();
    sysContextMenu.AOTrestore();
    sysContextMenu.AOTrefresh();
}

[belugin]

Это я пытался плагинменеджер для аксапты сделать

static void removeSubMenu(str _menu, str _subMenu)
{
    Menu sysContextMenu=new Menu(_menu);
    Menu myMenu=new Menu(_subMenu);
    TreeNode node;
    ;
    node=sysContextMenu.AOTfindChild(myMenu.label());
    if(node)
    {
        node.AOTdelete();
        sysContextMenu.AOTsave();
    }
    else
        warning("Submenu not found: "+myMenu.label());

}

[Косых Артём]

фигня какая-то с этими подменю. Получается метод addSubMenu класса Menu вообще не работает?

Если использовать методы addSubMenu, removeSubMenu, которые выложил Максим, то такой код:

    addSubMenu("Administration","Test");

    removeSubMenu("ADministration","Test");

Выдает предпреждение "Submenu not found."

Если создавать подменю вручную и не добавить в него никаких пунктов меню, после сохранение и востановления это подменю уже не видно. В результате программно подменю добавить можно в меню с помощью метода AOTDrop, только если в это подменю заранее добавить все необходимые пункты меню. Но имя у этого подменю все равно почему-то пустое

У меня Axapta 3.0 SP3. Максим, а как у тебя эти методы работают?

[belugin]

именно так. заранее создаешь подменю со всеми методами, а оно вставляется

[Косых Артём]

Zitat:

Zitat von belugin

именно так. заранее создаешь подменю со всеми методами, а оно вставляется

Так в твой метод создания подменю тогда надо передавать вторым параметром объект класса Menu, а не строку. Так? Или я чего-то не понимаю