Добавление ссылки в Rt Item

Тема в разделе "Lotus - Программирование", создана пользователем aks, 17 дек 2006.

Статус темы:
Закрыта.
  1. aks

    aks Гость

    Здравствуйте, господа! Проблема такая: хочу добавить в док ссылку на др. док. Делаю так:
    Код (Text):
                Set item = New NotesRichTextItem(docst, "fldListPayNeed")
    If item Is Nothing Then
    Print "Не найдено поле"
    Exit Sub
    End If
    Call item.AddNewline(1)
    Call item.AppendDocLink(docpay, "Ссылка")
    Call item.Update
    Call docst.Save(False, False)
    Получаю ошибку "Couldn't get default view id for database ..."
    В отладчике видно, что ошибка вылазит на строке
    Call item.AppendDocLink(docpay, "Ссылка")

    Что я не так делаю?

    Спасибо!
     
  2. Constantin A Chervonenko

    Constantin A Chervonenko Well-Known Member

    Регистрация:
    30 май 2006
    Сообщения:
    1.288
    Симпатии:
    0
    Ежели посмотреть свойства ссылки, то можно увидеть, что она состоит из:

    ID реплики базы
    UNIDа вьюхи
    UNIDа документа
    ServerHint

    Нотес тебе жалуется, что не может вычислить 2й компонент. Это значит, что док-т получен НЕ из вьюхи, а умалчиваемой вьюхи в этой базе нет
     
  3. Duedev

    Duedev Гость

    Можешь попробовать вот эту функцию:

    Call itemRT.ADDLINKBYIDS("", "", , docVisa.UniversalID, "Нажмите на ссылку, чтобы открыть документ...")
    'недокументированная ф-я LN добавляет ссылку на документ по UNID. формат ADDLINKBYIDS(REPLICAID As String, SERVERHINT As String, [VIEWUNID], [NOTEUNID], [COMMENT], [HOTSPOTTEXT]). Пустые первые параметры указывают, что документ в текущей БД
     
  4. Mihal

    Mihal Гость

    Может, проще всё же дефолтную вьюху сделать? :)
     
  5. Duedev

    Duedev Гость

    <!--QuoteBegin-Mihal+19:12:2006, 10:16 -->
    <span class="vbquote">(Mihal @ 19:12:2006, 10:16 )</span><!--QuoteEBegin-->Может, проще всё же дефолтную вьюху сделать?
    [snapback]51122" rel="nofollow" target="_blank[/snapback]​
    [/quote]

    Всегда приятнее когда есть выбор. Никто же не хочет быть ограниченным человеком :)
     
  6. aks

    aks Гость

    Спасибо, господа. Сделал дефолтную вьюху, все работает. И ещё вопрос, чтобы не создавать ветку: когда в RTI вставляем ссылку, то ссылки которые там были раньше пропадают, т.е. происхожит змена значения поля. Пробовал и AddNewLines, и AddTab - все аналогично.
     
  7. fvoice

    fvoice Гость

    Используй вместо

    Код (Text):
     Set item = New NotesRichTextItem(docst, "fldListPayNeed")
    Код (Text):
    Set item = docst.GetFirstItem("fldListPayNeed")
     
Загрузка...
Статус темы:
Закрыта.

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