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

[aks]

Здравствуйте, господа! Проблема такая: хочу добавить в док ссылку на др. док. Делаю так:

			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]

Получаю ошибку "Couldn't get default view id for database ..."
В отладчике видно, что ошибка вылазит на строке
Call item.AppendDocLink(docpay, "Ссылка")

Ежели посмотреть свойства ссылки, то можно увидеть, что она состоит из:

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

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

 

[Duedev]

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

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

 

[Mihal]

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

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

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

 

[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]

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

 

[aks]

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

 

[fvoice]

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

 Set item = New NotesRichTextItem(docst, "fldListPayNeed")

Set item = docst.GetFirstItem("fldListPayNeed")