• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

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

John_V

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

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

PersonSign

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


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

Ronchik

<!--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

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

John_V

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

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

Omh

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

John_V

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

Ronchik

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

John_V

Товарищи, получилось!
И даже без копирования 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

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

Omh

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

John_V

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

John_V

Версия БР 2.58.4
Я живу и работаю в Самарской области
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!