文档自动生成文号

Function GetFileCode(strProfile As String ,YM As String) As String
 Dim s As New NotesSession
 Dim db As NotesDatabase
 Set db = s.CurrentDatabase
 Dim ProfileDoc As NotesDocument '配置表
 Set ProfileDoc = db.GetProfileDocument(strProfile)
 Dim filetype As String
 Dim strYM As String
 Dim strCode As String
 filetype = ProfileDoc.GetItemValue("fFileType")(0)'文件类型
 strYM = ProfileDoc.GetItemValue("fYM")(0)
 strCode = ProfileDoc.GetItemValue("fCode")(0)
 
 If strYM = "" Then
  strYM = YM
 End If
 
 If strCode = "" Then
  strCode = "0000"
 End If
 
 If strYM = YM Then
  strCode = Format((Cint(strCode)+1),"0000")
 Else
  strCode = "0001"
 End If
 Call ProfileDoc.ReplaceItemValue("fYM",strYM)
 Call ProfileDoc.ReplaceItemValue("fCode",strCode)
 Call ProfileDoc.Save(True,False) 
 GetFileCode = "("+filetype+")"+Right(strYM,4)+strCode
End Function