Запуск агента с правами автора

[hosm]

nvy, Вы - телепат)))) нда, а мы ведь писали именно о RunOnServer и черным по белому, и белым по черному (намек на разную подсветку синтаксиса...Вот, наверно, в css надо было красным цветом делать? :ya_za
maliy
зато сколько интересного узнали)

 

[nvyush]

... а мы ведь писали именно о RunOnServer и черным по белому, и белым по черному (намек на разную подсветку синтаксиса...Вот, наверно, в css надо было красным цветом делать? )

Стоит тэг [cоde=auto]. Я пробовал и LS и LotusScript, и VB, и Basic, и просто [cоde]... Видимо, меня занесли в чёрный список ...

 

[hosm]

и LS и LotusScript, и VB, и Basic

С автоопределением языка бывают приколы(
Можно писать vb vbscript. Case-sensitive, скорее всего, ибо код автоопределения на javascript.
-
Зы Админ vb убрал. (хз, мож и будет работать, но теперь это "undocumented")

 

[maliy]

парни, харэ прикалываться, лучше подскажите такой момент, вообще я по кнопку запустил агент, агент отработал, обновил документ(изменил поле, сохранил документ), и дальше в этой кнопке я хотел сделать Call nw.CurrentDocument.Refresh, то есть:

Dim nw As New NotesUIworkspace
Set nd=nw.CurrentDocument.Document
'............
Call Agent.RunOnServer(paramid)
Call nw.CurrentDocument.Refresh '- выбивает - Document command is not avialable

что можно придумать? то есть мне нужно после отработки агента обновить документ в UI(ну чтобы пользователь увидел измененное поле , а не только после переоткрытия дока)

 

[TIA]

Call nw.CurrentDocument.Refresh - выбивает - Document command is not avialable
что можно придумать?

Refresh работает только в режиме редактирования. Но даже если перевести документ в редактирование, то модификация, выполненная сервером, не будет прочитана.
Тебе поможет переполучение документа. Вроде как так должно сработать

nid = nd.NoteId
Delete nd
Set nd = db.GetDocumentById(nd)
Call nw.EditDocument( False, nd )

в противном случае получить документ nd по вьюшке через view.getDocumentByKey

 

[maliy]

все хорошо, только документ открывается в новом окне еще раз, можно каким то образом это избежать?то есть нужно обновить открытый уже документ.

 

[hosm]

закройте открытый уи-документ

Добавлено: call nw.CurrentDocument.Close(true)
вызвать до открытия, т.е. до Call nw.EditDocument( False, nd )

 

[maliy]

Выбираем выражения vital.

 

[maliy]

Вообщем проблема, не знаю с чем связаная :
Этот код выполняю в кнопке, которая расположена в другом доке doc2
Set doc1 = db.GetDocumentByUNID (Unid)
If doc1.IsUIDocOpen Then
Set uidoc1 = nw.EditDocument(False, doc1, False,,,False)
.....
End If
doc1 - открыт в UI, но не активен(не текущий док), а doc2 - активен, текущий док.
Так вот этой функцией Set uidoc1 = nw.EditDocument(False, doc1, False,,,False) - должен doc1 стать активным( текущим), так и есть, только если doc1 уже был в базе,я его открыл и потом по кнопке из doc2 выполнил код, а если я doc1 создал:
Dim UIdoc As NotesUIDocument
Set UIdoc=work_space.ComposeDocument("","",FormName)
и сохранил в UI
@Command([FileSave])
тогда
Set uidoc1 = nw.EditDocument(False, doc1, False,,,False) - открывает doc1 в новом окне , в чем проблема?

 

[Omh]

а если я doc1 создал:
Dim UIdoc As NotesUIDocument
Set UIdoc=work_space.ComposeDocument("","",FormName)
и сохранил в UI
@Command([FileSave])

Какая тонкая смесь...

 

[maliy]

то есть документ я создаю вот так в обоих случаях

Dim UIdoc As NotesUIDocument
Set UIdoc=work_space.ComposeDocument("","",FormName)
и сохранил в UI
@Command([FileSave])

но если я этот документ только сохранил и не закрыл и выполняю код то он открывается в новом окне, а если я его закрыл и потом опять открыл и выполнил код - тогда все нормально.

 

[maliy]

нашел вот тему

Ссылка скрыта от гостей

похоже эту "особенность" лотуса не решить.....

 

[Constantin A Chervonenko]

Не помогло. Это для веб доступа.

Не-а.. И для LN тоже. Главное, что это НЕ ТОТ юзер.

А дай-ка ты права на запуск этого агента ВСЕМ, права агенту - на всё, а в самом агенте уже проверяй, можно-ли для данного юзера выполнить данное действо