Экспорт выделенных документов в Xml

Помогите, я новичек в Lotus'e. Нужно сделать следующее:
В базе данных выделяю галочками нужные документы для экспорта.
Создаю кнопку и при нажатии на кнопку выделенные документы должны экспортироватся в xml формат.
Как это сделать на Lotus Script? может ктото скинуть код.
И если не сложно скиньте код для импорта этих созданных xml документов обратно в базу.

 

Спасибо большое=)
С Экспортом xml разобрался, остался импорт

 

Вот спасибо) щас буду разбиратся ;)

 

Получилось=)
только вот вопрос, что это?:
%REM
Dim values(5) As Variant
values(0) = DXLIMPORTOPTION_IGNORE
values(1) = DXLIMPORTOPTION_CREATE
values(2) = DXLIMPORTOPTION_REPLACE_ELSE_IGNORE
values(3) = DXLIMPORTOPTION_REPLACE_ELSE_CREATE
values(4) = DXLIMPORTOPTION_UPDATE_ELSE_IGNORE
values(5) = DXLIMPORTOPTION_UPDATE_ELSE_CREATE
Dim DocImportOption As Variant
Set DocImportOption = Wsp.Prompt (PROMPT_OKCANCELLIST, "Выбор DocumentImportOption", "Выбирай:", values(0), values)
%ENDREM

Только при импорте почемуто он заменяет старые документы, а не создает новые. Да еще и работает только с верхним уровнем документов, а с дочерними отказывается работать( пишет что импортировано но документ не заменяется(

 

Все, пофиксил, огроменное спасибо) если бы не помоги сидел бы я до 3го прихода=)

 

Осталась последняя проблема, которую не могу решить, импорт файлов

Код (LotusScript):

Sub Click(Source As Button)
Dim Session As New NotesSession
Dim Wsp As New NotesUIWorkspace
Dim db As NotesDatabase
Dim Stream As NotesStream
Dim DXLImporter As NotesDXLImporter
Dim i As Integer
Dim swch As Boolean
swch = True
i = 0
While swch = True
filename$ = "D:\Temp\Document" & i+1 & ".xml"
Set Db = Session.CurrentDatabase
Set Stream = Session.CreateStream
If Not Stream.Open(filename$) Then
swch = False
Messagebox "Импорт файлов завершен"
Exit Sub
End If
Set DXLImporter = Session.CreateDXLImporter(stream, Db)
DXLImporter.DocumentImportOption = DXLIMPORTOPTION_REPLACE_ELSE_CREATE
DXLImporter.Process
i = i + 1
Wend
Msgbox "Готово! Все документы импортированы."
End Sub

Как сделать теперь так, чтобы сохранить иерархию документов.т.е. чтобы после импорта дочерние и родительские документы сохранили свою иерархию.
Ибо после экспорта и импорта, только самые верхние документы импортируются, дочерние теряют свою иерархию.

 

Он импортирует по очереди

 

Код (LotusScript):

Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim strm As NotesStream
Dim doc As NotesDocument
Dim col As Notesdocumentcollection
Dim i As Integer
Dim ex As NotesDXLExporter
i = 0
Set db = session.CurrentDatabase
Set col=db.UnprocessedDocuments
Set doc = col.GetFirstDocument
While i < db.UnprocessedDocuments.Count
Set strm=session.CreateStream
file$="d:\Temp\Document" & i+1 & ".xml"
Call strm.Open(file$)
Call strm.Truncate
Set ex = session.CreateDXLExporter(doc ,strm)
i = i + 1
Call ex.Process
Call strm.Close
Set doc=col.GetNextDocument(doc)
Wend
Messagebox"Созданно " & i & " xml файла"
End Sub

Можно ли какнибудь сделать из этого кода экспорта, чтобы он при экспорте, если выделен галочкой дочерний документ то он проверял бы выделен ли родительский если нет выдовал сообщение: "Для экспорта выделен дочерний докумен, для экспорта требуется выделить и родительский" и выдовал варианты ответов выделить или нет. если нет то дочерний документ игнорируется если да, то ставится галочка выделения напротив родительского и дочерний экспортируется вместе с родительским.