Domino 9 und frühere Versionen > Entwicklung

ausgewähltes dokument in einer ansicht in den zugriff bekommen?

(1/3) > >>

OCS:
hallo,
hätte da mal ne frage:
wie kann ich in einer ansicht herausbekommen, welches dokument grade ausgewählt ist? hab mir nen agenten geschrieben, der aus dem aktuell ausgewählten (nicht offen, nur ausgewählt!) dokument zwei werte kopieren soll, daraus einen schlüssel einen schlüssel erstellt und in einer anderen datenbank nach diesem schlüssel (ausftragsnummer + position) suchen soll. ich bekomme aber egal welches dokument ich auswähle immer nur die schlüssel aus dem selben dokument! kann mir jemmand helfen?

hier der code:

Sub Initialize
   
   'Variablen zum Schlüssel auslesen
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim workspace As New NotesUIWorkspace
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim uiview As NotesUIView
   Dim aunritem As notesitem
   Dim posiitem As notesitem   
   Dim aunr As String
   Dim posi As String
   Dim key As String
   
   'Variablen um auf FridaAktiv zuzugreifen
   
   Dim db_fri As notesdatabase
   Dim view_fri As notesview   
   Dim collect_Fri As notesdocumentcollection
   Dim doc_fri As NotesDocument
   
   
   
   
   Set db = session.CurrentDatabase
   Set uiview = workspace.Currentview
   
   Set collection = db.AllDocuments
   Set doc = collection.GetFirstDocument
   
   Call uiview.SelectDocument(doc) ' Soll das aktuell ausgewählte Dokument in den Zugriff nehmen
   
   Set aunritem = doc.GetFirstItem( "KOAUNR" )
   Set posiitem = doc.GetFirstItem( "PSPOSI" )
   
   aunr = aunritem.text ' kopiert den Inhalt des items als string in aunr
   posi = posiitem.text ' kopiert den Inhalt des items als string in posi
   
   key = aunr + " " + posi ' erstellt eindeutigen schlüssel aus auftragsnummer + position
   
   
   
   '---------------------------------------------------------------------------------------------------------------------------------------
   ' Jetzt auf FridaAktiv zugreifen und passende Tätigkeitsberichte suchen                =
   '---------------------------------------------------------------------------------------------------------------------------------------
   
   
   
   Set db_Fri = session.Getdatabase("OCS02/OCS GmbH", "aktiv\fridaakt.nsf", False)
   Set view_Fri = db_Fri.getview ("ViewActionsZeiten")
   Set collect_Fri = view_Fri.GetAllDocumentsByKey(key, exact)
   
   Msgbox collect_fri.count
   
   
End Sub


würd mich über anregungen freuen!

björn

Driri:
Hallo,

also wenn Du nur ein Dokument markiert hast, dann kannst Du über die Property UnprocessedDocuments das markierte Doc wählen.

...
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
   
Set aunritem = doc.GetFirstItem( "KOAUNR" )
Set posiitem = doc.GetFirstItem( "PSPOSI" )
...

OCS:
dank dir! funktioniert!!! ;D

OCS:
edit:

jetz hab ich zwar meine dokumente im zugriff, aber wie bekomme ich die jetzt sichtbar gemacht? würde gerne die dokumente, die mit den schlüsselwörtern übereinstimmen entweder in einer temporären ansicht oder einer großen messagebox oder so anzeigen. habs mit ner  "PROMPT_OKCANCELLIST" und nem array versucht, der läuft aber immer über!

hat vieleicht nochmal jemmand zeit für mich?


gruß björn

Semeaphoros:
Folder machen und Move To Folder

Navigation

[0] Themen-Index

[#] Nächste Seite