Как вывести результаты работы LS на страницу

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

Guest_lek

#1
Здравствуйте.
Хочу чтобы при открытии базы на странице была некоторая статистика: число документов, размеры вложений и т.д.
Создал вычисляемое поле, в нём вывожу:
имя пользователя: @Name([CN]; @UserName),
почтовый файл: @Subset(@MailDbName; -1),
почтовый сервер: @Subset(@MailDbName; 1),
имя базы данных: @Subset(@DbName; -1)

На LS получил число документов и их размер:
Код:
Sub Onload(Source As Notesuidocument)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim n As Integer
Set db = session.CurrentDatabase
Set collection = db.AllDocuments
n = collection.Count
Messagebox(n & " documents in database")
i=0

Set collection = db.AllDocuments
Set doc = collection.GetFirstDocument
While Not(doc Is Nothing)
i=i+doc.Size
Set doc = collection.GetNextDocument(doc)
Wend
Messagebox("All size of documents: " & i & " bytes")
End Sub
Не могу разобраться, как вывести их на странице, а не в MessageBox
 

GROMILA

Well-known member
08.04.2004
297
0
#2
Боюсь, что для LS-вычислений ты не сможешь использовать возможности страницы, так как там есть только Computed Text, который ограничен формулами.

Можно использовать вместо страницы форму и хранить отдельный документ со всей логикой вычислений.

Если нужно совместить отображение Формы+Страница (outline) то прийдется дробить на соответствующие фреймы.

Может и лучше способ есть, пусть люди скажут.
 
N
#3
вместо страницы используй форму, создай скрытое вычисляемое при создании поле SaveOptions со значением "0".
 
Статус
Закрыто для дальнейших ответов.