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

Тема в разделе "Lotus - Программирование", создана пользователем rm2005, 18 апр 2007.

  1. rm2005

    rm2005 Гость

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

    Текст:

    Код (Text):
    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
    Сам агент:

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

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Для: rm2005
    Тебе вообще не надо агент использовать. Всё это прекрасно делается на скрипте.
    А вообще можно использовать Evaluate.
     
  3. rm2005

    rm2005 Гость

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

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    <!--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, "", "")
     
  5. rm2005

    rm2005 Гость

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

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