View.getselecteddocument

Тема в разделе "Lotus - Программирование", создана пользователем -, 29 май 2008.

  1. Гость

    Очень, очень нужна команда как - view.GetSelectedDocument. Может кто знает, как выташить выделенные документы из View?
     
  2. Sandr

    Sandr Гость

    db.unprocesseddocuments :)
     
  3. Гость

    Да но жалко что потом у документа пусто значение ColumsValues :(
     
  4. Sandr

    Sandr Гость

    Денис Кириченко
    Вам энтри нужен или документ? Я чего-то не понимаю...

    Берете вышеуказанным методом получаете выделленные дкоументы. Потом из той вьюхи получаете коллекцию энтрисов. В колллекции энтрисов обрабатываете только те энтрисы, которые попали в коллекцию докуметов полученную способом db.unprocesseddocuments . Прямого метода получить выделеные энтрисы, вроде бы, нет.
     
  5. Гость

    Когда я беру документы из view:
    Код (Text):
       
    Set uiview = workspace.CurrentView
    Set view = uiview.View
    Set doc = view.GetFirstDocument
    Do While Not doc Is Nothing    
    Print # tmpdatafilenumber%, |<tr>|
    Forall c In doc.ColumnValues
    то у меня доступно значение колонок записи, а вот когда через UnprocessedDocuments, нет :)

    Код (Text):

    Set collection = db.UnprocessedDocuments
    Set doc = collection.GetFirstDocument()
    Do While Not doc Is Nothing
    Print # tmpdatafilenumber%, |<tr>| 
    Forall c In doc.ColumnValues[code]
     
  6. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    А если так коллекцию получить?
    Set collection = uiview.Documents
     
  7. Гость

    Способ достаточно корявый и долгий, но у меня получилось так:
    Код (Text):
    Set uiview = workspace.CurrentView
    Set view = uiview.View
    Set collection = uiview.Documents

    Dim docView As NotesDocument
    Dim docSel As NotesDocument

    Set docView = view.GetFirstDocument()
    Set docSel = collection.GetFirstDocument()

    Do While Not docView Is Nothing And Not docSel Is Nothing
    If docSel.UniversalID=docView.UniversalID Then
     
Загрузка...

Поделиться этой страницей