Doc, Uidoc, бэкэнд документа

@oxystyty · Регистрация: 29.04.2006

Студворк — интернет-сервис помощи студентам

в документе кнопка, на кот повешена функция, кот. меняет поле в этом документе и сохраняет.
но при запуске кнопки возможен вариант, когда уже существует бэкенд документ и следовательно действия кнопки невозможно
поэтому сперва в кнопке стоит переоткрытие
If Not doc.Save(False,False) Then
Set uidoc = ws.EditDocument( False,doc,,,, False)
ну, вот не работает это переоткрытие, не получаю на экран свежую версию документа
а писать пользователям "переоткройте док вручную" - не катит

@Somdr · 29.07.2008, 20:03

call uidoc.close
Set uidoc = ws.EditDocument( False,doc,,,, False)

А ваще, если док, который существует у вас на бекэнде получен с текущего уидока, то вообще нет смысла переоткрывать документ, так как данные будут актуальны и на уидоке...

Или я ваще уже лотус забыл?

@Mydyvys · 29.07.2008, 22:59

Не понятно. Бэкэнд документ в любом случае существует в памяти.
Как я понял из кода, это попытка поймать возможный конфликт?

@okupoko · 30.07.2008, 10:44

мне кажеться, что перед тем как что-то менять в документе, взятого с УИ, нужно перевести его в режим редактирования...
NotesUIDoc.EditMode = True, если такого права нет на основании авторс-полей, то придется делать серверную обработку, если такого права нет по логике, то надо делать правку на бэкэнде и переоткрывать документ

@oxystyty · 30.07.2008, 15:06

авторс и ридерс полей нет
вот собственно в чем проблема, запускаю кнопку на открытом доке, добавила там проверку:
If Not doc.Save(False,False) Then
Messagebox "невозможно сохранить"
End If
получаю сообщение, и все, дальше с этим документом работать нельзя, надо переоткрыть вручную

а хотелось бы, если Save=False переоткрыть докумет (получить его свежую версию) чтобы уже у него можно было проводить изменения

@Mydyvys · 30.07.2008, 15:12

Свежая копия получается через NotesView.GetDocumentByKey.

@okupoko · 30.07.2008, 15:32

doc.Save возвращает False если не было произведено изменений... зачем тогда переоткрывать?..

noteDatabase.GetDocumentByID
noteDatabase.GetDocumentByUNID

@oxystyty · 30.07.2008, 17:42

doc.Save возвращает False если сохранить неудалось

@okupoko · 30.07.2008, 18:11

дело в том еще, что если даже сохранить и удастся, но документ не изменился, и записывать на диск не надо, то Save вернет False, хотя ошибок не будет

@Mydyvys · 31.07.2008, 09:25

Save вернет False только если не сможет сохранить. В остальных случаях(даже если документ не изменился) Save вернет True.

@okupoko · 31.07.2008, 11:07

Medevic
я тоже так думал, пока не написал явно

единственное, возможно мы не понимаем друг друга полностью
если док не новый, а взятый из базы, то он не будет сохранен, если его не поменяли...

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Dim s As New notessession
Dim doc As notesdocument
 
Set doc = s.currentdatabase.createdocument
If doc.save(True, False) Then
Print "saved"
Else
Print "not saved"
End If
 
Set doc = s.currentdatabase.AllDocuments.GetFirstDocument
If doc.save(True, False) Then
Print "saved2"
Else
Print "not saved2"
End If

я так думаю, что лотус перед тем как писать на диск делает сравнение данных...

@Mydyvys · 31.07.2008, 11:17

Если из базы, то не будет.
А если взятый документ открыт в UI, как в нашем случае, то только, если не сможет сохранить.

@oxystyty · 31.07.2008, 13:49

у меня получилось, работает, но код кривой ...

1. если документ без бэкенда, то этот код работает как часы:

Code
1
2
3
4
5
6
7
8
9
uidoc.EditMode=True
If ws.DialogBox( "ChangeCrok" , True, True , True, False , False , False , "Запрос на продление", doc1, False, True, True )=True Then
Call doc.replaceitemvalue("WhyshCrok", doc1.getitemvalue("crok") )
If Not doc.Save(False,False) Then
Msgbox "Сохранение не удалось после вызова /запрос на продление/"
Exit Sub
End If
Call uidoc.RefreshHideFormulas   надо, иначе на экране не появляется WhyshCrok (WhyshCrok скрыто если="")
End If

2. но вот если есть бэкэнд документ, работает только так:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
Call uidoc.Close
Set docFirst = view.GetDocumentByKey (key_ )
Set uidoc= ws.EditDocument(True, docFirst)
If ws.DialogBox( "ChangeCrok" , True, True , True, False , False , False , "Запрос на продление", doc1, False, True, True )=True Then
Call docFirst.replaceitemvalue("WhyshCrok", doc1.getitemvalue("crok") )
crok=doc1.getitemvalue("crok")
If Not docFirst.Save(False,False) Then
Msgbox "Сохранение не удалось после вызова /запрос на продление/"
Exit Sub
End If
Call uidoc.Close  приходится переоткрыть, т.к.WhyshCrok не появился
Call ws.EditDocument(True, docFirst)
end if

