L
Liquid
Здравствуйте.
Имеется 2 формы, одна служит для заполнения заявки(Work), другая - шаблон для карточек исполнителей(Principal).
В форме Work имеется кнопка, которая позволяет переназначить задачу другому исполнителю. Данную кнопку должны использовать только определенные пользователи, для всех остальных, она должна выдавать сообщение "У вас нет прав на выполнение операции".
В форме Principal находится поле, которое и определяет, есть права у пользователя на её использование или нет.
Возник вопрос, можно ли сравнить значение разрешающего поля (с нулём) в одной форме, по нажатию кнопки в другой?
Код кнопки:
Имеется 2 формы, одна служит для заполнения заявки(Work), другая - шаблон для карточек исполнителей(Principal).
В форме Work имеется кнопка, которая позволяет переназначить задачу другому исполнителю. Данную кнопку должны использовать только определенные пользователи, для всех остальных, она должна выдавать сообщение "У вас нет прав на выполнение операции".
В форме Principal находится поле, которое и определяет, есть права у пользователя на её использование или нет.
Возник вопрос, можно ли сравнить значение разрешающего поля (с нулём) в одной форме, по нажатию кнопки в другой?
Код кнопки:
Код:
Dim db As notesdatabase
Dim mainCol As NotesDocumentCollection
Dim respCol As NotesDocumentCollection
Dim mainNote As notesdocument
Dim respNote As notesdocument
Dim doc As notesdocument
Dim uidoc As notesuidocument
Dim title As String
Dim prmpt As String
Dim w As New notesuiworkspace
Dim s As New notessession
Set db = s.CurrentDatabase
Set uidoc = w.CurrentDocument
Set doc = uidoc.Document
UserName = s.Usernamelist(1).Common
title = db.Title
prmpt = "Выберите тип события"
Set mainCol = w.PickListCollection(3, False, db.Server, db.FilePath, "event_view", title, prmpt)
If mainCol.Count = 0 Then Exit Sub
Set mainNote = mainCol.GetFirstDocument
Set respNote = w.CurrentDocument.Document
Call respNote.ReplaceItemValue("work_eventtype", mainNote.GetItemValue("Event_Type"))
Call respNote.ReplaceItemValue("Resend_list_Pers", mainNote.GetItemValue("AList_ListPers"))
Call respNote.ReplaceItemValue("Resend_list", mainNote.GetItemValue("Resend_list_Pers"))
Call w.ViewRefresh
Call uidoc.refresh
Dim notice As New NotesDocument (db)
Dim body As New NotesRichTextItem (notice, "Body")
'------------формируем список рассылки-------------
'-----------------------------------------------------------
'------------формируем список рассылки-------------
'------------формируем письмо------------------------
'----------------------------------------------------------
'-----------формируем письмо-------------------------
Call uidoc.Save
Call uidoc.Close