• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

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

    Запись на курс до 25 апреля. Получить промодоступ ...

Проверка Значения Поля

  • Автор темы Liquid
  • Дата начала
L

Liquid

Здравствуйте.
Имеется 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
 

lmike

нет, пердело совершенство
Lotus Team
27.08.2008
7 941
609
BIT
215
ничего особенного в задаче не вижу, за исключением непонятных наворотов во взаимодействии...
причем здесь сравнение в форме - непонятно
логика - получить значения поля дока и сделать "в коде" вывод о дальнейших действиях
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!