按年份和将增加+1的数字创建序列号

Question

我想 edit/modify 我的字段基于年份然后是序列号。

字段：年份 - 00#

比如今年创建了一个文件，2020年。所以，我想要一个按数字计算并且会增加+1 的文件。归档将是：2020-001，然后是 2020-002 等等。

之前，我从某人那里得到了一些代码来生成序列号。

Sub Querysave(Source As Notesuidocument, Continue As Variant)
'get total no of documents from the view
'if no documents then seq start with 1
Dim docCount
Dim viewCollection As NotesViewEntryCollection
Dim viewEntry As NotesViewEntry
Dim vNum As Long

If source.IsNewDoc Then
    Set viewCollection = view.AllEntries
    docCount = viewCollection.count
    If doccount = 0 Then
        doccount=1
        Call source.FieldSetText("ReqNo","REQ" & Cstr(Format(docCount,"00000#")))   
    Else
        Set viewEntry = viewCollection.GetLastEntry
        Call source.FieldSetText("ReqNo","REQ" &Cstr(Format(doccount+1,"00000#")))  
    End If
    
End If  
End Sub

根据该代码，我如何将上面的“REQ”编辑为创建年份？

非常感谢您的帮助。

Answer 1

您将当前年份作为字符串

CStr(Year(Now))

用它替换“REQ”。

按年份和将增加+1的数字创建序列号

Create Sequence Number by year and number that will increase +1

lotus-domino

lotusscript

lotus