Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_Long_GetAndInc
Holt den numerischen Wert eines Feldes in einem Dokument und gibt dieses als Long-Wert zurück. Nach dem Holen des Wertes wird der Wert im Dokument dekrementiert und das Dokument wieder gespeichert.
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_GetAndInc(doc, "meinfeld")
Print CNCL_Long_GetAndInc(doc, "meinfeld")
Print CNCL_Long_GetAndInc(doc, "meinfeld")
Print CNCL_Long_GetAndInc(doc, "meinfeld")
Print doc.meinfeld(0)
Ausgabe:
4
4
5
6
7
8