Копирование документов в другую базу

LuMee

Well-known member
02.05.2006
477
0
#1
В одной из тем неподалеку была высказана мысль, что документы можно скопировать из одной базы в другую, сохранив их UNID'ы. На днях попытался такое осуществить следующим образом:
Код:
Dim ws As New NotesUIWorkspace
Dim sess As New NotesSession
Dim archiveDb As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument, newDoc As NotesDocument

Set archiveDb = New NotesDatabase("", "MyArchive.nsf")
Set view = ws.CurrentDatabase.Database.GetView("Docs2Copy")
Set doc = view.GetFirstDocument
While Not doc Is Nothing
Set newDoc = New NotesDocument(archiveDb)
Call doc.CopyAllItems(newDoc, True)
newDoc.UniversalID = doc.UniversalID
Call newDoc.Save(True, False)
Set doc = view.GetNextDocument(doc)
Wend
Данный скрипт отрабатывает без каких-либо ошибок, однако в архивной базе ничего не создается, т.е. она так и остается пустой. Может кто-нибудь подсказать, в чем затык?
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#2
1. С правами в базе что-нибудь не так.
2. В представлении неправильная формула отбора.