Dokument in eingebetteter Ansicht auswählen

[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

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"

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

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).

[DannyCrown]

1. This will ONLY work when running on a local Notes client, while the
client is open. If you try to run it on your server, you may crash it.

mh und vll. ist das mein Problem. Habe es so gemacht, wie du gesagt hast Johnson aber dann kommt eine Fehlermeldung und Notes schmiert komplett ab. ALso ich arbeite auf einem Server. Aber trotzdem vielen Dank für eure Vorschläge

[Johnson]

Ok.

Wo hattest du eigentlich dein ursprüngliches Script drin? Button in der eingebetteten Ansicht oder in der Maske? Oder ist das Script in einem Agenten?

[DannyCrown]

das ist ein Button, der oben in der Maske drin ist, in der auch die eingebetteten Ansichten drin sind

[Axel]

Was du vorhast funktioniert so nicht. Beim klick auf eine Maskenaktion verliert die eingebettette Ansicht den Fokus und damit laufen die entsprechenden Befehle ins Leere.

Es gibt einen Trick um auf ein markiertes Dokument in der eingebetteten Ansicht zuzugreifen.
Guckst du hier: Auf auswahl in embedded Views zugreifen... 

Ansonsten hast du nur eine Chance über eine Ansichtenaktion in der eingebetteten Ansicht.


Axel

[DannyCrown]

danke Axel, aber ich glaube ich werde das einfach anders umsetzten ohne eingebettete Ansichten. Ist zwar nicht so schön, aber dafür funktionierts dann 

nochmals vielen Dank an alle, die mir geholfen haben.

MfG Daniel