Я хотел бы отредактировать/изменить свое поле на основе года, а затем порядкового номера.
Поле: Год - 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, как указано выше, чтобы он был годом создания?
Большое спасибо за Вашу помощь.
