Someone Else Modified This Document At The Same Time

[dimat]

Пытаюсь скопировать документы из бд(находится на локальном диске) в бд на сервере.
Код:

Dim ns As New NotesSession
Dim db As NotesDatabase
Dim dbs As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument

Set db=ns.CurrentDatabase
Set dbs=ns.GetDatabase("kir/kod","db.nsf",False)
If dbs Is Nothing Then
Print "db is nothing"
Exit Sub
End If
Set view=db.GetView("View")
Set doc=view.GetFirstDocument
While Not doc Is Nothing
Call doc.CopyToDatabase(dbs)
Set doc=view.GetNextDocument(doc)
Wend

На первом же документе в строчке

Call doc.CopyToDatabase(dbs)

Вываливается ошибка:
Notes error: Someone else modified this document at the same time(c:\local_db.nsf)

В чем дело?

 

[alik86]

По всей видимости в "проклятой" блокировке документов...

 

[dimat]

По всей видимости в "проклятой" блокировке документов...

Call doc.UnLock

Поможет?

 

[alik86]

А чёрт его знает.
Если выполняются условия:
IsDocumentLockingEnabled in NotesDatabase must be True or this method raises an error.
This method raises an error if the current user is not one of the lock holders and does not have lock breaking authority.
то глядишь и поможет.
Тут скорей поможет удаление полей $Writers и $WritersDate (вроде они отвечают за блокировку)
Да и в блокировке ли дело?..