Сообщение о сохранении

[motogarri]

SaveOptions = "1" - спрашивает при закрытии. Работает так, как если бы поля не было вовсе.

Вот в том и дело все. Уверен был, что если =1 то сохраняет и не спрашивает. Делал так, а у меня постоянно запрос вылазит.
В общем разобрался. Спасибо, что до конца все абсасали.

εὕρηκα

 

[nvyush]

...
SaveOptions = "1" — при закрытии документа сохранять, не спрашивая.
...

SaveOptions = "1" - спрашивает при закрытии. Работает так, как если бы поля не было вовсе.

Нашёл, откуда я взял такое поведение SaveOptions = "1": link removed
Проверил ещё раз. Вставляем на форму кнопку с кодом:

Sub Click(Source As Button) '1
Dim ws As New NotesUIWorkspace '2
Dim uidoc As NotesUIDocument '3
Set uidoc = ws.CurrentDocument '4
Call uidoc.Document.ReplaceItemValue("SaveOptions", "1") '5
Call uidoc.Refresh(True) '6
uidoc.Close '7
End Sub '8

Открываем новый документ по данной форме, жмём кнопку — вуаля, в базе сохранился документ и никаких запросов. Стоит закомментировать строку 5 или 6 — запрос выводится, а документ сохраняется только при нажатии "Да".

 

[Akupaka]

nvy
Хочешь я расскажу тебе страаашную тайну о том, как маленький метод uidoc.Refresh(True) сохраняет документ? ))
Причем, SaveOptions тут роли не играет. Я вот не помню, кажется должно быть RT-поле на форме еще.
Могу и ошибаться, т.к. на глюк этот наталкивался, но особо не плясал вокруг него.

 

[nvyush]

nvy
Хочешь я расскажу тебе страаашную тайну о том, как маленький метод uidoc.Refresh(True) сохраняет документ? ))
Причем, SaveOptions тут роли не играет. Я вот не помню, кажется должно быть RT-поле на форме еще.
Могу и ошибаться, т.к. на глюк этот наталкивался, но особо не плясал вокруг него.

Мои эксперименты говорят об обратном. uidoc.Refresh(True) сохраняет документ без запроса при наличии поля SaveOptions = "1" даже при отсутствии РТ-поля и даже (о ужас!) при Continue = False в Querysave. Стоит убрать SaveOptions и сохранения документа при uidoc.Refresh(True) не происходит.
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">Кому интересно, можно провести несложный опыт</div></div><div class="sp-body"><div class="sp-content">Создаём форму, на ней текстовые вычисляемые поля Form и SaveOptions="1".
Добавляем обработку события:

Sub Querysave(Source As Notesuidocument, Continue As Variant)
Continue = False
End Sub

Добавляем кнопку с кодом:

Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.Refresh(True)
uidoc.Save
End Sub

Открываем форму, жмём кнопку, получаем сообщение "Сохранение отменено" и видим в базе сохранённый документ.
Убираем SaveOptions, открываем форму, жмём кнопку, получаем сообщение "Сохранение отменено" и документа в базе не видим.
Так что утверждение "SaveOptions тут роли не играет" не соответствует действительности.

 

[Akupaka]

Так что утверждение "SaveOptions тут роли не играет" не соответствует действительности.

Согласен
Думаю, когда я с этим игрался, то я просто не обратил внимание было ли поле SaveOptions - форма была не тестовая, а огромная.
Даа... Хитрое поле