Someone Else Modified This Document At The Same Time

dimat

Lotus team
31.07.2008
516
0
#1
Пытаюсь скопировать документы из бд(находится на локальном диске) в бд на сервере.
Код:
Код:
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

Lotus team
20.11.2008
465
1
#2
По всей видимости в "проклятой" блокировке документов... :)
 

alik86

Lotus team
20.11.2008
465
1
#4
А чёрт его знает. :)
Если выполняются условия:
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 (вроде они отвечают за блокировку)
Да и в блокировке ли дело?..