Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_Long_DecAndGet
Holt den numerischen Wert eines Feldes in einem Dokument dekremtiert diesen Wert und speichert das Dokument. Der dekrementierte 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_DecAndGet(doc, "meinfeld")
Print CNCL_Long_DecAndGet(doc, "meinfeld")
Print CNCL_Long_DecAndGet(doc, "meinfeld")
Print CNCL_Long_DecAndGet(doc, "meinfeld")
Print doc.meinfeld(0)
Ausgabe:
4
3
2
1
0
0