выцепить документ под курсором

  • Автор темы Nealles
  • Дата начала
Статус
Закрыто для дальнейших ответов.
N

Nealles

Гость
#1
lotusScript.

есть переменная doc типа NotesDocument. в клиенте открыт view "sklad"

как мне узнать документ под курсором в этом view.
то есть мне надо переменной doc присвоить документ, стоящий под курсором.
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
2
36
Россия, Калуга
#2
Выдрал из хелпа:
This view action displays the Subject item from the current document in the current view.
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uiview As NotesUIView
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set uiview = ws.CurrentView
Set db = s.CurrentDatabase
Set doc = db.GetDocumentByID(uiview.CaretNoteID)
Messagebox doc.GetItemValue("Subject")(0),, _
"Current document is ..."
End Sub
 
Статус
Закрыто для дальнейших ответов.