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

  • Автор темы aks
  • Дата начала
Статус
Закрыто для дальнейших ответов.
A

aks

Гость
#1
Здравствуйте, господа! Проблема такая: хочу добавить в док ссылку на др. док. Делаю так:
Код:
			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, "Ссылка")

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

Спасибо!
 

Constantin A Chervonenko

Well-Known Member
Lotus team
#2
Получаю ошибку "Couldn't get default view id for database ..."
В отладчике видно, что ошибка вылазит на строке
Call item.AppendDocLink(docpay, "Ссылка")
Ежели посмотреть свойства ссылки, то можно увидеть, что она состоит из:

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

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

Duedev

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

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

Mihal

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

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

Duedev

Гость
#5
<!--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]

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

aks

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

fvoice

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

Код:
 Set item = New NotesRichTextItem(docst, "fldListPayNeed")
Код:
Set item = docst.GetFirstItem("fldListPayNeed")
 
Статус
Закрыто для дальнейших ответов.