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_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