在嵌入式视图中编写新文档并在 Lotus Notes 中设置字段值

Question

我有以下情况：

1. 面具 Person 具有嵌入视图，其中包含 Notes 形式的文档（关于此人的注释）。
2. 掩码 Person 有一个 Person_ID 字段。

我需要在嵌入式视图中执行以下操作：

1. 创建一个新的 Notes 文档。
2. 从嵌入视图的掩码中读取字段 Person_ID。
3. 将新创建文档中的值存储在 Notes_Refto 字段中。
4. 在编辑掩码中打开新文档。

最好的问候 罗伯特

Answer 1

将此按钮添加到表单 Person 中，而不是嵌入视图中。您可以将按钮放置在嵌入视图的正上方或下方。

让新文档从 Person 文档继承字段，例如 Person_ID 字段。

Answer 2

如果你想嵌入视图中的动作，你可以这样做：

在嵌入视图中创建操作。使用公式运行代理

@Command([RunAgent]; "(CreateNotes)")

代理应如下所示：

Dim personDoc As NotesDocument
Set personDoc = workspace.Currentdocument.Document

Dim notesDoc As New NotesDocument(app.CurrentDatabase)

Call notesDoc.Replaceitemvalue("Form", "Notes")
Call notesDoc.Replaceitemvalue("Person_ID", personDoc.ID(0))

Call workspace.Editdocument(True, notesDoc)