Решено Внутри Процедуры - Можно Ли Вывести Ее Название?

Тема в разделе "Lotus - Программирование", создана пользователем anna, 5 фев 2015.

  1. anna

    anna Lotus team
    Lotus team

    Регистрация:
    3 июн 2014
    Сообщения:
    310
    Симпатии:
    8
    Подскажите, пожалуйста, можно ли изнутри процедуры узнать ее название? и еще что-нибудь полезное, например, из какой другой процедуры она была вызвана?
    И еще - если процедура вызывается по кнопке из документа (все это в нотесе), можно ли узнать, будучи внутри процедуры, какую кнопку нажали?
    Какой будет ответ, я догадываюсь, но надежда умирает последней.
     
  2. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    >Подскажите, пожалуйста, можно ли изнутри процедуры узнать ее название?
    Getthreadinfo(1).
    Хелп Getthreadinfo почитайте, вызывающего тоже вроде оттуда можно получить.Кусочек остальной полезной инфы есть в недокументированной lsi_info(), но там надо осторожно, не рекомендуют, может уронить сервер.
     
  3. savl

    savl Lotus team
    Lotus team

    Регистрация:
    28 окт 2011
    Сообщения:
    2.051
    Симпатии:
    146
    стэк ошибок надо вывести?
    про GetThreadInfo можно почитать.
    Самый примитивный:
    Error Err, Error$ & Chr(10) & GetThreadInfo(1) & " (" & Erl & ")"
    Возвращает ошибку на уровень верх.
     
  4. Shandrik

    Shandrik Well-Known Member

    Регистрация:
    30 дек 2010
    Сообщения:
    236
    Симпатии:
    24
    > И еще - если процедура вызывается по кнопке из документа (все это в нотесе), можно ли узнать, будучи внутри процедуры, какую кнопку нажали?

    Нет, в коде кнопки Getthreadinfo(1) вернет CLICK, а узнать вызывавшую процедуру можно по Getthreadinfo(10), но если кнопкой вызвали, то вернёт всё тот же CLICK
     
  5. alexas1

    alexas1 Lotus team
    Lotus team

    Регистрация:
    10 апр 2014
    Сообщения:
    567
    Симпатии:
    214
    с кнопой всё просто - пишите в какойнить буфер инфу о кнопе (в клике) и считывайте её в процедуре.
     
  6. anna

    anna Lotus team
    Lotus team

    Регистрация:
    3 июн 2014
    Сообщения:
    310
    Симпатии:
    8
    Очень полезно. Спасибо, коллеги.
     
Загрузка...

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