为什么文档的窗口标题中会显示{Truncated}？

Question

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

17年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

在Error GoTo ErrorHandler上调用Refresh_PR_Views: Sub Refresh_PR_Views

    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

填写备注表单后，他们单击Save & Exit按钮。代码如下：

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

结束子对象