If source.IsNewDoc Then source è il notesuidocument
Dim view As NotesView
Dim doc As NotesDocument
Dim Prog As integer
Set view=db.GetView("nomevista") \' vista contenente i documenti con form= a quello che stai salvando ordinata per il campo progressivo
Set doc=view.GetLastDocument()
If Not doc Is Nothing Then
Prog=doc.GetItemValue("Progressivo")(0)
Else
Prog=0
End If
source.document.Progressivo=Prog+1
end if
|