Копия документа сохранена, но оригинал не меняет статус при помощи lotusscript - PullRequest
Новая
       17

Копия документа сохранена, но оригинал не меняет статус при помощи lotusscript

0 голосов
/ 02 мая 2019

У меня есть два оригинальных документа и копия документа. Когда я сохраняю копию, оригинал также меняет статус.

Следите за моим другим вопросом Сохраните копию документа и измените поле статуса для документа копирования и оригинала с помощью кнопки lotusscript . Ниже мой код. 

Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim db As NotesDatabase 
    Dim workspace As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim doc As NotesDocument
    Dim activeDoc As NotesDocument
    Dim view As NotesView
    Dim keys(1) As String

    '// Set database and doc
    Set db = session.CurrentDatabase
    Set uidoc = workspace.CurrentDocument
    Set doc = uidoc.Document    

    keys(0) = doc.PTagNo(0)
    keys(1) = "Lock"
    Set view = db.GetView("Computer")
    vpswd = Inputbox$("Pls input code to save :")

    If vpswd = "o" Then

        Set activeDoc= view.GetDocumentByKey(keys, True)
        If Not activeDoc Is Nothing Then
            If activeDoc.PStatus(0) = "Lock" Then
                activeDoc.DocumetId = doc.UniversalID
                Call activeDoc.ReplaceItemValue("PStatus", "Inactive")
                Call activeDoc.Save(True, False)
            End If
        End If
        Call uidoc.FieldSetText("PStatus" , "Active")
        Call uidoc.FieldSetText("SaveOptions" , "1")
        Call uidoc.Save
        Call uidoc.Close
    Else
        Msgbox "Wrong Code"
        Exit Sub
    End If  
End Sub

Я уже установил переменную и успешно сохранен. Когда я сохраняю, Копировать документ сохраняется и меняет статус на Активный, но для Текущего документа, который в настоящее время имеет статус «Блокировка», статус «Неактивный» не изменился. Может кто-нибудь мне помочь? Есть ли какая-либо ошибка, которую я сделал внутри кодирования? Ваша помощь действительно ценится. Спасибо!

1 Ответ

0 голосов
/ 02 мая 2019

Я решил этот вопрос. Для моей проблемы я не устанавливаю TagNo как мой первый столбец. Поэтому мне нужно создать новый вид с двумя столбцами, который является TagNo и Status. Установить оба столбца в порядке возрастания.

...