Шифрование полей

[Oksana]

Есть документ в нем поле RTF, с параметром безопасности "Применить шифрование". Использую переключатель с выбором Шифровать/Не шифровать, который присваивает полю "SecretEncryptionKeys" либо имя ключа шифрования либо отменяет его (пустое значаение). Как только применяю шифрование, приаттаченные файлы остаются как и были в поле RTF в виде картинки, но при обращении к ним выдается ошибка, что файла не существует.

В чем может быть проблема?

Делала однажды такой документ, все работало, в этот раз не могу найти ошибку.

 

[Oksana]

Создала пустую базу, одну форму, один вид. Проверила шифрование - работает. Иду в первую базу - не работает. Где рыть, что рыть? :-(

 

[Oksana]

Я тут тихо сама с собой беседую.
Ну если кому интересно, создала в этой же базе новую форму, перенесла все один в один из старой - работает. Это, конечно, радует.
Но в чем был прикол так и не узнала ...

 

[Oksana]

Нашла что мешает работе шифрования. Но не знаю как с этим справиться.
А не работает потому что в PostSave скрипт стоит

Sub Postsave(Source As Notesuidocument)
Dim rtitem As NotesRichTextItem
Set rtitem = Source.Document.GetFirstItem("B")
If Isempty(rtitem.EmbeddedObjects) Then Source.Document.BB = "0" Else Source.Document.BB = "1"
Call Source.Document.Save(True, True, True)
End Sub

см тему https://codeby.net/threads/6139/

И скрипт нужен и шифрование нужно, помогай Mevedic еще раз )))

 

[Medevic]

Попробуй так:

Sub Postsave(Source As Notesuidocument)
Dim rtitem As NotesRichTextItem
Set rtitem = Source.Document.GetFirstItem("B")
If Isempty(rtitem.EmbeddedObjects) Then Source.Document.BB = "0" Else Source.Document.BB = "1"
rtitem.IsEncrypted = True
Source.Document.EncryptionKeys = твои ключи
Call Source.Document.Encrypt
Call Source.Document.Save(True, True, True)
End Sub