Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lotus Notes/Domino: Программирование
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/59: Рейтинг темы: голосов - 59, средняя оценка - 4.73
syokuttD
0 / 0 / 0
Регистрация: 14.11.2009
Сообщений: 2
1

программное создание документа по форме

17.11.2009, 22:26. Просмотров 10547. Ответов 4
Метки нет (Все метки)

Уважаемые программисты. Нужно собрать информацию по каждой БД, находящейся в каталоге …Notes/Data и занести информацию в документ по форме DBInventory (для каждой БД отдельный документ). DBInventory содержит поля: DBTitle, DBFilepath, DBSize, DBReplicaID.
Начала писать код и не могу найти как создавать документ по форме. Помогите пожалуйста. ))
<!--shcode--><pre><code class=vb>Sub Click(Source As Button)
Dim dbDir As New NotesDBDirectory("")
Dim db As NotesDatabase
Dim MBc As Long
Dim DBc As Integer
Dim s As New NotesSession
Dim db1 As notesdatabase
Set db1=s.CurrentDatabase
Set db = dbDir.GetFirstDatabase(DATABASE)
Do Until db Is Nothyng
DBc=DBc+1
MBc=MBc+db.Size
Msgbox "Counter: " & DBc & Chr(10) & "Title: " & db.Title & Chr(10) & "FilePath: " & db.FilePath & Chr(10) & "Size: " & db.Size & Chr(10) & "ReplicaID: " & db.ReplicaID
Set db = dbDir.GetNextDatabase
Loop
End Sub[/CODE]
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.11.2009, 22:26
Ответы с готовыми решениями:

Создание Документа В Форме
Всем доброе утро, я новичок в Лотусе, вопрос банальный: необходимо написать...

Создание якорей в форме документа
Добрый день! Подскажите кто знает как создать якорь в форме и осуществить...

Программное создание реплики
Задача такая: Регулярно создавать реплики около десятка баз данных. Глянул...

программное создание полей
Всем,здрасте! Вопрос состоит в следющем: сотрудник должен сам добавлять...

Программное создание папок
Добрый день. Подскажите пожалуйста: программно создаю папку с помощью...

4
KFyry3
0 / 0 / 0
Регистрация: 06.11.2009
Сообщений: 14
18.11.2009, 06:46 2
Код
Set newdoc = db.CreateDocument

newdoc.Form = "DBInventory"
0
Ktydo
0 / 0 / 0
Регистрация: 28.06.2009
Сообщений: 1,567
18.11.2009, 09:11 3
Цитата Сообщение от seagullD
Нужно собрать информацию по каждой БД, находящейся в каталоге …
есть стандартное средство - база типа Catalog (catalog.nsf на сервере по умолчанию и задача соответствующая). Там есть данные в достаточном кол-ве.
Рекомендую посмотреть в админском хелпе тему "The Domain Catalog" - возможно ничего кодировать и не надо...
0
yfymymko
0 / 0 / 0
Регистрация: 14.11.2009
Сообщений: 1
18.11.2009, 09:30 4
Где то так:


Код
Const nameform="MyForm"
Dim ns As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db=ns.CurrentDatabase
Set doc=New NotesDocument(db)
doc.Form=nameform
определяем значения полей
doc.NameField1=Val1
...
если нужно вычисляем поля по форме
Call doc.ComputeWithForm(False,False)
сохраняем
Call doc.Save(False,False)
0
syokuttD
0 / 0 / 0
Регистрация: 14.11.2009
Сообщений: 2
18.11.2009, 10:18 5
Спасибо большое, вы мне очень помогли ))
0
18.11.2009, 10:18
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.11.2009, 10:18

Программное создание папок
Есть метод: Set notesView = notesDatabase.CreateView( , , , ) в...

Программное создание полей в Word
Всем привет. Вообщем задался вопросом, можно ли программно из лотус создать...

Открытие документа по родной форме
Как на Xpage вью сделать, что бы по клику на строку открывался документ, по...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru