Notesuidocument.refresh

[wowa]

Есть кусок кода

	Dim WS As New NotesUIWorkspace
Dim MainDocument As NotesDocument

Set MainDocument = WS.CurrentDocument.Document
Call MainDocument.Save( True, True )
Call WS.CurrentDocument.Refresh

На последней строке ошибка "Document command is not available"
На многих серверах все работает, на одном нет.

Добавлю. Нажимаю на кнопку, где срабатывает первый агент, затем второй. Кусок кода со второго агента...
Подскажите, что может быть не так??...
Текущий документ в режиме редактирования, правда проверил на сервере, на котором код отрабатывает

 

[Omh]

Вот мне как раз и кажется, что док не в EditMode
Забацай проверку на .EditMode может?

 

[Medevic]

Может права меняются(т.е. прав автора у пользователя больше нет)? В этом случае лотус, если не ошибаюсь, после сохранения документа(через ui) перекидывает его в режим чтения.

 

[wowa]

Medevic , вполне вероятно... На всех серверах у меня были права админа, а на последнем нет...

 

[Medevic]

Ну ты сохраняешь бекэнд-документ. Поэтому вряд ли.
Скорее всего он у тебя и не был в режиме редактирования(тоже из-за прав).

 

[wowa]

Может права меняются(т.е. прав автора у пользователя больше нет)?

Да вот права автора как раз и остаются

 

[wowa]

В документе много линков.. Нашел кусочек текста, что может быть проблема из-за них... Есть какая-то доля вероятности?