Domino 9 und frühere Versionen > ND7: Entwicklung

Nur die 10 neuesten Dokumente anzeigen (Ansichten)

<< < (7/8) > >>

flaite:

--- Zitat von: C_T am 03.03.08 - 13:03:13 ---
Ich persöhnlich tendiere schon fast zu dem Agenten und Ordner den man dann auch evtl beim schließen eines DOkumentes nochmal anstoßen kann. Jedoch befürchte ich das das zu ganz gemeinen Performanceeinbußungen kommt.

--- Ende Zitat ---
Solange du es nicht ausprobierst, haben deine Aussagen "Performanceeinbußungen" keinen Wert. Das ist reine Spekulation.

botschi:
In den 4 Wochen hätte man sicherlich schon seine Erfahrungen sammeln können, statt immer über die Theorie zu reden  ;D
Und seine Erfahrungen kann man ja hier ggf. neu diskutieren.

Matthias

macchina:
Hi,

also ohne es getestet zu haben:

Man nehme: 1 Folder ("Last10Doks"), 1 View ("Modified"), 1 QuerySave-Event, eine Brise Script :-)

Im QuerySave (bzw. PostSave) des Dokuments die 10 Dokumente (bzw. alle Dokumente die im Ordner "Last10Doks" sind) aus dem Ordner rausgeben, anschliessend aus der View "Modified" die ersten 10 Dokumente holen u. in den Ordner geben.

Guten Appetit ;-)

LG
Ernstl

C_T:
Hi Leute

So hier die Praxis.
Ich habe den Agenten geschrieben und erstmal auf QueryClose gesetzt. Ich habe zurzeit 47 Dokumente in der Datenbank und er braucht shcon einen Momment bis er das DOkument endgültig schließt.

Anbei der Agent und das QueryClos Script...


Query Close:


--- Code: ---Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim agent As NotesAgent
Set db = session.CurrentDatabase
Set agent = db.GetAgent("Last10Doks")
Status= agent.RunOnServer

End Sub
--- Ende Code ---


Agent:


--- Code: ---Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim vc1 As NotesViewEntryCollection
Dim vc2 As NotesViewEntryCollection
Dim vce As NotesViewEntry



Set db = session.CurrentDatabase
Set view = db.GetView("aView")
Set vc1 = view.GetAllEntriesByKey("TEST")
Set Folder=db.Getview("Folder")

If Not Folder Is Nothing Then
If Folder.IsFolder Then
Set vc2 = Folder.allEntries
Call vc2.RemoveAllFromFolder( "Folder" )
Call vc1.PutAllInFolder("Folder")
End If
End If


End Sub
--- Ende Code ---


Vielen Dank schoinmal analle.

Ich würde mich freunen wenn jetzt die Kritik hagelt, damit ich das Schript noch verbessern kann.


Gruß Christian

ata:

--- Zitat ---Getthreadinfo(1)
--- Ende Zitat ---

... ist das was globales - ich sehe es nirgends deklariert?

Toni

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete