связка между базами

[makaset]

привет Всем. Такая ситуация. есть на сервер две базы мен надо сделать что при регистрации документа если документ совподает оприделенным усовиям тогда дублировать на другую базу т.е

база 1
база2
регистрация документа
если база1.поле1 = "sdfsd" тогда
база2 создать новый докумет
база2.поле1 = база1.поле1
база2.поле2 = база1.поле2


за ранее благодарен

 

[Sandr]

dim db1 as notesdatabase
dim db2 as notesdatabase
dim doc1 as notesdocument
dim doc2 as notesdocument
dim server as string
dim dbfile as string
dim ws as new notesuiworkspace

set doc1 = ws.currentdocument.document
set db1 = doc.parentDatabase

'тут не понятно, какие данные у вас есть, для того, что бы получить вторую БД, в моем примере у вас есть имя сервера и имя БД (server, dbfile)

server = "My\Server\Name
dbfile = "MyDatabase.nsf"
set db2 = New NotesDatabase( server, dbfile )

if doc.getItemvalue("поле1")(0) = "sdfsd" then
'тут не понятно, Вам нужен во второй базе такой же докумет как и в первой, или другой, но с наличием этих же полей?
Set doc2 = doc1.CopyToDatabase( db2 ) 'Это копирование
end if

 

[fvoice]

Для: makaset
а в чем проблема то?
после проверки, можно просто создать документ во второй БД, можно использовать метод CopyToDatabase:

Set newNotesDocument = notesDocument.CopyToDatabase( notesDatabase )