Создайте два варианта сохранения после редактирования

Question

Я хочу создать две кнопки опции сохранения.У меня есть опция отслеживания версий с сохранением вручную.Я создал одну опцию сохранения, где она будет сохраняться без добавления версии.Итак, для добавления версии мне нужно нажать «Файл> Сохранить как новую версию».

Для ручного сохранения есть опция, в которой мне нужно нажать «Сохранить как новую версию».

Итак, яхочу добавить еще одну кнопку сохранения, где, когда пользователи нажимают на нее, она будет сохранена как новая версия.Поэтому мне не нужно нажимать «Файл> Сохранить как новую версию».

Ниже приведено мое сохранение без сохранения в новой версии.

Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim workspace As New NotesUIWorkspace
    Dim db As NotesDatabase
    Dim uidoc As NotesUIDocument
    Dim doc As NotesDocument

    Set uidoc = workspace.CurrentDocument
    Set db = session.CurrentDatabase
    vpswd = Inputbox$("Pls input code to save :")

    If vpswd = "o" Then

        uidoc.EditMode = True
'       Call uidoc.FieldSetText("ALStatus" , "Draft")
        Call uidoc.FieldSetText("SaveOptions" , "1")
        Call uidoc.Save
'       uidoc.EditMode = False
        Call uidoc.Close
    End If
End Sub

Как добиться создания LotusScript для «Сохранить как новую версию»?

Answer 1

Класс NotesUIDocument имеет метод SaveNewVersion, поэтому вы должны иметь возможность скопировать код из существующей кнопки, а затем просто изменить эту строку в копии:

 Call uidoc.Save

к этому:

 Call uidoc.SaveNewVersion

Мне потребовалось около 5 минут, чтобы разобраться с этой справкой, включенной в клиент Notes. Вы должны были сделать то же самое.