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

  • Автор темы oxystile
  • Дата начала
O

oxystile

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

Sandr

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

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

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

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
Не понятно. Бэкэнд документ в любом случае существует в памяти.
Как я понял из кода, это попытка поймать возможный конфликт?
 
A

Akupaka

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

oxystile

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

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

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
Свежая копия получается через NotesView.GetDocumentByKey.
 
A

Akupaka

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

noteDatabase.GetDocumentByID
noteDatabase.GetDocumentByUNID
 
O

oxystile

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

Akupaka

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

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
Save вернет False только если не сможет сохранить. В остальных случаях(даже если документ не изменился) Save вернет True.
 
A

Akupaka

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

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

Код:
	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

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

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
Если из базы, то не будет.
А если взятый документ открыт в UI, как в нашем случае, то только, если не сможет сохранить. :)
 
O

oxystile

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

1. если документ без бэкенда, то этот код работает как часы:
Код:
uidoc.EditMode=True 
If ws.DialogBox( "ChangeCrok" , True, True , True, False , False , False , "Запрос на продление", doc1, False, True, True )=True Then
Call doc.replaceitemvalue("WhishCrok", doc1.getitemvalue("crok") )
If Not doc.Save(False,False) Then
Msgbox "Сохранение не удалось после вызова /запрос на продление/" 
Exit Sub
End If
Call uidoc.RefreshHideFormulas	' надо, иначе на экране не появляется WhishCrok (WhishCrok скрыто если="")
End If
2. но вот если есть бэкэнд документ, работает только так:
Код:
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("WhishCrok", doc1.getitemvalue("crok") )
crok=doc1.getitemvalue("crok")
If Not docFirst.Save(False,False) Then
Msgbox "Сохранение не удалось после вызова /запрос на продление/" 
Exit Sub
End If
Call uidoc.Close ' приходится переоткрыть, т.к.WhishCrok не появился
Call ws.EditDocument(True, docFirst)
end if
 
P

phantom76

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

ToxaRat

Чёрный маг
Green Team
06.11.2007
3 332
42
BIT
0
та что переоткрыть документ в режиме просмотра не получиться
насколько это жестоко :D
особенно учитывая что Call notesUIDocument.Reload( ) на чтении не работает
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!