• Откуда: г. Чебоксары
  • На форуме с 7 апреля 2011
  • Сообщений: 117

Тема: Данные о пользователе

Здравствуйте.
Перед выполнением макроса необходимо получить данные о праве пользователя на ведение номенклатурного справочника "Детали". Как в тексте макроса осуществить такую проверку? Как вообще получить доступ к перечню прав пользователя в модуле "Администратор"?

Ответ от Олег Зырянов (изменено: , 29 марта 2016 10:58:56)

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: Данные о пользователе

Здравствуйте. Никак.


Обычно в начале макроса проверяется членство пользователя в какой-либо рабочей группе. А уже админ должен правильно настроить права доступа.

Но кончено можно использовать и другие процедуры.

Конкретно по классам используйте данный интерфейс https://help.technologics.ru/7.0/TCSAPI … lasses.htm


https://help.technologics.ru/7.0/TCSAPI … hts_13.htm

Спасибо сказали: Шишкина Наталия1

  • Откуда: г. Чебоксары
  • На форуме с 7 апреля 2011
  • Сообщений: 117

Re: Данные о пользователе

Как я поняла, если курсор находится в номенклатурном справочнике "Детали", и пользователь может этот справочник редактировать, то строка:

CR = TCSActiveModule.ClassRights

должна выдать значение = 1?

Прошу прощения, если вопрос покажется Вам глупым, программировать начала недавно.

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: Данные о пользователе

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

  • Откуда: г. Чебоксары
  • На форуме с 7 апреля 2011
  • Сообщений: 117

Re: Данные о пользователе

Можно пример использования ClassRights ?

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: Данные о пользователе

Sub Test123
  TCSApp.NmkClasses.ClassRights = 2
  i = TCSApp.NmkClasses.ShowModal( "Справочники котороые можно редактировать!" )
  TCSApp.NmkClasses.ClassView = 2
  i = TCSApp.NmkClasses.ShowModal( "Справочники котороые можно редактировать и использовать в ТП!" )
  TCSApp.NmkClasses.ClassType = CSDN_Const.ctOborud
  i = TCSApp.NmkClasses.ShowModal( "Справочники оборудования котороые можно редактировать и использовать в ТП!" )
  'Удалим модуль или очистим фльтры чтобы другие приложения не нарвались на установленнй фильр
  TCSApp.NmkClasses.UserModuleName = TCSApp.NmkClasses.UniqueUserModuleName
  TCSApp.DeleteModuleByUserModuleName( TCSApp.NmkClasses.UserModuleName )
End Sub
Спасибо сказали: Шишкина Наталия1

  • Откуда: г. Чебоксары
  • На форуме с 7 апреля 2011
  • Сообщений: 117

Re: Данные о пользователе

Задача решена при помощи AllowInsert.

Ответ от Олег Зырянов (изменено: , 30 марта 2016 08:23:53)

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: Данные о пользователе

Да AllowInsert в общем случае показывает можно ли добавить запись в данный модуль.

Не забывайте так же про SaveChangesEx и обработку ошибок https://forum.technologics.ru/post7829.html#p7829

Спасибо сказали: Шишкина Наталия1