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

[yerke]

привет всем знатокам лотуса

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

 

[ToxaRat]

yerke
а для чего это нужно то?

 

[yerke]

а для чего это нужно то?

если помните была тема про "Note item not found"
https://codeby.net/threads/32841.html

так вот этот баг оказывается
исчезает при пересохранении документа в уи

и хотел автоматизировать это дело след. кодом

Set rdcol = cdoc.Responses
Set rdoc = rdcol.GetFirstDocument
Do While Not(rdoc Is Nothing)
'=
Set ruidoc = ws.EditDocument(True, rdoc) '===док где возникают "Note item not found"
If Not ruidoc.EditMode Then ruidoc.EditMode = True
Call ruidoc.Save()
Call ruidoc.Close(False)
Set ruidoc = Nothing	
'=
Set rdoc = rdcol.GetNextDocument(rdoc)
Loop

но при таком подходе
исчезли данные в рт полях
(думаю доки не успевают полностью открыться//загрузится в уи)


а если открыть док самаму и сохранить в иу
то все встанет ок:
данные в рт полях начинают отображаться корректно и
"Note item not found" перестает о себе напоминать

 

[turumbay]

а вот если перед
Call ruidoc.Save()
вставить Call ruidoc.refresh( true )?

 

[yerke]

а вот если перед
Call ruidoc.Save()
вставить Call ruidoc.refresh( true )?

нет не помагает

может установить какой то делей перед Call ruidoc.Save() на 2-3 секунды
а как это сделать?

 

[Klido]

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

 

[hosm]

Klido
А зачем цикл - что, Sleep уже отменили?

 

[Akupaka]

интересно, сработает ли здесь подмена обработчика собития формы...

 

[turumbay]

интересно, сработает ли здесь подмена обработчика собития формы...

смотря какого события. postopen - вряд ли. а подмена postrecalc - сработает 100 пудов.

Set ruidoc = ws.EditDocument(True, rdoc) '===док где возникают "Note item not found"
On Event Postrecalc From ruidoc Call PostrecalcHadler
...
Call ruidoc.refresh( true ) ' здесь рэйзится PostrecalcHadler
...

Private Sub PostrecalcHadler( Source As Notesuidocument )
' здесь можно сделать что-нибудь противоестесственное...
End Sub

p.s. если настоящий пострекалк формы пустой - поставить туда коммент.

 

[yerke]

причина была не в Call ruidoc.Save() и в Call ruidoc.refresh( true )
______________________________

а в Set ruidoc = ws.EditDocument(True, rdoc)

в открытом доке, с помощью данной конструкции, уже не содержались рич тексты
почему не понятно:::

а если открыть как обычно (не программно) то все ок

 

[TIA]

А не стоит ли у вас в св-вах БД "Display images after loading"? Если стоит, то снимите её. Эту галку можно ставить только если с РТ-полем нет программных операций.

 

[yerke]

А не стоит ли у вас в св-вах БД "Display images after loading"? Если стоит, то снимите её. Эту галку можно ставить только если с РТ-полем нет программных операций.

такая галка не стоит