1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

И Снова Rtf

Тема в разделе "Lotus - Программирование", создана пользователем Antigo, 16 июл 2014.

  1. Antigo

    Antigo Active Member

    Репутация:
    0
    Регистрация:
    16 фев 2012
    Сообщения:
    40
    Симпатии:
    0
    Приветствую господа!
    Вот такой вопрос возник по ртф полю. Создаю новый документ, в документе есть РТФ поле "RTFField". По кнопке я должен в это поле записать ссылку на другой документ. Перед тем, как писать ссылку, я проверяю if doc.HasItem("RTFField"), но это поле как-будто не существует. Если сохранить докумнет и открыть снова и нажать кнопку, то все работает хорошо. В чем может быть проблема?
     
  2. savl

    savl Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    28 окт 2011
    Сообщения:
    2.116
    Симпатии:
    157
    Ни в чем, так работает. Если документ новый, то все RT поля появляются только после сохранения и переоткрытия документа.
     
  3. Antigo

    Antigo Active Member

    Репутация:
    0
    Регистрация:
    16 фев 2012
    Сообщения:
    40
    Симпатии:
    0
    спасибо!
     
  4. savl

    savl Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    28 окт 2011
    Сообщения:
    2.116
    Симпатии:
    157
    Этот код (на форму есть где-то) позволяет обновить документ с RT полями на экране.
    Код:
    Sub RefreshRT(pUIDoc As NotesUIDocument)
    On Error GoTo handler
    Const FuncName = {Sub "RefreshRT" }
    Dim ErrStr As String
    
    Dim doc As NotesDocument
    Set doc = pUIDoc.Document
    Dim rti As New NotesRichTextItem(doc, doc.UniversalID)
    Call rti.CopyItemToDocument(doc, doc.UniversalID & "_")
    Call rti.Remove()
    Call doc.RemoveItem(doc.UniversalID & "_")
    Dim ws As New NotesUIWorkspace
    Call doc.RemoveItem("Locked")
    Call ws.EditDocument(True, doc)	
    Call doc.ReplaceItemValue("SaveOptions", "0")
    Call pUIDoc.Close()
    
    GoTo endh
    handler:
    ErrStr = libName & ", " & FuncName & ": " & Err &", в стр " & Erl & nLine & Error$
    Error Err,ErrStr
    endh:
    End Sub
     
  5. hosm

    hosm * so what *

    Репутация:
    0
    Регистрация:
    18 май 2009
    Сообщения:
    2.442
    Симпатии:
    8
Загрузка...

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