验证 Richtext 字段中的附件

Question

我使用下面的代码来验证 Richtext 字段中的附件。

如果我不会使用 Call source.Refresh(True) 那么验证不起作用，但是每次在按钮中调用 querysave 时，此代码也会刷新文档。

那么是否有任何选项或任何其他想法，以便我不应该使用此刷新部分或整个代码来验证。

如果有人有更有效的代码，请分享。

If Source.Document.YesNo20(0)="Yes" Then
    Call source.Refresh(True)
    Dim rtitem As NotesRichTextItem
    Set rtitem = source.Document.GetFirstItem( "Atchmnt20" ) 
    NotesEmbeddedObjectArray = rtitem.EmbeddedObjects
    If Isempty ( NotesEmbeddedObjectArray ) Then 
        Messagebox "Please enter an attachment in 20a. As you selected option Yes"
        continue=False
        Exit Sub
    End If 
End If

Answer 1

LotusScript 中有一种方法可以检查附件是否存在，甚至对于新的（未保存的）文档也是如此。

创建一个隐藏的计算字段，例如 AttachmentNames，其公式为：

@If(@AttachmentNames!=""; "1"; "");

在 LotusScript 中执行以下操作：

'in new documents Form field may be empty
If doc.Form(0) = "" then    
    doc.Form = "YourFormAlias"    
End If

'computing doc contents with the form
call doc.ComputeWithForm(false, false)

If doc.AttachmentNames(0) = "" then    
 MsgBox "Please attach a file",,"Attention"
 Continue = False 'if you are running this code in QuerySave
 Exit Sub
End If

Answer 2

验证 Lotus Notes 中的富文本字段有点像黑暗艺术，但您能不这样做吗？ （其中 doc 是后端）：

If(doc.HasEmbedded) Then Continue = True

您还可以做其他事情。查看这篇 Lotus Developer Domain 帖子，其中涵盖附件、文本、嵌入对象等各种内容：

http://www-10.lotus.com/ldd/nd6forum.nsf/0/8b3df10667d355768525719a00549058

Answer 3

你能用公式验证 RT 字段吗？

我使用以下输入验证公式在富文本字段下方创建了一个隐藏字段：

REM {Validate just when saving};
@If(!@IsDocBeingSaved; @Return(@Success); "");

REM {Should contain some file};
_filenames := @AttachmentNames;
@If(
    @Elements(_filenames)=0;
    @Return(@Failure("You should attach at least one file"));
    @Success);

Answer 4

假设您想避免刷新，因为它花费的时间太长，以下是您可能想要查看的内容，如果可行，请尝试更改：

1. 也许您可以将 RichText 字段的“Entering”事件与全局变量结合使用（在表单中）如果根本没有触及 RichText 字段，则跳过代码中的刷新。
2. 是否存在启用了可以安全禁用的“文档刷新时的刷新选择”选项的关键字字段？或者甚至放置一个按钮，打开一个对话框并使用所选关键字填充字段 - 那么就不需要刷新选择，因为您始终可以通过 @DbColumn/@DbLookup 呈现最新的选择或 NotesUIWorkspace.PickListStrings。
3. “Queryrecalc”和/或“Postrecalc”表单事件中是否有任何可以优化的代码（LotusScript 或公式）？例如，通过使用全局变量（在表单中）作为是否执行 Queryrecalc/Postrecalc 中的代码的标志 - 在代码中调用 Refresh 之前将其设置为 false，然后将其设置回 true（因为此 Refresh 仅用于将 RichText 字段更新到后端文档）。