保存的文档序列号

Question

我在一个表单的querysave事件中使用下面的脚本。逻辑是，当我保存表单时，序列应该在视图中以两列显示。比如在一列中有"115-"和序列"00001"，"00002"，…在第二列。前两个文档被保存，没有任何问题。当我保存尝试保存第三个或更多文档时，它每次只显示"00002"。我不能确定错误是什么。有谁能帮帮忙吗?

Sub Querysave(Source As Notesuidocument, Continue As Variant)
    Dim SESS       As New NotesSession
    Dim w          As New NotesUIWorkspace
    Dim uidoc      As NotesUIdocument
    Dim Doc        As NotesDocument
    Dim RefView    As NotesView
    Dim DB         As NotesDatabase
    Dim RefDoc     As NotesDocument
    Set DB      =  SESS.CurrentDatabase
    Set uidoc   =  w.CurrentDocument
    Set Doc     =  uidoc.Document
    Set RefView =  DB.GetView("SystemAutoNo")
    Dim approvedcnt As Integer
    approvedcnt = Cint(source.fieldgettext("appcnt"))
    If uidoc.EditMode = True Then 
        Financial_Year =  Clng(Right$(Cstr(Year(Now)),3)) + 104
        If Month(Now) >= 4 Then Financial_Year = Financial_Year + 1
        DocKey     =  Cstr(Financial_Year)& "-"
        New_No      =  0
        Set RefDoc  =  RefView.GetDocumentByKey(DocKey , True)
    If Not(RefDoc Is Nothing) Then New_No = Clng(Right$(RefDoc.SETTLEMENT_NO(0),5))
        New_No      =  New_No + 1
        autono      =  DocKey & "-" & Right$("00000" & Cstr(New_No) ,5)
        Application ="ST"
        Latest_No = Application + autono
        Doc.SETTLEMENT_NO = Latest_No
        Doc.FinFlag="Finish"
    Call SESS.SetEnvironmentVar("ENV_ST_NO",Right$("00000" & Cstr(DefNo&) ,5))
        'Call uidoc.FieldSetText("SETTLEMENT_NO",Latest_No)
        Call uidoc.Refresh
        Else
        Exit Sub
    End If
    get_ex_rate
    get_cv_local

    Call uidoc.FieldSetText("Flag1", "A")
    If approvedcnt = 12 And uidoc.FieldGetText("STATUS") = "APPROVE" Then
        Call uidoc.fieldsettext("Flag2", "B")
    End If
    Dim answer2 As Integer
    answer2% = Msgbox("Do you want to save this document?", 1, "Save")
    If answer2 = 1 Then 
        Print "Saving"
    End If  
    If answer2 = 2 Then
        continue=False
        Exit Sub
    End If
    uidoc.Refresh
    uidoc.close
End Sub

Answer 1

我想象你对GetDocumentByKey的调用是得到错误的文档或不是顺序中的下一个。确保视图被正确排序，也许在调用GetDocumentByKey之前调用视图上的刷新方法。