Mach dir ein Berechnetes Feld in die Maske mit dem LS Code:
Dim session as New notessession
Dim db as notesdatabase
Dim uiws as notesuiworkspace
dim uidoc as notesuidocument
Dim view as notesview
Dim doc as notesdocument
Dim i as integer
Set uidoc=uiws.currentdocument
Set db=session.currentdatabase
Set view=db.getview("Ansichtsname")
Set doc = view.getfirstdocument
do until doc is nothing
set doc=view.getnextdocument(doc)
loop
i = doc.getitemvalue("Feld")
call uidoc.fieldsettext("Feld", i +1)
In der Anischt musst du dann nach "Feld" Sortieren. Wird allerdings das letzte dokument gelöscht, wird diese Nummer wieder vergeben. Wird ein anderes gelöscht wird die nummer nicht mehr verwendet.
Ich habs zwar jetzt nicht getestet, aber müsste hinhaun.