Создать документ по форме другой БД

wowa

Well-known member
01.02.2007
845
0
#1
Подскажите, пожалуйста...
Как Создать документ по форме другой БД?
 

morpheus

скриптописец
07.08.2006
3 915
1
#2
Для: wowa
Код:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = db.CreateDocument
doc.Subject = "New building"
Call doc.Save( True, True )
Вместо Set db = session.CurrentDatabase - привязка к нужной Вам базе
 

wowa

Well-known member
01.02.2007
845
0
#3
Для: Morpheus
листал я этот код и как -то не заострил внимания.
Спасибо , ща проверю
 

morpheus

скриптописец
07.08.2006
3 915
1
#4
<!--QuoteBegin-wowa+28:08:2007, 09:55 -->
<span class="vbquote">(wowa @ 28:08:2007, 09:55 )</span><!--QuoteEBegin-->ща проверю
[snapback]76553" rel="nofollow" target="_blank[/snapback]​
[/quote]
гы-гы нюню... IBM хэлп проверять....
 

wowa

Well-known member
01.02.2007
845
0
#5
Для: Morpheus
)))
doc.Subject = "New building"
А что оно делает?
Создает документ по форме "New building"
 

Omh

Lotus team
04.07.2007
2 210
1
#6
Если надо создать док на форме, то сделай
Call doc.ReplaceItemValue("Form", "DESIRED_FORM")
перед сохранением или открытием, что там надо...
 

wowa

Well-known member
01.02.2007
845
0
#7
Для: Omh
пробовал что-то не получается....

Нужно, чтобы создался документ по форме другой БД
 

morpheus

скриптописец
07.08.2006
3 915
1
#9
<!--QuoteBegin-wowa+28:08:2007, 10:19 -->
<span class="vbquote">(wowa @ 28:08:2007, 10:19 )</span><!--QuoteEBegin-->doc.Subject = "New building"
А что оно делает?
Создает документ по форме "New building"
[snapback]76559" rel="nofollow" target="_blank[/snapback]​
[/quote]
Присваивает полю Subject значение "New building"

<!--QuoteBegin-wowa+28:08:2007, 10:30 -->
<span class="vbquote">(wowa @ 28:08:2007, 10:30 )</span><!--QuoteEBegin-->Нужно, чтобы создался документ по форме другой БД
[snapback]76564" rel="nofollow" target="_blank[/snapback]​
[/quote]
Ну так и напишите
doc.Form = "My_Cool_Form"
 

Omh

Lotus team
04.07.2007
2 210
1
#10
Что-то в этом роде

Dim Db as New NotesDatabase(DESIRED_DB_SERVER, DESIRED_DB_FILEPATH)
Dim NewDoc as NotesDocument
Set NewDoc = db.CreateDocument
Call NewDoc.ReplaceItemValue("Form", DESIRED_FORM)
Call NewDoc.Save(True, False)
 

wowa

Well-known member
01.02.2007
845
0
#11
Для: Omh
все равно что-то не соображаю, создает документ с одним полем, хотя в той форме куча полей
 

morpheus

скриптописец
07.08.2006
3 915
1
#12
Для: wowa
в свойствах дока посмотрите чему равно поле Form , вот той форме оо и должно быть равно что Вам надо.

косяк может быть из-за того что в базе определена форма по умолчанию
 

Omh

Lotus team
04.07.2007
2 210
1
#13
Для: wowa
Ну если хочешь, что бы появились поля видимые на форме, то можно после присваивания формы, но перед сохранением сделать ComputeWithForm.
Но я бы не советовал: метод тормознутый, да и вообще, кмк, если разработчик начинает широко использовать ComputeWithForm - нехороший знак для системы <_<