Wir verwenden Cookies auf dieser Website.

Cookies sind kleine Textdateien, die von Websites auf Ihrem Computer gespeichert werden. Cookies sind weit verbreitet und helfen Seiten optimiert darzustellen und zu verbessern. Durch die Nutzung unserer Seiten erklären Sie sich damit einverstanden. mehr ...
OK

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