во вьюхе надо создать резерв. копию

[StudentKPTK]

Ув. программисты-лотусисты, пишет вам студентКПТК с просьбой о помощи...
У меня задание во вьюхе создать кнопку(уже сделанно) и на нее накинуть лотус скрипт который будет делать их резервные копии, я сам пол месяца как столкнулся с лотусом поэтому не могу представить себе даже логики этой процедуры и не знаю даже с чего начать...
советам, подсказкам я буду безумно благодарен))))

 

[Omh]

Ты пришёл в правильное место
Тут золотые люди :blush:

делать их

чьи? выделенных документов?

 

[StudentKPTK]

Ты пришёл в правильное место
Тут золотые люди :blush:


чьи? выделенных документов?

Ага, кнопочка должна сделать их копии, буду рад если и советы ваши будут на вес золота)))))

 

[hosm]

а мы пока не совсем представляем смысл задачи

сделать их копии

куда-в каком виде (в какую-то отдельную БД (мб, новую БД, мб, новую копию или реплику существующей БД, в существующую уже где-то БД с заменой или поддержкой версионности), в dxl)?

Добавлено: что не понятно - уточняй =)

 

[alik86]

CopyToDatabase method на вес золота... :discard:

 

[StudentKPTK]

а мы пока не совсем представляем смысл задачи

куда-в каком виде (в какую-то отдельную БД (мб, новую БД, мб, новую копию или реплику существующей БД, в существующую уже где-то БД с заменой или поддержкой версионности), в dxl)?

Добавлено: что не понятно - уточняй =)

Ссори что сразу не уточнил, сам только вдуплил=) воообщем: есть вьюха в ней данные(а конкретней фамилии заполняющих анкету, ну и сами эти анкеты) и на вьюхе есть кнопка "создать резервную копию" на вью помечаем галочками фамилии нажимаем кнопку и резервные копии выделенных документов должны попасть в другую базу с названием "rez"
Как мне сказал знающий человек, для спецов вашего уровня, написать такой скрипт, это дело пяти минут=))
Всем кто поможет буду очень благодарен=)))

 

[xKlonx]

 Dim Session As New NotesSession
Dim Db As NotesDatabase
Dim Collection As NotesDocumentCollection
Dim Doc As NotesDocument


Set Db = Session.CurrentDatabase

'...set value of archiveDb...

'получаем колекцию выделенных доков
Set Collection = Db.UnprocessedDocuments

Set Doc = Collection.Getfirstdocument

While Not Doc is nothing

Call Doc.CopyToDatabase( archiveDb )

Set Doc = Collection.Getnextdocument(Doc)
wend

 

[StudentKPTK]

 Dim Session As New NotesSession
Dim Db As NotesDatabase
Dim Collection As NotesDocumentCollection
Dim Doc As NotesDocument


Set Db = Session.CurrentDatabase

'...set value of archiveDb...

'получаем колекцию выделенных доков
Set Collection = Db.UnprocessedDocuments

Set Doc = Collection.Getfirstdocument

While Not Doc is nothing

Call Doc.CopyToDatabase( archiveDb )

Set Doc = Collection.Getnextdocument(Doc)
wend

Большое и человеческое спасибо))) щас его подгоним под мою кнопку!