Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_Long_IncAndGet
Holt den numerischen Wert eines Feldes in einem Dokument inkremtiert diesen Wert und speichert das Dokument. Der inkrementierte Wert wird als Long zurück gegeben.
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.Currentdatabase
Set doc = db.Createdocument()
doc.meinfeld = 4
Call doc.save(True, False)
Print doc.meinfeld(0)
Print CNCL_Long_IncAndGet(doc, "meinfeld")
Print CNCL_Long_IncAndGet(doc, "meinfeld")
Print CNCL_Long_IncAndGet(doc, "meinfeld")
Print CNCL_Long_IncAndGet(doc, "meinfeld")
Print doc.meinfeld(0)
Ausgabe:
4
5
6
7
8
8