Domino 9 und frühere Versionen > Entwicklung

fortlaufende Nummer

(1/1)

Grabby:
Hallo zusammen.

Gibt es eine einfache und schnelle Lösung, in einem Dokument eine fortlaufende Nummer zu setzen.
Erstelle ich ein Dokument, so sollte in einem Feld automatisch diese Nummer gesetzt werden.  ???

Grabby

Axel:
Hi,

parat habe ich eine solche Lösung nicht. Ich versuch mal aus dem Kopf.

Als erstes brauchst du eine Ansicht, die in der ersten Spalte die Nummer, aufsteigend sortiert, enthält. Als Name der Ansicht lautet z.B. NummerLookup

Sub Postopen(Source As Notesuidocument)

Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument

If Source.IsNewDoc Then  'Nummer nur setzen wenn neues Dokument
 Set db = session.CurrentDatabase  'Aktuelle Datenbank
 Set view = db.GetView("NummerLookup")  'ZUgriff auf Ansicht zum Nachschlagen

 Set doc = view.GetLastdocument 'Zugriff auf letztes Dokument der Ansicht

 If doc Is Nothing Then 'Prüfen ob es überhaupt ein Dok. gibt
   'wenn nein wird mit 1 begonnen
   Source.Document.LfdNummer = 1
 Else
   'wenn ja, Nummer aus Dok auslesen und um 1 erhöhen
   Source.Document.LfdNummer = doc.LfdNummer(0) + 1
 End If
End If

End Sub

Ich habe angenommen, dass das Feld für die Nummer LfdNummer heißt und ein nummerisches Feld ist. Notfals musst du das anpassen.

Probiers mal aus, ob's geht.

Axel

manuel:
Hallo

Über fortlaufende Nummern haben wir schon so viele Postings in diesem Forum. Nächstes mal suche bitte vorher, dafür gibts auch diesen netten Button in der oberen Leiste http://217.160.137.156/html/cgi-bin/yabb/YaBB.pl?board=002-2;action=search


Ich hab mal ein bisschen was rausgesucht:

http://217.160.137.156/html/cgi-bin/yabb/YaBB.pl?board=002-2;action=display;num=1029401701;start=3

http://217.160.137.156/html/cgi-bin/yabb/YaBB.pl?board=002-1;action=display;num=1023787079;start=2

http://217.160.137.156/html/cgi-bin/yabb/YaBB.pl?board=002-2;action=display;num=1023532084;start=14

http://217.160.137.156/html/cgi-bin/yabb/YaBB.pl?board=002-2;action=display;num=1026900830;start=5


Schönen Tag noch
Manuel

Grabby:
Vielen Dank für Eure Tips!!

@Manuel
Vielen Dank für Deinen netten Hinweis! Bei mir war die Recherche leider nicht so erfolgreich, vielleicht lags' an dem Alter der Dokumente, welches ich eingetragen habe!

Hoffe, man verzeiht mir noch einmal.

Grabby

manuel:
war doch nicht böse gemeint

Navigation

[0] Themen-Index