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

Тема в разделе "Lotus - Программирование", создана пользователем Liquid, 8 фев 2013.

  1. Liquid

    Liquid Гость

    Здравствуйте.
    Имеется 2 формы, одна служит для заполнения заявки(Work), другая - шаблон для карточек исполнителей(Principal).
    В форме Work имеется кнопка, которая позволяет переназначить задачу другому исполнителю. Данную кнопку должны использовать только определенные пользователи, для всех остальных, она должна выдавать сообщение "У вас нет прав на выполнение операции".
    В форме Principal находится поле, которое и определяет, есть права у пользователя на её использование или нет.
    Возник вопрос, можно ли сравнить значение разрешающего поля (с нулём) в одной форме, по нажатию кнопки в другой?
    Код кнопки:
    Код (LotusScript):
    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
     
  2. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.083
    Симпатии:
    300
    ничего особенного в задаче не вижу, за исключением непонятных наворотов во взаимодействии...
    причем здесь сравнение в форме - непонятно
    логика - получить значения поля дока и сделать "в коде" вывод о дальнейших действиях
     
Загрузка...

Поделиться этой страницей