Добрый день.
Скажите, пожалуйста, почему может выскакивать такая ошибка?
Cannot remove NotesDocument when instantiated NotesUIDocument
Есть агент, который запускается нажатием на кнопку. В нем рассматривается коллекция выделенных документов, из которых берутся данные и объединяются в один документ, старые документы удаляются. И вот время от времени (не могу поймать ситуацию, при каких условиях) выскакивает такая ошибка.
Код примерно такой:
[codebox]Sub Initialize
Dim ses As New NotesSession
Dim db As NotesDatabase
Dim uws As New NotesUIWorkspace
Dim doc As NotesDocument
Dim col As NotesDocumentCollection
Dim MergedDoc As NotesDocument
Set db = ses.CurrentDatabase
Set col = db.UnprocessedDocuments
Set doc = col.GetFirstDocument
Set MergedDoc = db.CreateDocument ‘общий документ
While Not (doc Is Nothing )
Бла-бла-бла (заполняются всякие поля)
Set doc = col.GetNextDocument(doc)
Wend
Call col.RemoveAll(True)
Call uws.ViewRefresh()
Call MergedDoc.Save(True,True)
End Sub
[/codebox]
Документы могут быть только что созданы и сразу объединены. Может быть дело в этом? Нужно обновить индекс?
В общем, помогите чем можете!
Заранее спасибо.
Скажите, пожалуйста, почему может выскакивать такая ошибка?
Cannot remove NotesDocument when instantiated NotesUIDocument
Есть агент, который запускается нажатием на кнопку. В нем рассматривается коллекция выделенных документов, из которых берутся данные и объединяются в один документ, старые документы удаляются. И вот время от времени (не могу поймать ситуацию, при каких условиях) выскакивает такая ошибка.
Код примерно такой:
[codebox]Sub Initialize
Dim ses As New NotesSession
Dim db As NotesDatabase
Dim uws As New NotesUIWorkspace
Dim doc As NotesDocument
Dim col As NotesDocumentCollection
Dim MergedDoc As NotesDocument
Set db = ses.CurrentDatabase
Set col = db.UnprocessedDocuments
Set doc = col.GetFirstDocument
Set MergedDoc = db.CreateDocument ‘общий документ
While Not (doc Is Nothing )
Бла-бла-бла (заполняются всякие поля)
Set doc = col.GetNextDocument(doc)
Wend
Call col.RemoveAll(True)
Call uws.ViewRefresh()
Call MergedDoc.Save(True,True)
End Sub
[/codebox]
Документы могут быть только что созданы и сразу объединены. Может быть дело в этом? Нужно обновить индекс?
В общем, помогите чем можете!
Заранее спасибо.