Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_Long_GetAndDec
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_GetAndDec(doc, "meinfeld")
Print CNCL_Long_GetAndDec(doc, "meinfeld")
Print CNCL_Long_GetAndDec(doc, "meinfeld")
Print CNCL_Long_GetAndDec(doc, "meinfeld")
Print doc.meinfeld(0)
Ausgabe:
4
4
3
2
1
0