Вставить факсимильку (рисунок) из поля в форму?

  • Автор темы John_V
  • Дата начала
J

John_V

#1
Нашел информацию, что можно из поля в котором храниться изображение, подставить это изображение в форму. Видел , что это действительно реализуемо, но сам это реализовать не смог, ибо опыта мало.

Вот как я это пытаюсь сделать (объект Field, тип RichText):
PersonSign:= @DbLookup ("" ; StaffDb ; "UIPeoplePowerToSign" ;IO_InP ; "Person_Sign");

PersonSign

при этом, когда указываешь поле просто с текстовой информацием, все выводиться замечательно, а вот рисунок нет sad
Подскажите, пожалуйста, как это можно реализовать?


P.S. мне надо чтоб в зависимости от выбранного пользователя автоматом подставлялась его факсимильную подпись в форму для распечатки.
 
R

Ronchik

#3
<!--QuoteBegin-John_V+29:10:2007, 11:59 -->
<span class="vbquote">(John_V @ 29:10:2007, 11:59 )</span><!--QuoteEBegin-->PersonSign:= @DbLookup ("" ; StaffDb ; "UIPeoplePowerToSign" ;IO_InP ; "Person_Sign");
[snapback]83390" rel="nofollow" target="_blank[/snapback]​
[/quote]
такой вариант не прокатит
Return value
valuesFound
Text, numbers, date-time, or text-list
 
S

Sandr

#4
Судя по названиям полей - Босс-референт... :)
@DbLookup не выйдет... получи на бекэнде док, в котором есть образец плдписи, а птом копируй этот РТитем в нужный тебе документ...
 
J

John_V

#5
подписи храняться в поле Data Type: Rich Text, импортируются туда из файла .bmp или .jpg
подскажите, как тогда нужно сделать или в какую сторону копать

точно Босс-Референт :)
 

Omh

Lotus team
04.07.2007
2 210
1
#6
Для: John_V
Sandr всё правильно сказал.
Ключевые слова: GetFirstItem, AppendRTIItem
Если подписи хранятся как аттачменты, то гемора чуть больше.
 
J

John_V

#7
Вот спасибо вам, сейчас попробую сделать...
Ушел читать мануал :)
 
R

Ronchik

#8
Для: John_V
Скопируй поле полностью что-бы не писать лишнего кода по работе с RT
 
J

John_V

#9
Товарищи, получилось!
И даже без копирования RT!

Вот код кнопки:
Код:
Dim ss As New NotesSession
Dim db As NotesDatabase
Dim curdb As NotesDatabase
Set curdb = ss.CurrentDatabase
Set db = ss.GetDatabase("BR_KRISTA01/KRISTA","referent\itstaff.nsf")

Dim uw As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim curdoc As NotesDocument
Dim doc As NotesDocument
Dim view As NotesView
Dim ndc As NotesDocumentCollection
Dim fvalue As Variant

Set uidoc = uw.CurrentDocument
Set curdoc = uidoc.Document	 ' текущий открытый документ
Set view = db.GetView("UIPeoplePowerToSign")
fvalue = curdoc.GetItemValue(IO_InP)
Set ndc = view.GetAllDocumentsByKey(fvalue(0),True)	

If ndc.Count=0 Then
Print "Ошибка найдено 0 документов"
Exit Sub
End If

Set doc = ndc.GetFirstDocument	

End Sub
А вот код формы RichText
Код:
@If (IO_InP= ""; @Return (""); @Success);
StaffDb := @Replace (
@DbLookup (""; @Environment ("Switchboard" + "S":"F"); "DbDesignLookup"; "ITStaffManager"; "Address");
@UserName; "");
PersonSign:= @DbLookup (""; StaffDb; "UIPeoplePowerToSign";IO_InP; "Person_Sign");
PersonSign
Может быть я конечно сделал это все не правильно, если можете, проконсультируйте.
В принципе информацию из одного документа в другой мне копировать не надо, ибо не требуется, чтобы она хранилась в новом документе.

Только теперь у меня еще один затык... картинка подписи оказываестя слишком большая.
Кажется я где-то на форуме уже видел как автоматически подгонять размер картинки... буду искать, если кто-то точно знает, где об этом можно почитать, буду весьма признателен за ссылку :)
С нетерпением жду рекомендаций и отзывов.
 
S

Sandr

#10
Очень попрошу, не светить код Босс-референта на форуме...
 

Omh

Lotus team
04.07.2007
2 210
1
#13
Ясно.
Так хоть одно место было, где глаза отдыхают. А тут бац! И сюда референта влили :D
Мне-то "БОСС-Референт" ничего не говорит...
 
J

John_V

#14
Все, с этими вопросами разобрался, всем большое спасибо за советы!
За код простите конечно, но... что имеем... :D
 
J

John_V

#16
Версия БР 2.58.4
Я живу и работаю в Самарской области