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

beloff

Well-known member
24.07.2012
113
1
#1
Всем привет. Вот часть 2 Интересной задачи (краткое описание 1 части - http://codeby.net/forum/threads/50185.html).
Руководству желательно в коммуникативных целях видеть на этой карточке просмотра телефонов и самого абонента в виде его фотографии. Фотографии абонентов хранятся не в доке штатного расписания (где хранятся тел. данные), а в учетной карточке сотрудника (связана через поле с доком штатного расписания). Так вот, вроде все сделал, вроде работает - но как-то странно. Когда прогоняю дебаггером пошагово - все работает зер гут, фотка вставляется. Когда дебагер вырублен и все работает в штатном режиме - фотка вставляться не желает категорически. С таким чудом встречаюсь в первый раз, может кто чего подскажет толкового. Подробности под катом<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
просмотр с фоткой когда пошагово (я красивый) с_фоткой.jpg
просмотр как обычно фотки нет без_фотки.jpg
 

Вложения

beloff

Well-known member
24.07.2012
113
1
#3
спасибо большое, работает. Чтобы я без вас делал...
 

NickProstoNick

Статус как статус :)
Lotus team
22.08.2008
1 809
21
#4
можно сделать по другому... не тащить фото в свой документ.
Я делаю RT-поле в формате MIME и заношу туда http-ссылку на фотку из сторонней базы
 

beloff

Well-known member
24.07.2012
113
1
#5
NickProstoNick
что-то больно сложно, мне до таких глубин познаний далеко еще
 

NickProstoNick

Статус как статус :)
Lotus team
22.08.2008
1 809
21
#6
А что сложного? Не сложнее того что написал ты.
 

beloff

Well-known member
24.07.2012
113
1
#8
lmike
ну как по мне - то что я написал проще

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

beloff

Well-known member
24.07.2012
113
1
#10
Default Application Icon меняется только через Едитор, др. кнопок нету
 

savl

Lotus team
28.10.2011
2 136
105
#11
beloff
Если менял файлом png, то не поможет.
До версии 8.5.2 будет тянуться Icon 7-

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

Вложения

beloff

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