以下是一个使用LotusScript按钮保存副本文档并更改副本文档和原始文档的状态字段的示例解决方案:
首先,创建一个按钮并将其添加到您要保存副本的文档表单上。
在按钮的Click事件中添加以下LotusScript代码:
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim replicaID As String
Dim replicaDoc As NotesDocument
Dim statusField As NotesItem
Set db = session.CurrentDatabase
Set doc = source.Document
' 获取副本文档的复制ID
replicaID = doc.GetItemValue("ReplicaID")(0)
' 在副本数据库中查找副本文档
Set replicaDoc = db.LookupReplicaID("", replicaID)
If Not replicaDoc Is Nothing Then
' 设置副本文档的状态字段
Set statusField = replicaDoc.GetFirstItem("Status")
statusField.Values = "New Status" ' 更改状态字段的值
' 保存副本文档
Call replicaDoc.Save(True, False)
' 设置原始文档的状态字段
Set statusField = doc.GetFirstItem("Status")
statusField.Values = "New Status" ' 更改状态字段的值
' 保存原始文档
Call doc.Save(True, False)
MsgBox "副本文档和原始文档的状态字段已更改并保存。"
Else
MsgBox "找不到副本文档。"
End If
End Sub
将"New Status"替换为您想要设置的新状态字段的值。
确保在代码中正确引用了Lotus Notes的对象库。
保存并关闭表单。
现在,当您单击该按钮时,它将在副本数据库中查找副本文档,并将副本文档和原始文档的状态字段更改为新的状态。
下一篇:保存附件 IMAP 和 PHP