• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

  • Автор темы 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 927
608
BIT
150
ничего особенного в задаче не вижу, за исключением непонятных наворотов во взаимодействии...
причем здесь сравнение в форме - непонятно
логика - получить значения поля дока и сделать "в коде" вывод о дальнейших действиях
 
Мы в соцсетях:

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