Помогите с Notesrichtextitem

[nik3528]

Уважаемые помогите разобраться в чем проблема:
Вопрос вот в чем, на форме есть поле ViewListPredobr - RichText

по открытию диалога выбираю документы и при нажатии Ok хочу получить следующее

Документ -> ссылка
Документ -> ссылка
.............................
Документ -> ссылка

Вот код Action

Sub Click(Source As Button)
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument	
Dim collection As NotesDocumentCollection
Dim rtitem As NotesRichTextItem
Dim doc As NotesDocument

Set uidoc = workspace.CurrentDocument

Set collection = workspace.PickListCollection( _
PICKLIST_CUSTOM, _
True, _
session.CurrentDatabase.Server, _
session.CurrentDatabase.FilePath, _
"PovtorObr", _
"Обращения заявителя - "&uidoc.Document.GetItemValue ("JobPlace")(0), _
"Пожалуйста выберите предыдущие обращения:",_
uidoc.Document.GetItemValue ("JobPlace")(0))
If collection.Count = 0 Then
Messagebox "Действоие отменено пользователем" ,, _
"Сообщение" 
Else
Set doc = collection.GetFirstDocument()
Set rtitem = New NotesRichTextItem( uidoc.Document, "ViewListPredobr" )
While Not(doc Is Nothing)
Call rtitem.AddNewline(1)
Call rtitem.AppendText( "Документ ->")
Call rtitem.AppendDocLink( doc,"" )
Set doc = collection.GetNextDocument(doc)
Wend
End If
End Sub

 

[amigolinx]

Если по-простому, то РТитем на лету в УИ не делается. Надо сохранить и переоткрыть документ.

 

[nvyush]

nik3528
По-моему, после Wend не хватает UIdoc.document.save true, true

 

[Nalula]

А пробовали сохранять и переоткрывать документ? Если не ошибаюсь, то изменения в полях RichTextItem, отображаются только после сохранения и переоткрытия дока.

 

[nik3528]

А чем можно заменит RichText чтобы получить такой результат?

 

[nvyush]

А чем можно заменит RichText чтобы получить такой результат?

Ничем

Но можно глянуть сюда:
link removed

 

[hosm]

переоткрывайте...
ну, или можно с натяжкой заменить на вычисляемый pass-thru html, где есть html-ссылка на документ через аналог notesUrl в обычном текстовом поле, если размер не перевалит за 32К

 

[Omh]

Обалдеть! На форуме новая женщина: Nalula!

Это оффтопик, а по теме - сохранение + переоткрытие документа решит проблему.

 

[nik3528]

Непонятно то, что даже при добавлении строчки

uidoc.document.save true,true

и переоткрытия документа поле пустое
а в debug Source items - поле занчение в VAlue есть -

 

[Omh]

Надо бекграунд док сохранять, ты же туда добавляешь.
Что-то типа

Call Doc.Save(True, False)
Call Doc.ReplaceItemValue("SaveOptions", "0")
Call uidoc.Close
'Тут Перевыбираешь документ из базы, например, из view
Call ws.EditDocument(True, Doc)

И код давали парой постов выше

 

[hosm]

https://codeby.net/threads/29669.html
nvy, извини, не заметила, что ты указал - повторилась
я все-таки добавила замечание про форму, мы как-то общались)