Domino 9 und frühere Versionen > ND8: Entwicklung

Weiterzählen selbst wenn Dokument gelöscht wurde

(1/5) > >>

ThomasHB:
Hallo Zusammen,

wie müsste man vorgehen, wenn man einen Counter trotzdem hochzählen lassen will, selbst wenn Dokumente gelöscht wurden?

Erstellt man dazu jeweils eine Art Zähldokument, auf den sich der Counter berufen kann?
Also Beispielsweise, ein Dokument wird erstellt und im QueryClose wird ein count Dokument erzeugt... Oder wie geht man vor?

LG,
Thomas

koehlerbv:
http://atnotes.de/index.php/topic,16270.0.html
und
http://www.google.de/search?q=%22fortlaufende+nummer%22+site%3Aatnotes.de&hl=de&biw=1280&bih=892&num=10&lr=&ft=i&cr=&safe=images

ThomasHB:
...danke dafür, also irgendwie keine so wirklich tolle Idee.

OK, vielleicht überlege ich mir auch was anderes, mal sehen.
Ist ja nur zum probieren hauptsächlich.  :)

Ich habe mal im Designer Help nach geschaut aber die Info auf die folgende Frage entweder nicht gesehen oder steht nicht drin.

Habe ich im Event QueryOpen des Forms eigentlich schon Zugriff auf die Felder des Forms?
Ich habe irgendwie, bei dem was ich probiert habe so das Gefühl, als wären die erst im PostOpen Programmtechnisch nutzbar.  :)

koehlerbv:
Bei neuen Dokumenten: Nein. Worauf auch.
Bei bereits gespeicherten Dokumenten: Ja.

Bernhard

ThomasHB:
Hallo Bernhard,

danke für die Antwort.  :)

Komisch dann komme ich aber trotzdem nicht weiter und kenne den Grund nicht.

Folgender Code soll im PostOpen (die Felder kann ich mit dem Debugger sehen, zwar leer aber sie sind da) das Feld n_exist_call_number befüllen. Das Feld n_exist_call_number ist ein Computed Feld und als Number vom Typ.
Und trotzdem wird am Ende, bei AppendItemValue, das Item nicht gefüllt.

Ist mein Code falsch oder was mache ich falsch?


--- Code: --- Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim v As NotesView
Dim item As NotesItem
Dim number_call As Integer

Set db = s.CurrentDatabase
Set v = db.GetView("($exist_Call_Nr)")

If v.EntryCount <> 0 Then
Set doc = v.GetLastDocument
Set item = doc.GetFirstItem("n_exist_call_number")
number_call = Cint(item.Text)

Call Source.Document.AppendItemValue("n_exist_call_number", number_call)
Else
number_call = 1
Call Source.Document.AppendItemValue("n_exist_call_number", number_call)
End If
--- Ende Code ---

Navigation

[0] Themen-Index

[#] Nächste Seite