1 Тема от admin

  • admin
  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2010-04-07
  • Сообщений: 1,225
  • Репутация : 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))

Поделиться

2 Ответ от admin

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

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

Вот еще пример по скрытию кнопки.
ТЗ.
Для документов с регистрационными номерами, начинающимися на 30, 12, 40 (в том числе 8/30, 8/40, 8/12) права на списание в архив ограничить тем кругом лиц, который сейчас имеется. (arc - роль )
По всем остальным документам открыть право направления "в архив".

archive="1" | responce = "1" |
@IsMember (   @Left(doctype ; 2)   ; "30":"12":"40"  ) & @IsNotMember("[arc]";@UserRoles)

Можно и 

x1:=@Left(  поле с номером  ;  2);
x2:=@Left(  поле с номером  ;  4);
archive = "1" | responce = "1" | (@IsMember("30":"12":"40"; x1) & @IsNotMember("[arc]"; @UserRoles)  | @IsMember("8/30":"8/12":"8/40"; x2)) & @IsNotMember("[arc]"; @UserRoles)

А это просто скрытие по роли.

archive="1" | responce = "1" | @IsNotMember("[arc]";@UserRoles)

Поделиться