1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Editdocument (true) Для Класса Notesdocument ?!

Тема в разделе "Lotus - Программирование", создана пользователем Mitya, 7 июл 2012.

  1. Mitya

    Mitya Well-Known Member

    Репутация:
    0
    Регистрация:
    13 июн 2012
    Сообщения:
    111
    Симпатии:
    0
    Добрый день.
    Подскажите, как мне открыть все выделенные документы из вида в режиме "редактируемый" и потом, просто сохранить.
    Как-то так:
    Sub Click(Source As Button)

    Dim ws As New NotesUIWorkspace
    Dim uiview As NotesUIView
    Dim dc As NotesDocumentCollection
    Dim doc As NotesDocument

    Set uiview = ws.CurrentView
    Set dc = uiview.Documents
    Set doc = dc.GetFirstDocument
    While Not (doc Is Nothing)
    ?? вот как doc - открыть как редактируемый режиме? нашел только метод для NotesUIWorkspace - >EditDocument (True) - Не то =(
    Call doc.Save(False,False)
    Set doc = dc.GetNextDocument(doc)
    Wend
    End Sub
     
  2. morpheus

    morpheus скриптописец

    Репутация:
    0
    Регистрация:
    7 авг 2006
    Сообщения:
    3.915
    Симпатии:
    1
    Mitya
    Если надо пересохранить, то используйте ComputeWithForm
     
  3. Mitya

    Mitya Well-Known Member

    Репутация:
    0
    Регистрация:
    13 июн 2012
    Сообщения:
    111
    Симпатии:
    0
    :)
    Делаю так:
    Sub Click(Source As Button)

    Dim ws As New NotesUIWorkspace
    Dim uiview As NotesUIView
    Dim dc As NotesDocumentCollection
    Dim doc As NotesDocument

    Set uiview = ws.CurrentView
    Set dc = uiview.Documents
    Set doc = dc.GetFirstDocument
    While Not (doc Is Nothing)
    If doc.ComputeWithForm(False, False) Then
    Call doc.Save(True,True)
    End If
    Set doc = dc.GetNextDocument(doc)
    Wend
    End Sub

    НЕ выходит.

    У меня ситуация, что я представление нацепил на Xpage.
    В клиенте в этом виде я вижу 4269, а вот через Xpage я вижу 4269.0.
    Как только я захожу в этот документ в режиме "редактирования" и нажимаю на кнопку : @Command([FileSave]);
    @Command([CloseWindow])
    Xpage покзывает 4269!
    Вот как решить данный вопрос, как обработать все документы в виде?
     
  4. Medevic

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

    Репутация:
    0
    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Попробуй @Command([ToolsRefreshAllDocs]).
     
Загрузка...
Похожие Темы - Editdocument (true) Для
  1. yerke
    Ответов:
    7
    Просмотров:
    3.216
  2. alb
    Ответов:
    2
    Просмотров:
    2.553

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