После обновления не появляется пункт меню, в актах оказания

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
a.gataullin
Сообщения: 3
Зарегистрирован: 15 окт 2021, 15:53

После обновления не появляется пункт меню, в актах оказания

Сообщение a.gataullin »

После обновления не появляется пункт меню, в актах оказания услуг

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

	  //********************************//
	  //	Интерфейс L_SOPRDOC::AKTUSL   //  
		//********************************//		
	  m_MenuName := 'L_SOPRDOC::MNUSDKDA1'
	  if (log4.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, 'SEPARATOR', 0);
	    AddMenuItem(m_Menu, 'Загрузить в Акт Календарный план загрузки', cmPIRDownloadActIntoKPZ);
      StoreMenuHowDynamics (m_Menu, m_MenuName);
	    DisposeLoadMenu (m_Menu);
	    ReinitHeaderMenu;
	  }
	  m_Menu := 0;   
Изображение
Изображение

Через саппорт видно что добавилось, а через галку нет
Den
Местный житель
Сообщения: 1842
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Ярославская область ОАО "Часовой завод Чайка" г. Углич
Контактная информация:

Re: После обновления не появляется пункт меню, в актах оказа

Сообщение Den »

Значит поменяли что то в алгоритме сбора/отображения меню в это окне разработчики. И с MNUSDKDA1 теперь так не получается, как вы привыкли.
Вообще, это не очень - совать что то в свое в стандартные меню. По возможности, нужно пользоваться механизмом дополнительных функций меню к конкретному документу (коих к акту на услуги более чем достаточно ) в настройках - это расширение разработчики не тронут никак.
Но, если совсем невмоготу, то попробуйте проальтерить другое стандартное меню в вашем коде (например,L_SoprDoc::mnuCU)
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5185
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: После обновления не появляется пункт меню, в актах оказа

Сообщение edward_K »

Сейчас в большинстве накладных|актов есть "Настроить меню".
Не разбирался что там влияет, на его отображение. Ну и вызов идет по другому.
Для акта на оказание услуг в окне редактирования в том числе.

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

cmHotKeys:
{
  case CurTable of
    #KatSopr:
    {
      if (not UpdateTable) exit;

      oMenu := oSoprMenuV2.MakeSoprEditMenu(oMenu, KatSopr.VidSopr);

      BindEvent(BeforRunMenu, oMenu.BeforRunMenu);
      BindEvent(GetCurrentContextWithMarker, oMenu.GetCurrentContext);

      if (oMenu.Run)
        PutCommand(oMenu.ResultCommand);

      if (oMenu.IsRunMenuFun)
        ReReadRecord(tnKatSopr);

      UnBindEvent(BeforRunMenu, oMenu.BeforRunMenu);
      UnBindEvent(GetCurrentContextWithMarker, oMenu.GetCurrentContext);
    }

    #SpSopr:{
      oMenu.Load('L_SoprDoc::mnuSoprUslSpSopr1', 'L_SoprDoc::mnuSoprUslSpSopr1' + string(KatSopr.VidSopr));

      BindEvent(GetSpCurrentContext, oMenu.GetCurrentContext);

      if (oMenu.Run)
        PutCommand(oMenu.ResultCommand);

      if (oMenu.IsRunMenuFun)
        ReReadRecord(tnSpSopr);

      UnBindEvent(GetSpCurrentContext, oMenu.GetCurrentContext);
    }
  end;
}
Ищите в описаниях к патчам например
ERP-8082.
Что же касается динамических меню, то не раз сталкивался что вроде все норм, а меню не грузится. Приходится удалять все и добавлять снова. Все это хранится в x$resource с определенным типом - посмотрите по журналу когда будете добавлять.
Лучше уж через дополнительные пункты меню.
Ответить