B
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">
сам код
просмотр с фоткой когда пошагово (я красивый)
просмотр как обычно фотки нет
Руководству желательно в коммуникативных целях видеть на этой карточке просмотра телефонов и самого абонента в виде его фотографии. Фотографии абонентов хранятся не в доке штатного расписания (где хранятся тел. данные), а в учетной карточке сотрудника (связана через поле с доком штатного расписания). Так вот, вроде все сделал, вроде работает - но как-то странно. Когда прогоняю дебаггером пошагово - все работает зер гут, фотка вставляется. Когда дебагер вырублен и все работает в штатном режиме - фотка вставляться не желает категорически. С таким чудом встречаюсь в первый раз, может кто чего подскажет толкового. Подробности под катом<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
просмотр как обычно фотки нет