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

Тема в разделе "Lotus - Программирование", создана пользователем John_V, 29 окт 2007.

  1. John_V

    John_V Гость

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

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

    PersonSign

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


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

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    А как у тебя хранятся подписи?
     
  3. Ronchik

    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]
    такой вариант не прокатит
     
  4. Sandr

    Sandr Гость

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

    John_V Гость

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

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

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Для: John_V
    Sandr всё правильно сказал.
    Ключевые слова: GetFirstItem, AppendRTIItem
    Если подписи хранятся как аттачменты, то гемора чуть больше.
     
  7. John_V

    John_V Гость

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

    Ronchik Гость

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

    John_V Гость

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

    Вот код кнопки:
    Код (Text):
    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
    Код (Text):
    @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
    Может быть я конечно сделал это все не правильно, если можете, проконсультируйте.
    В принципе информацию из одного документа в другой мне копировать не надо, ибо не требуется, чтобы она хранилась в новом документе.

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

    Sandr Гость

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

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Для: Sandr
    Стыдно за него чтоль? :D
     
  12. Sandr

    Sandr Гость

    Да нет, просто коробит... :D
     
  13. Omh

    Omh Lotus team
    Lotus team

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

    John_V Гость

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

    Sandr Гость

    вопрос тогда личного характера?
    Какая версия БРа, и откуда Вы? Интересно... ;)
     
  16. John_V

    John_V Гость

    Версия БР 2.58.4
    Я живу и работаю в Самарской области
     
Загрузка...
Похожие Темы - Вставить факсимильку (рисунок)
  1. Aaleks111
    Ответов:
    2
    Просмотров:
    194
  2. Amfion
    Ответов:
    5
    Просмотров:
    768
  3. Dimkawshm
    Ответов:
    2
    Просмотров:
    1.533
  4. alba
    Ответов:
    1
    Просмотров:
    1.849
  5. Toshka007
    Ответов:
    0
    Просмотров:
    2.052

Поделиться этой страницей