Как из Лотус-скрипт запустить собачьего агента.

  • Автор темы rm2005
  • Дата начала
R

rm2005

#1
Из Лотус-скрипта запускаю агента, написанного на собачьих формулах. Выдается: Notes error: @Function is not valid in this context
Неужели нет никаких способов его запустить?

Текст:

Код:
Sub Click(Source As Button)
Dim Session As New NotesSession
Dim CurrentDataBase As NotesDatabase	
Dim Agent As NotesAgent	 
Set CurrentDataBase =Session.CurrentDatabase
Set Agent=CurrentDataBase.GetAgent("(SelectDBOnServer)")
Call Agent.Run -> здесь ошибка
End Sub
Сам агент:

Код:
Result:=@Prompt([ChooseDatabase];"";"");
@If(@Elements(Result)>0; @Do(@SetField("ServerName";@Name([CN];Result[1]));@SetField("BaseName";Result[2]));@False)
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#2
Для: rm2005
Тебе вообще не надо агент использовать. Всё это прекрасно делается на скрипте.
А вообще можно использовать Evaluate.
 
R

rm2005

#3
Для: Medevic
На скрипте не нашел аналог @Prompt([ChooseDatabase];"";"");
Evaluate попробую
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#4
<!--QuoteBegin-rm2005+18:04:2007, 09:43 -->
<span class="vbquote">(rm2005 @ 18:04:2007, 09:43 )</span><!--QuoteEBegin-->На скрипте не нашел аналог @Prompt([ChooseDatabase];"";"");
[snapback]62674" rel="nofollow" target="_blank[/snapback]​
[/quote]
notesUIWorkspace.Prompt(13, "", "")
 
R

rm2005

#5
Для: Medevic
Коллега!!! Вы гений!!!
Код:
notesUIWorkspace.Prompt(13, "", "")
такого я даже в справке не нашёл. Прекрасно всё работает. Большое спасибо.