снова о Linc

[sirin]

Приспичило мне сделать Link (из документа создаю карточку в другой базе, надо в карточке создать Linc на этот документ). Прочитано много ваших материалов, в результате родился скрипт:

Dim s As New notesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim dbk As NotesDatabase
Dim doc1 As NotesDocument
Dim docN As NotesDocument
Dim rtitem As NotesRichTextItem

Set db = s.CurrentDatabase ‘база d1
servN$ = db.Server
Set dbk = s.GetDatabase (servN$,"k1.nsf")
Set uidoc = ws.CurrentDocument
Call uidoc.Refresh
Set doc1 = uidoc.Document

Set docN = dbk.CreateDocument
docN.Form = "KontrK"
Set rtitem = New NotesRichTextItem( DocN, "lnk" ) ' обьявляем новое рт поле
Call rtitem.AppendDocLink( doc1, "Просмотреть документ" ) ' вставляем ссылку
Call DocN.Save( True, True ) ' сохраняем

но на строке AppendDocLink выдается ошибка: Couldn’t get default view id for database (d1)

что не так? Помогите, плиз!
И заодно еще вопрос: в Web этот Linc будет работать?

 

[TIA]

Сделать дефолтный вид в БД d1. Это в св-вах вида на второй закладке.
Либо пользовать недокументированный
NotesRichTextItem.AddLinkByIDs (ReplicaId, [ServerHint], [ViewUNID], DocUnid, [Comment])

 

[sirin]

Спасибо большое! Все получилось!!!

 

[sirin]

И опять вопрос возник: аналогичную операцию решила сделать в другой базе, но результат разочаровал: на строку AppendDocLink выдается "Не имеете прав на эту операцию", и это при том, что у меня все максимальные права на обе базы, на все формы, вьюшки и т.д. Куда лезть? что делать?

 

[sirin]

Ау! Помогите, кто может! не знаю, куда ткнуться с этой проблемой, вроде везде максимальные права...