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

  • Автор темы seagullD
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

seagullD

#1
Уважаемые программисты. Нужно собрать информацию по каждой БД, находящейся в каталоге …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 Nothing
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]
 
K

Klido

#3
Нужно собрать информацию по каждой БД, находящейся в каталоге …
есть стандартное средство - база типа Catalog (catalog.nsf на сервере по умолчанию и задача соответствующая). Там есть данные в достаточном кол-ве.
Рекомендую посмотреть в админском хелпе тему "The Domain Catalog" - возможно ничего кодировать и не надо...
 
E

Efimenko

#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)
 
Статус
Закрыто для дальнейших ответов.