Domino 9 und frühere Versionen > ND6: Entwicklung

Dokument in eingebetteter Ansicht auswählen

(1/2) > >>

DannyCrown:
Hallo Leute,

hab schon viel hier im Forum gesucht, aber nichts wirklich gefunden. Habe eine Tabelle mit mehreren Reitern und in jedem Reiter eine Eingebettete Ansicht mit mehreren Dokumenten. Aber ich weiß nicht genau, wie ich an das markierte Element der aktuellen Ansicht herankomme. Wenn ich es mit UnprocessedDocuments versuche, dann gibt der irgendwie keins zurück.

Hier mal ein kleiner Auszug meines Scripts:


--- Code: ---      Dim uiws As New NotesUIWorkspace
Dim sess As New NotesSession
Dim db As NotesDatabase
Dim uidocDokument As NotesUIDocument
Dim docAktuellesDokument As NotesDocument
Dim dcSelektierteDokumente As NotesDocumentCollection
Dim varWert As Variant
Dim docTicket As NotesDocument

Set db = sess.CurrentDatabase
Set dcSelektierteDokumente = db.UnprocessedDocuments
Set docAktuellesDokument = dcSelektierteDokumente.GetFirstDocument

If dcSelektierteDokumente.count>0 Then

--- Ende Code ---

doch dcSelektierteDokumente.count gibt immer 0 zurück. Kann mir vll. jemand helfen?

Schonmal vielen Dank im voraus!

Daniel

Johnson:
Schau mal hier:
http://www.nsftools.com/tips/NotesTips.htm#selecteddocsclass

DannyCrown:
danke Johnson, aber das ist ziemlich kompliziert. Muss mir das erst noch ein paar mal durchlesen. Aber muss gestehen, dass ich auch nicht allzuviel Grundwissen in der NotesWelt habe.

DAU-in:
und hiermit?

Read-only. The documents that are currently selected in a view.
Defined in
NotesUIView
Data type
NotesDocumentCollection
Syntax
To get: Set notesDocumentCollection = notesUIView.Documents

Grüsse

Dau-in

Johnson:
Kein Problem.

Du erstellst eine neue ScriptLibrary und importierst über das Menu "File\Import" die Datei "SelectedDocsList.lss", die du dir zuvor runtergeladen hast und speicherst diese unter beispielsweise "SelectedDocsListClass".

In den Script, dass die ausgewählten Dokumente verarbeiten soll, gibst du unter "(Options)" mit dem Keyword
--- Code: ---Use "SelectedDocsListClass"
--- Ende Code ---
den Namen deiner (grad eben erstellten) ScriptLibrary an. gehst du so vor wie es im Beispiel gezeigt wird...


--- Code: --- 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("All docs")

Dim selected As New SelectedDocsList(view)
Print "Count = " & selected.Count

Set doc = selected.GetFirstDocument
Do Until (doc Is Nothing)
Print doc.NoteID & " was created on " & doc.Created
Set doc = selected.GetNextDocument(doc)
Loop
--- Ende Code ---

Wobei du hier im String "All docs" den Namen deiner Ansicht angeben musst. Die Objektvariable "selected", der das View-Objekt übergeben wurde, gibt dir dann die Dokument wie in einer NotesDocumentCollection zurück (s. Beispiel "selected.GetFirstDocument" für das erste Dokument und "selected.GetNextDocument(doc)" für die darauf folgenden Dokumente).

Navigation

[0] Themen-Index

[#] Nächste Seite