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

  • Автор темы StudentKPTK
  • Дата начала
S

StudentKPTK

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

hosm

* so what *
18.05.2009
2 442
6
#4
а мы пока не совсем представляем смысл задачи
куда-в каком виде (в какую-то отдельную БД (мб, новую БД, мб, новую копию или реплику существующей БД, в существующую уже где-то БД с заменой или поддержкой версионности), в dxl)? ;)

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

StudentKPTK

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

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

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

xKlonx

Lotus team
10.09.2009
410
0
#7
Код:
 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
 
S

StudentKPTK

#8
Код:
 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
Большое и человеческое спасибо))) щас его подгоним под мою кнопку!