Доп. пункт в меню

Программирование на Atlantis: приемы и подходы, обмен опытом

Модераторы: larin, Screw

beatlov
заказчик
Сообщения: 49
Зарегистрирован: Пн, 22/12/2008 16:39
Имя Фамилия: Владимир Жуков
Откуда: Северные МН

Доп. пункт в меню

Сообщение beatlov » Чт, 05/11/2015 09:51

Добрый день!
Проблема с добавлением нового пункта в выпадающем меню.
Модуль "Спецодежда" > Настройка->Нормы выдачи спецодежды ->Форма "Редактирование нормы выдачи специальной (фирменной) одежды".
Необходимо добавить новый пункт меню в выпадающем меню части экрана "Начало - Окончание"
Опытным путем узнал наименование меню - "F_SFO::SFO_NormEdit_HotKeys". Наимнование окна: WinEditNormSFO
Все делал по примерам... Что получилось - данный пункт не появился в главном выпадающем меню, НО выборе пункта "Печать" -печать не осуществляется, а выпадает как раз нужное меню. Не совсем понятно, что такое
Код такой:
const
cmDoDataMTO = 990099;
cmtest1 = 990102;
End;
#component 'F_SFO'


alter interface EDITNORMSFO;
overload end;
var l_menuID,l_menuID2:longint ;
ln_nrec:comp;
window WinEditNormSFO;

HandleEvent
cmHotKeys:
{
inherited::handleEvent(cmHotKeys);
l_menuID := LoadMenu('F_SFO::SFO_NormEdit_HotKeys');
AddMenuItemEx2(l_menuID,'***.Генерация норм для спецодежды' , '' ,'',cmDoDataMTO, 0,'');
PutHotCommand(RunLoadMenu(l_menuID));
}

cmDoDataMTO:
IF RunInterface('SPECODSMN::SpecOd_001', NORMSFO.NREC)<>cmDefault
{
}

end;
end;
end.

beatlov
заказчик
Сообщения: 49
Зарегистрирован: Пн, 22/12/2008 16:39
Имя Фамилия: Владимир Жуков
Откуда: Северные МН

Re: Доп. пункт в меню

Сообщение beatlov » Пт, 06/11/2015 13:43

проблема решилась. На тюмбите подсказали.
Убираем inherited и вуаля.
cmHotKeys:

{
l_menuID := LoadMenu('F_SFO::SFO_NormEdit_HotKeys1');
AddMenuItemEx2(l_menuID,'***.Генерация норм для спецодежды' , '' ,'',cmDoDataMTO, 0,'');
PutHotCommand(RunLoadMenu(l_menuID));
ReinitHeaderMenu;
}


Вернуться в «Программирование»

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и 6 гостей