Получение списка групп для пользователя

@shyrshum4yk · Регистрация: 12.07.2009

Студворк — интернет-сервис помощи студентам

очу создать кнопку, вносящую в поле "Department" список групп в которых состоит пользователь.

[codebox]Sub Click(Source As Button)

Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.currentDocument
Dim doc As NotesDocument
Set doc = uidoc.Document
Set notesRegistration = New NotesRegistration
Dim nr As Variant
nr = notesRegistration.GroupList
Set doc.Department = nr

End Sub[/codebox]

В дебагере он показывает, что в свойствах NotesRegistration есть поле GroupList, но оно пустое (точнее несуществует). При попытке присвоить его значение в nr, nr остается пустым (несуществующим). А при присвоении doc.Department значения nr выдает Type mismatch.

Где я неправ?

Писал на основе примера из книги по программированию в Lotus R5

@wowo · 15.07.2009, 16:13

doc.Department = nr

@7hy · 16.07.2009, 10:48

Если для текущего, то @UserNamesList

@myskProstomysk · 16.07.2009, 10:50

shershun4ik , стесняюсь спросить.... а в контексте какого пользователя? и на сколько я понял notesRegistration.GroupList не дает знаний о текущем пользователе. Этот метод используется для внесения пользователя в определенную(определенные) группы перед регистрацией

@7hy · 16.07.2009, 10:52

NotesRegistration служит для регистрации пользователя

@K-Fyry · 16.07.2009, 11:17

Скачайте себе .Domino Framework.
http://www.openntf.org/Projects/pmt.nsf/1a...33;OpenDocument

Там в 99% случаев можно найти нужную функцию для себя. Либо переиспользовать 1 к 1, либо модифицировать под себя. Ну или на крайний случай подчерпнуть идею как что сделать.

@shyrshum4yk · 16.07.2009, 13:41

Спасибо всем, кто откликнулся проблема решена при помощи @UserNamesList

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@shyrshum4yk 0 / 0 / 0 Регистрация: 12.07.2009 Сообщений: 29

	Получение списка групп для пользователя 15.07.2009, 16:03. Показов 14474. Ответов 6 Метки нет (Все метки) очу создать кнопку, вносящую в поле "Department" список групп в которых состоит пользователь. [codebox]Sub Click(Source As Button) Dim ws As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = ws.currentDocument Dim doc As NotesDocument Set doc = uidoc.Document Set notesRegistration = New NotesRegistration Dim nr As Variant nr = notesRegistration.GroupList Set doc.Department = nr End Sub[/codebox] В дебагере он показывает, что в свойствах NotesRegistration есть поле GroupList, но оно пустое (точнее несуществует). При попытке присвоить его значение в nr, nr остается пустым (несуществующим). А при присвоении doc.Department значения nr выдает Type mismatch. Где я неправ? Писал на основе примера из книги по программированию в Lotus R5 0

@wowo 0 / 0 / 0 Регистрация: 03.02.2007 Сообщений: 821
	15.07.2009, 16:13
	doc.Department = nr 0

@7hy 0 / 0 / 0 Регистрация: 31.08.2007 Сообщений: 20
	16.07.2009, 10:48
	Если для текущего, то @UserNamesList 0

@myskProstomysk 0 / 0 / 0 Регистрация: 18.08.2008 Сообщений: 1,698
	16.07.2009, 10:50
	shershun4ik , стесняюсь спросить.... а в контексте какого пользователя? и на сколько я понял notesRegistration.GroupList не дает знаний о текущем пользователе. Этот метод используется для внесения пользователя в определенную(определенные) группы перед регистрацией 0

@7hy 0 / 0 / 0 Регистрация: 31.08.2007 Сообщений: 20
	16.07.2009, 10:52
	NotesRegistration служит для регистрации пользователя 0

@K-Fyry 0 / 0 / 0 Регистрация: 15.12.2006 Сообщений: 641
	16.07.2009, 11:17
	Скачайте себе .Domino Framework. http://www.openntf.org/Projects/pmt.nsf/1a...33;OpenDocument Там в 99% случаев можно найти нужную функцию для себя. Либо переиспользовать 1 к 1, либо модифицировать под себя. Ну или на крайний случай подчерпнуть идею как что сделать. 0

@shyrshum4yk 0 / 0 / 0 Регистрация: 12.07.2009 Сообщений: 29
	16.07.2009, 13:41
	Спасибо всем, кто откликнулся проблема решена при помощи @UserNamesList 0