Галактика в вопросах и ответах

Код: Выделить всё

#Component "L_KATORG"
alter interface KATORG;

create view
var menuID:longint;
as select * from X$Resources(ReadOnly) ;

Window WKATORG
HandleEvent
cmValue41:
{
  RunInterface('getaddr_kladr',Katorg.Nrec, Katorg.Name);
};
end
end;

HandleEvent
cmInit :
{
  if (Inherited::HandleEvent(cmInit) != heOk)
  {
    Abort;
    Exit;
  }
  var m_MenuName : string;
  var m_Menu : longint;
  m_MenuName := 'L_KATORG::mnuKatOrgEdit'
  if (RecordExists X$Resources where (( 3 == X$Resources.XR$Type and m_MenuName == X$Resources.XR$Name))
       != tsOk)
  {
    DeleteMenuHowDynamics (m_MenuName);
    m_Menu := LoadMenuEx (m_MenuName, true, false);
    AddMenuItem(m_Menu, 'Сформировать адрес из внешнего Кладра',cmValue41);
    StoreMenuHowDynamics (m_Menu, m_MenuName);
    DisposeLoadMenu (m_Menu);
    ReinitHeaderMenu;
  }
};//cmInit

end;
end.

Код: Выделить всё

const
  MENU_PREFFIX : string[5] = 'MENU ';
end;

Код: Выделить всё

  m_MenuName := 'L_KATORG::mnuKatOrgEdit'

Код: Выделить всё

  m_MenuName := MENU_PREFFIX +'L_KATORG::mnuKatOrgEdit'

Код: Выделить всё

Предупреждение
Возникло необработанное исключение
ExMenuItemStateError (ExVip)
У Вас нет прав для удаления меню.
"Да" - Продолжить, "Нет" - Отлаживать в окне отладчика
"Отмена" - Не выдавать больше это сообщение
Да   Нет   Отмена