полем "rich Text", помогоите

  • Автор темы sergcthu
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

sergcthu

#1
Нужно сделать форму в которой есть поля которые могут редактировать все, а есть поля для одних ролей - только просмотр, для других - редактирование.
Если поле типа Text - делаю два поля. Одно "editable", второе "computed for display". Второе поле отображает значение первого. Первое поле скрываю для одних ролей, второе для остальных. Все получается хорошо, все видят только одно поле, кому положено редактируемое, кому нет - "computed for display".

С полем Rich Text так не получается, а очень надо. "computed for display" для этого поля выбрать вообще нельзя, можно просто "computed". Но с ним неправильно работает. Второе поле или вообще ничего не отображает, или только первый раз внесенные данные, а последующие изменения не отображает (так должно работать "Computed when compose").

Помогите, пожалуйста.
 
O

osmor

#2
Создайте раздел с ограниченным доступом.
В нем Rich Text.
Управляете видимостию раздела.
 
I

ivashkalotus

#3
А поставить опцию в поле: Must have at least Editor access to use.
Тебя не устраивает?
 
S

sergcthu

#4
"Must have at least Editor access to use" не устраивает, т.к. все editor, одни роли могут редактировать одни поля, и просматривать остальные, другие роли - другие поля.
А с секциями пробую, но не удобно с ними с точки зрения дизайна.
 

Murtas

Lotus team
11.04.2006
128
0
#5
Для: sergcthu

... может еще сабфомы с этими полями помогут - т.е. показывать соответсвующую по формуле ... но кажется я когда-то (непомнюгде) остановился на секциях
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#6
Создаем два ричтекстовых поля.
Одно делаешь Editable (назовем его field). Второе - computed (назовем его fieldfd).
При открытии документа (QueryOpen) из Editable копируешь в Computed.
Вот так:
Код:
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Dim rt As NotesRichTextItem
Dim rtfd As NotesRichTextItem
Set rt = Source.Document.GetFirstItem("field")
Set rtfd = Source.Document.GetFirstItem("fieldFD")
Set rtfd = New NotesRichTextItem(Source.Document, "fieldFD")
Call rtfd.AppendRTItem(rt)
End Sub
А в QuerySave пишем:
Код:
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim ni As NotesItem
Set ni = Source.Document.GetFirstItem("fieldFD")
ni.SaveToDisk = False
End Sub
 
E

Elena Nefedova

#7
Создаем два ричтекстовых поля.
Одно делаешь Editable (назовем его field). Второе - computed (назовем его fieldfd).
При открытии документа (QueryOpen) из Editable копируешь в Computed.
Что же вы творите-то, господа хорошие?

Ведь это все реализовано еще во время оно!

И конечно - только разделы с управляемым доступом (см. замечание коллеги выше).
Хотите потом - скрывайте, хотите открывайте. Главное - чтоб формула доступа вас устраивала.
 
30.05.2006
1 345
11
#8
Нужно сделать форму в которой есть поля которые могут редактировать все, а есть поля для одних ролей - только просмотр, для других - редактирование.
...
С полем Rich Text так не получается, а очень надо. "computed for display" для этого поля выбрать вообще нельзя, можно просто "computed". Но с ним неправильно работает. Второе поле или вообще ничего не отображает, или только первый раз внесенные данные, а последующие изменения не отображает (так должно работать "Computed when compose").
Сделай вычисляемыми подформами (в одной RT-поле Computed в др. - Editable)
 
Статус
Закрыто для дальнейших ответов.