@phomtom76 · 16.11.2009, 16:49

та что переоткрыть документ в режиме просмотра не получиться?

@ToxoRot · 16.11.2009, 17:39

та что переоткрыть документ в режиме просмотра не получиться

насколько это жестоко :D
особенно учитывая что Call notesUIDocument.Reload( ) на чтении не работает

Новые блоги и статьи Все статьи Все блоги /
Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .

@oxystyty 0 / 0 / 0 Регистрация: 29.04.2006 Сообщений: 364

	Doc, Uidoc, бэкэнд документа 29.07.2008, 19:08. Показов 25072. Ответов 14 Метки нет (Все метки) в документе кнопка, на кот повешена функция, кот. меняет поле в этом документе и сохраняет. но при запуске кнопки возможен вариант, когда уже существует бэкенд документ и следовательно действия кнопки невозможно поэтому сперва в кнопке стоит переоткрытие If Not doc.Save(False,False) Then Set uidoc = ws.EditDocument( False,doc,,,, False) ну, вот не работает это переоткрытие, не получаю на экран свежую версию документа а писать пользователям "переоткройте док вручную" - не катит 0

@Somdr 0 / 0 / 0 Регистрация: 19.07.2007 Сообщений: 1,098
	29.07.2008, 20:03
	call uidoc.close Set uidoc = ws.EditDocument( False,doc,,,, False) А ваще, если док, который существует у вас на бекэнде получен с текущего уидока, то вообще нет смысла переоткрывать документ, так как данные будут актуальны и на уидоке... Или я ваще уже лотус забыл? 0

@Mydyvys 0 / 0 / 0 Регистрация: 04.12.2004 Сообщений: 3,329
	29.07.2008, 22:59
	Не понятно. Бэкэнд документ в любом случае существует в памяти. Как я понял из кода, это попытка поймать возможный конфликт? 0

@okupoko 0 / 0 / 0 Регистрация: 04.10.2007 Сообщений: 2,977
	30.07.2008, 10:44
	мне кажеться, что перед тем как что-то менять в документе, взятого с УИ, нужно перевести его в режим редактирования... NotesUIDoc.EditMode = True, если такого права нет на основании авторс-полей, то придется делать серверную обработку, если такого права нет по логике, то надо делать правку на бэкэнде и переоткрывать документ 0

@oxystyty 0 / 0 / 0 Регистрация: 29.04.2006 Сообщений: 364
	30.07.2008, 15:06
	авторс и ридерс полей нет вот собственно в чем проблема, запускаю кнопку на открытом доке, добавила там проверку: If Not doc.Save(False,False) Then Messagebox "невозможно сохранить" End If получаю сообщение, и все, дальше с этим документом работать нельзя, надо переоткрыть вручную а хотелось бы, если Save=False переоткрыть докумет (получить его свежую версию) чтобы уже у него можно было проводить изменения 0

@Mydyvys 0 / 0 / 0 Регистрация: 04.12.2004 Сообщений: 3,329
	30.07.2008, 15:12
	Свежая копия получается через NotesView.GetDocumentByKey. 0

@okupoko 0 / 0 / 0 Регистрация: 04.10.2007 Сообщений: 2,977
	30.07.2008, 15:32
	doc.Save возвращает False если не было произведено изменений... зачем тогда переоткрывать?.. noteDatabase.GetDocumentByID noteDatabase.GetDocumentByUNID 0

@oxystyty 0 / 0 / 0 Регистрация: 29.04.2006 Сообщений: 364
	30.07.2008, 17:42
	doc.Save возвращает False если сохранить неудалось 0

@okupoko 0 / 0 / 0 Регистрация: 04.10.2007 Сообщений: 2,977
	30.07.2008, 18:11
	дело в том еще, что если даже сохранить и удастся, но документ не изменился, и записывать на диск не надо, то Save вернет False, хотя ошибок не будет 0

@Mydyvys 0 / 0 / 0 Регистрация: 04.12.2004 Сообщений: 3,329
	31.07.2008, 09:25
	Save вернет False только если не сможет сохранить. В остальных случаях(даже если документ не изменился) Save вернет True. 0

@Mydyvys 0 / 0 / 0 Регистрация: 04.12.2004 Сообщений: 3,329
	31.07.2008, 11:17
	Если из базы, то не будет. А если взятый документ открыт в UI, как в нашем случае, то только, если не сможет сохранить. 0

@phomtom76 0 / 0 / 0 Регистрация: 21.02.2005 Сообщений: 358
	16.11.2009, 16:49
	та что переоткрыть документ в режиме просмотра не получиться? 0