为什么在文档的 Window 标题中显示 {Truncated}？

Question

偶尔我们会得到一个无法编辑的文档。发生这种情况时，{Truncated} 会显示在文档的 Window 标题中。是什么原因造成的？我创建了一个代理来创建一个新文档并使其成为任何 child 文档的 parent。这是我们编辑数据的唯一方法。如有任何想法，我们将不胜感激。

2017 年 6 月 15 日更新：下面是添加评论的代码。此代码在应用程序中多次使用。我似乎是第一次执行代码时发生的。该代码位于共享操作调用的脚本库中。

Sub Reviewer_DR_Create_Comment
    On Error GoTo processError
    Dim session As New NotesSession , db As NotesDatabase , doc As NotesDocument
    Dim workspace As New NotesUIWorkspace , uidoc As NotesUIDocument

        Set db = session.CurrentDatabase
    Set doc = db.CreateDocument
    Set uidoc = workspace.CurrentDocument

    Call doc.MakeResponse( uidoc.document )

    doc.ProcedureWriter = uidoc.document.ProcedureWriter
    doc.ManualNumber = uidoc.document.ManualNumber
    doc.ProcedureNumber = uidoc.document.ProcedureNumber
    doc.ProjectedRevNumber = uidoc.document.ProjectedRevNumber
    doc.DraftLetter = uidoc.document.DraftLetter
    doc.Facility = uidoc.document.Facility
    doc.PCRNumber= uidoc.document.PCRNumber
    If Right(uidoc.document.action(0),11) = "Concurrence"  Then  doc.Concurrence="Yes" 
    If uidoc.EditMode Then Call uidoc.Document.Save(True, False)
    Call uidoc.close(True)
    Call Refresh_PR_Views
    doc.form = "(Comments - Draft Procedure)"
    Set uidoc = workspace.EditDocument( True , doc)

    Exit Sub
    processError:
    MessageBox LogError()       ' Put up message and send to error database
    Exit Sub    
End Sub

来电Refresh_PR_Views：子Refresh_PR_Views 出错 GoTo ErrorHandler

    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim ws As New NotesUIWorkspace
    Dim uid As NotesUIDocument
    Dim doc As NotesDocument
    Dim errmsg As String
    Dim v As NotesView
    Dim v1 As NotesView
    Dim v2 As NotesView
    Dim v3 As NotesView
    Dim v4 As NotesView
    Dim v5 As NotesView
    Dim v6 As NotesView

    Set db=s.CurrentDatabase
    Set v=db.Getview("Procedure Review - Doc Number")
    Set v1=db.Getview("Procedure Review - Driver/Sub-Driver")
    Set v2=db.Getview("Procedure Review")
    Set v3=db.Getview("Procedure Review - By Priority")
    Set v4=db.Getview("Procedure Review - Status")
    Set v5=db.Getview("Procedure Review - By Title")
    Set v6=db.Getview("Procedure Review - Sub Driver/Driver")

    Call v.Refresh()
    Call v1.Refresh()
    Call v2.Refresh()
    Call v3.Refresh()
    Call v4.Refresh()
    Call v5.Refresh()
    Call v6.Refresh()
    Call ws.Viewrefresh()

NormalExit:
    Exit Sub
ErrorHandler:
errmsg="APS Utilities SCRIPT LIBRARY: Refresh_PR_Views ROUTINE: Got error # " & CStr(Err) & " - "  & Error$ & " on line " & CStr(Erl)
    If s.IsOnServer Then
            Print errmsg
    Else
        MessageBox errmsg
    End If
    Resume NormalExit
End Sub

填写评论表单后，他们单击“保存并退出”按钮。该代码在这里：

Sub Click(Source As Button)
    'Print "Starting"
Dim Session As New NotesSession 
Dim db As NotesDatabase 
Dim doc As NotesDocument 
Dim NewDoc As NotesDocument
Dim ws As New NotesUIWorkspace
Dim Parent As NotesDocument
Dim xuidoc As Variant

    Set db = session.CurrentDatabase
    Set uidoc = ws.CurrentDocument
    Set doc = uidoc.document
    Set parent = db.GetDocumentByUNID ( Doc.ParentDocumentUNID )
    Set xuidoc = ws.CurrentDocument

If uidoc.EditMode Then Call uidoc.save
Call uidoc.Close
'Refresh Parent
Call ws.EditDocument( True , Parent , , ,  ,False)
Call ws.ReloadWindow
Call xuidoc.RefreshHideFormulas

结束子

Answer 1

这可能是有人设置 replication space-saver options 将复制器同步的数据量限制为仅摘要项目加上 40k 富文本的结果。如果文档以这种方式下降到本地副本，它通常永远不会以截断的形式复制回来，但有一些方法（例如，将截断的注释剪切并粘贴为新文档）可能会发生这种情况。

Answer 2

我找到了问题的原因。保存并退出按钮代码顺序错误。我从另一个 Comment 表单的其他 Save & Exit 按钮复制了代码，错误消失了。感谢建议和帮助。

兆焦耳

为什么在文档的 Window 标题中显示 {Truncated}？

Why is {Truncated} displayed in the Window Title of a document?

lotus-notes

lotus

lotusscript

lotus-domino