1. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

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

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

  1. Liquid

    Liquid Гость

    Репутация:
    0
    Здравствуйте.
    Имеется 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
     
  2. lmike

    lmike нет, пердело совершенство
    Lotus team

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

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