【发布时间】:2019-08-02 08:06:33
【问题描述】:
我的 Lotus Notes 中有一个保存按钮。我的保存按钮将在 lotusscript 中执行一些过程。我将解释与我的保存过程相关的文档。
现在我在主视图中有一个状态为“活动”的文档,我称之为“当前”文档。
- 首先,我为所有当前状态为“草稿”的文档创建副本,并将其称为“副本”文档。
- 其次,我为状态为“未完成”的所有副本文档创建“检查”文档,并使用“计算显示”的副本文档中的所有数据。因此,我的“副本”用于所有编辑,而“检查”仅是文档报告。这意味着,在复制文档中所做的更改,当点击保存时,报告也会更新为最新信息。
因此该过程将开始编辑副本文档并保存它。复制文档状态将从“草稿”变为“活动”,当前文档将从“活动”变为“非活动”。这意味着,复制文档将是新的当前文档。然后,检验报告状态将变为“完成”。
下面是我的lotusscript按钮代码:
Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
'//Set lookup view for current document
keys(0) = doc.PTagNo(0)
keys(1) = "Lock"
Set view = db.GetView("TagNo")
'//Set lookup view for "Inspection" document
pckeys(0) = doc.PTagNo(0)
pckeys(1) = doc.PBatchNo(0)
pckeys(2) = "Incomplete"
Set pcview = db.GetView("BatchPCInspection")
answer% = Messagebox("Save PC Inspection?", 4,"Confirmation")
If Not answer% = 6 Then
Exit Sub
Else
'//Make changes for "Inspection" document
Set comdoc = pcview.GetDocumentByKey(pckeys, True)
If Not comdoc Is Nothing Then
If comdoc.AStatus(0) = "Incomplete" Then
comdoc.DocId=doc.UniversalID
comdoc.ATagNo = doc.PTagNo
comdoc.ADept= doc.PDept
comdoc.AUserName= doc.PUserName
comdoc.AStatus="Complete"
Call comdoc.Save(True, False)
End If
End If
'//Make changes for current document become Inactive
Set activeDoc = view.GetDocumentByKey(keys, True)
If Not activeDoc Is Nothing Then
If activeDoc.PStatus(0) = "Lock" Then
activeDoc.DocumetId = doc.UniversalID
activeDoc.PStatus = "Inactive"
Call activeDoc.Save(True, False)
End If
End If
'//Make changes for "Copy" document become Active
Call uidoc.FieldSetText("PStatus" , "Active")
Call uidoc.FieldSetText("SaveOptions" , "1")
Call uidoc.Save
Call uidoc.Close
End If
End Sub
所以我现在的问题是,如何将这个 lotusscript 代码转换为 javascript 代码?因为 lotusscript 不会在网络浏览器中运行,所以我肯定需要将其转换为 javascript。任何人都知道有关如何将此 lotusscript 按钮转换为 javascript 按钮的任何文档或方法。任何帮助将不胜感激!
【问题讨论】:
标签: javascript lotus-notes lotusscript