1 Тема от admin

  • admin
  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2010-04-07
  • Сообщений: 1,192
  • Репутация : 0

Тема: Скрытие кнопки в зависимости от вложения в ричтекст поле

Возникла задача, скрывать кнопку, если в ричтекст поле "text"  есть приложения (аттачи).
@Attachments - видит все вложения в документе.
Выход - деалется флаговое выисляемое поле atn, по которому скрывается кнопочка.

В событии постопен:

    Dim myflag As Boolean
    myflag = False
    Dim rtitem As NotesRichTextItem
    Set rtitem = source.Document.GetFirstItem("text")
    If Not rtitem Is Nothing Then
        If ( rtitem.Type = RICHTEXT ) Then     myflag =  Not Isempty(rtitem.EmbeddedObjects)
    End If
    Print "myflag " myflag
    Call    Source.FieldSetText("atn",Cstr(myflag))

Поделиться