Question

有一段时间我们得到一个无法编辑的文件。当它发生时，{Truncated}显示在文档的Window Title中。是什么导致这个？我创建了一个代理来创建一个新文档，并使其成为任何子文档的父文档。这是我们编辑数据的唯一方法。任何想法都将不胜感激。

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

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： Sub 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

End Sub

Answer 1

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

Answer 2

我找到了问题的原因。拯救＆amp;退出按钮代码不按顺序。我复制了另一个Save＆amp;的代码。退出另一个评论表单的按钮，错误消失了。感谢建议和帮助。

MJ

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

2 个答案: