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

Тема в разделе "Lotus - Программирование", создана пользователем LuMee, 2 авг 2006.

  1. LuMee

    LuMee Well-Known Member

    Регистрация:
    2 май 2006
    Сообщения:
    477
    Симпатии:
    0
    В одной из тем неподалеку была высказана мысль, что документы можно скопировать из одной базы в другую, сохранив их UNID'ы. На днях попытался такое осуществить следующим образом:
    Код (Text):
    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
    Данный скрипт отрабатывает без каких-либо ошибок, однако в архивной базе ничего не создается, т.е. она так и остается пустой. Может кто-нибудь подсказать, в чем затык?
     
  2. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    1. С правами в базе что-нибудь не так.
    2. В представлении неправильная формула отбора.
     
  3. LuMee

    LuMee Well-Known Member

    Регистрация:
    2 май 2006
    Сообщения:
    477
    Симпатии:
    0
    Все, разобрался, мой глюк :(
     
Загрузка...

Поделиться этой страницей