Domino 9 und frühere Versionen > Entwicklung

O(+>--Zugriffszähler in LN R5

<< < (2/4) > >>

Raimund:
Hi,

habe etwas gefunden, was Dir vielleicht helfen wird:

Auf den ersten Blick sieht es gut aus.

http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/01f39a2450fb75ab852567de00712f06?OpenDocument&Highlight=0,counter


Gruß

Raimund

Bellerophon:
Hi Raimund!

:)Danke! :)

Werde es mal durchtesten und hier wieder Posten! ;)

C
Ya......

MiMueller:

--- Zitat von: Raimund am 16.09.02 - 07:19:14 ---
Textfeld, berechnet zur Anzeige.

profilename := "Document History Usage Count"+ @Text(@DocumentUniqueID);
timestamp := @Today;
count := @GetProfileField(profilename; "Count");
@If(@IsNewDoc | @IsDocBeingSaved;
@Do(@Set("count"; 0));
count=0;
@Do(@Set("count";1); @SetProfileField(profilename; "TimeStamp"; timestamp));
@Do(@Set("timestamp";@GetProfileField(profilename; "TimeStamp")); @Set("count"; count+1)));

@SetProfileField(profilename; "Count"; count);
"This Document has been accessed " + @Text(count) + " time(s) since " + @Text(timestamp; "D0T1S2")


--- Ende Zitat ---

Ok, dieser Zugriffszähler funktionert, aber wie zeige ich den Counterstand in einer Ansicht an ??

ata:
... ob das mit dem Profildokument eine so gute Idee ist - weiß nicht

Profildokumente verbleiben für die gesamte Sitzung im Cache - greifen mehrere Gleichzeitig zu kann es zu überschneidungen kommen...

... das Problem hatte ich, als ich über Profildokumente eine chronologische Nummernvergabe lösen wollte. Es kamj zu doppelten Nummern...

ata

klaussal:
... hi,
ich hab's mal so gelöst:

spielt sich "postopen" einer seite ab.
da braucht's nur noch ein doc mit der from "counter" und einem feld (auch name "counter") und einer ansicht (wie mag die wohl heissen ?).


--- Code: ---Sub Postopen(Source As Notesuidocument)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   Set db = session.CurrentDatabase
   Set view = db.GetView( "counter" )
   Set doc = view.GetDocumentByKey( "counter" )
   intzaehler = doc.zaehler(0)
   intzaehler = intzaehler + 1
   doc.zaehler = intzaehler
   Call doc.save (True, False)
End Sub

--- Ende Code ---

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete