Die laufende Nummer wird im Profildokument gespeichert.

Erstelle einfach eine Maske DBProfil in dem das Feld Nummer vorhanden ist.

In dem Hauptdokument spielst du das Script in QuerySave ein.

Sub Querysave(Source As Notesuidocument, Continue As Variant)
   Dim session As New Notessession
   Dim db As NotesDatabase
   Dim ws As New NotesUIWorkspace
   Dim doc As Notesdocument
   Dim uidoc As NotesUIDocument
   Dim test As Variant
   
   Set db = session.Currentdatabase
   Set uidoc = ws.CurrentDocument
   Set doc = uidoc.Document
   If Not doc.IsNewNote Then
      Exit Sub
   End If
   Set doc = db.GetProfileDocument( "DBProfil")
   test = doc.GetItemValue( "Nummer" )
   nummer = Val(test(0))
   nummer = nummer + 1
   doc.Nummer = Str( nummer )
   Call doc.save(True, True)
   Set uidoc = ws.CurrentDocument
   Call uidoc.FieldSetText( "E_Nummer", Str( nummer ) )
   
End Sub

... das script erzeugt ein so genanntes PROFIL-DOKUMENT.
am jahresende müsste dann ein agent laufen, der das feld xyz wieder auf 0 setzt. profil-dokumente kann man sich am besten mit notes-peak anschauen (das ist freeware; suche im forum bringt dir den link dazu).

Und was passiert wenn zwei user gleichzeitig ein doc erstellen dann hab ich aber zweimal die gleiche nummer!!
Ich hab schon etwas über documenten sperren gesehen?
Lasst sich das mit dem Profildoc auch realisieren?
robertpp

... na ja, man will anhand der Nummer die Identifizierung des Dokumentes ermöglichen ? ! ? ! ?... Sinn oder Unsinn ....

Es gab hier im Forum eine Lösung mit einer DB, die ich bereits selbst mal überarbeitet habe, damit sie auch tatsächlich läuft...

... ich geh mal auf die Suche...

ata

Hallo,

@ata
Das ganze wird ja wieder mit einem Profildokument gelöst
Die DB seqNumb.nsf ist von:
http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/5e0be790b7fb7b6f852569ba005078aa?OpenDocument&Highlight=0,sequential?OpenDocument&Highlight=0,sequential

Du hast mal gesagt wenn du ein Profildocument verwendest dann kann ein anderer user nicht drauf zu greifen weil er es blockiert!!
Stimmt das ?
robertpp

kann bei diesem bespiel der fehler auftreten wenn ein user ein doc erstellt und ein zweiter auch das es die nummer doppelt gibt?
Das Bespiel sieht auch ein wenig kompliziert aus was brauch ich da alles?

Ich probier es mal selber hinein zu bekommen in die DB wenn es nicht klappt werde ich mich nochmals melden
danke robertpp

Hallo,

gibt's schon was neues bzw. besseres zum Thema?

Per LotusScript oder Formula-Sprache?

Gruß
Leo

Ulrich hat Recht.

Die Alternative wäre (nicht ernst gemeint):
- Einsehen, dass heutige Software Systemintegration heisst.
- Den Kunden davon überzeugen, eine Mysql-DB zu installieren, von der Administration Warten zu lassen.
- Auf der MySql eine Tabelle mit einem Feld als auto_increment bigint primary key erstellen.
- bei der Erzeugung des Dokuments eine connection mit der Datenbank aufzunehmen (wie auch immer: ODBC, JDBC, vielleicht LEI oder DECS)
und in der MySql einen Insert machen. Mit einem direkt anschliessenden Query (oder einer speziellen Funktion (schlag jetzt Namen nicht nach, geht sowieso nur mit z.B. Java2) die heilige Zahl des letzten inserts ermitteln.  
Während des Postopen Events Erstellen von neuen Dokumenten Datenbankweit per Lock-Dokument unterbinden.
- Die heilige Zahl in das Feld schreiben.
- Falls eine Datenbankverbindung mit MysQl nicht möglich ist, Erstellen von neuen Dokumenten grundsätzlich verbieten.

eindeutige Nummer wie @Unique ist der Scheiß, der keiner braucht und sich merken kann (wird up und zu nur in nicht ausgereiften DB's verwendet)

Nun mal langsam Kollege, schau Dir mal die Links hier durch:
http://www.atnotes.de/index.php?board=27;action=display;threadid=16270

Damit hast Du alle Alternativen die es wohl gibt - zumindest wurden diese wohl ziemlich alle dort erwähnt.