Отключить редактирование с помощью querymodechange и сортировать по статусу поля формы

Question

Я создал параметр имени глобальной переменной. Я создаю этот параметр, чтобы отключить режим редактирования. У меня есть поле статуса, различающееся по «Активному», «Неактивному» и «Черновому».

Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
    Dim session As New NotesSession     
    Dim db As NotesDatabase
    Dim doc  As NotesDocument
    Dim view As NotesView
    Continue = False

    Set db = session.CurrentDatabase
    Set view = db.GetView("(Parameter)")    

    Set doc = view.GetDocumentByKey("UnderInspection", True)
    If doc Is Nothing Then
        Msgbox "Parameter not found"
        Exit Sub
    End If

    If doc.PValue(0)="1" Then
        Msgbox "Under Inspection! "
        Exit Sub
    End If
    Continue = True
End Sub

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

У меня вопрос, как я могу установить querymodechange для полей статуса с именами «Active» и «Inactive»? Например, если документ имеет статус «Активный» или «Неактивный», он будет использовать этот запрос для изменения режима, поскольку отключит режим редактирования. Но для статуса «Черновик» вы можете редактировать. Любая помощь будет оценена. Спасибо!

Answer 1

If source.Document.GetItemValue("Status")(0)<>"Draft" Then
     ...
     Exit Sub
End If