Интересная Задача Часть 2

[beloff]

Всем привет. Вот часть 2 Интересной задачи (краткое описание 1 части - link removed.
Руководству желательно в коммуникативных целях видеть на этой карточке просмотра телефонов и самого абонента в виде его фотографии. Фотографии абонентов хранятся не в доке штатного расписания (где хранятся тел. данные), а в учетной карточке сотрудника (связана через поле с доком штатного расписания). Так вот, вроде все сделал, вроде работает - но как-то странно. Когда прогоняю дебаггером пошагово - все работает зер гут, фотка вставляется. Когда дебагер вырублен и все работает в штатном режиме - фотка вставляться не желает категорически. С таким чудом встречаюсь в первый раз, может кто чего подскажет толкового. Подробности под катом<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">подробности</div></div><div class="sp-body"><div class="sp-content">
сам код

Dim ses As New NotesSession
Dim ws As New NotesUIWorkspace
Dim doc As NotesDocument
Dim wdoc As NotesDocument
Dim view As NotesView
Dim docrc As NotesDocument
Set db = ses.CurrentDatabase
Dim pitem As NotesRichTextItem
Dim rt As NotesRichTextItem

Set doc = db.getdocumentbyid(source.CaretNoteID)
Set wdoc = db.CreateDocument
Set view = db.getview("2srchRCUNID")
wdoc.Pers_FullName_dsp = doc.Post_PersonName
wdoc.Pers_phone = doc.Pers_phone
wdoc.Pers_stat = doc.Pers_stat
wdoc.Pers_mobile = doc.Pers_mobile
wdoc.Pers_object = doc.Pers_object
wdoc.Pers_room = doc.Pers_room
wdoc.Corp_Department = doc.Corp_Department
wdoc.Corp_Position = doc.Corp_Position
key = doc.RC_UID(0)
Set docrc = view.GetDocumentByKey(key)
If Not docrc Is Nothing Then
Set rt = New NotesRichTextItem(wdoc,"body")
Set pitem = docrc.GetFirstItem("RC_Photo")
Call rt.AppendRTItem(pitem)
End If
Continue = False
Call ws.DialogBox("DLGpreview",True,True,True,True,False,True,"Просмотр",wdoc,True,True)
End Sub

просмотр с фоткой когда пошагово (я красивый)
просмотр как обычно фотки нет

 

[Medevic]

Добавь Call rt.Update() после Call rt.AppendRTItem(pitem)

 

[beloff]

спасибо большое, работает. Чтобы я без вас делал...

 

[NickProstoNick]

можно сделать по другому... не тащить фото в свой документ.
Я делаю RT-поле в формате MIME и заношу туда http-ссылку на фотку из сторонней базы

 

[beloff]

NickProstoNick
что-то больно сложно, мне до таких глубин познаний далеко еще

 

[NickProstoNick]

А что сложного? Не сложнее того что написал ты.

 

[lmike]

Ссылка скрыта от гостей

 

[beloff]

lmike
ну как по мне - то что я написал проще

PS Камрады, такая вещь. Вставил новую иконку БД через дезигнер (у меня 8,5,3), так вот, у всех у кого 8,5 и выше версия клиента - видится иконка нормально, у кого старше Лотус - видится старая. Поправляемо или только через старый дезигнер пробовать делать?

 

[hosm]

Поменяйте Default Application Icon

 

[beloff]

Default Application Icon меняется только через Едитор, др. кнопок нету

 

[savl]

beloff
Если менял файлом png, то не поможет.
До версии 8.5.2 будет тянуться Icon 7-

Есть вариант открыть твой иконку Paint'ом, увеличить и перерисовать вручную или копировать

 

[beloff]

savl
да, был пнг. Решил вопрос - открыл в фотожопе, скопировал, вставил в лотус. Работает. Всем спасибо. Из пайнта тянуло галимо, какое-то искажение цветов было