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

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

oxystile

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

Sandr

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

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

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

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#3
Не понятно. Бэкэнд документ в любом случае существует в памяти.
Как я понял из кода, это попытка поймать возможный конфликт?
 

Akupaka

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

oxystile

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

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

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#6
Свежая копия получается через NotesView.GetDocumentByKey.
 

Akupaka

А че я?.. О.о
04.10.2007
3 360
1
#7
doc.Save возвращает False если не было произведено изменений... зачем тогда переоткрывать?..

noteDatabase.GetDocumentByID
noteDatabase.GetDocumentByUNID
 
O

oxystile

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

Akupaka

А че я?.. О.о
04.10.2007
3 360
1
#9
дело в том еще, что если даже сохранить и удастся, но документ не изменился, и записывать на диск не надо, то Save вернет False, хотя ошибок не будет
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#10
Save вернет False только если не сможет сохранить. В остальных случаях(даже если документ не изменился) Save вернет True.
 

Akupaka

А че я?.. О.о
04.10.2007
3 360
1
#11
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

Что это ? :)
Lotus team
10.12.2004
3 346
1
#12
Если из базы, то не будет.
А если взятый документ открыт в UI, как в нашем случае, то только, если не сможет сохранить. :)
 
O

oxystile

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

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
 

ToxaRat

Чёрный маг
Lotus team
06.11.2007
3 231
18
#15
та что переоткрыть документ в режиме просмотра не получиться
насколько это жестоко :D
особенно учитывая что Call notesUIDocument.Reload( ) на чтении не работает