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

Тема в разделе "Lotus - Программирование", создана пользователем seagullD, 18 ноя 2009.

Статус темы:
Закрыта.
  1. seagullD

    seagullD Гость

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

    KFire3 Гость

    Код (Text):
    Set newdoc = db.CreateDocument

    newdoc.Form = "DBInventory"
     
  3. Klido

    Klido Гость

    есть стандартное средство - база типа Catalog (catalog.nsf на сервере по умолчанию и задача соответствующая). Там есть данные в достаточном кол-ве.
    Рекомендую посмотреть в админском хелпе тему "The Domain Catalog" - возможно ничего кодировать и не надо...
     
  4. Efimenko

    Efimenko Гость

    Где то так:

    Код (Text):
    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)
     
  5. seagullD

    seagullD Гость

    Спасибо большое, вы мне очень помогли ))
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей