• 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

Getnextdocument

  • Автор темы Автор темы gmp11
  • Дата начала Дата начала
G

gmp11

Есть такой вот агент
Код:
		Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set dc = db.AllDocuments
Set doc = dc.GetFirstDocument
While Not(doc Is Nothing)
'(ну тут он отчёт формерует)
Set doc = dc.GetNextDocument(doc)
Wend
Документы в представлении отсортированны, и как мне кажется агент должен пробигать их в порядке сортировки, а он работает так как будто я использую не GetFirstDocument\GetNextDocument, а GetNthDocument, тоесть в том порядке в котором документы заносились в базу.
 
Буа-га. :unsure:
Как там адепты христианства говорят? "Когда кажеться крестится надо, а лучше RTFM'ить"...
Смотри NotesViewEntryCollection.
 
NotesViewEntryCollection Да здравствуют все NotesViewEntryCollection
 
не долго занимаюсь лотусом, но насколько знаю, сортированы вьюхи, проще ее брать и идти по ней
вот примерно так:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView( "твоя вью" )
Set doc = view.GetNextDocument
 
autoupdate лучше выключить перед хождением по view: быстрее будет.
view.autoupdate который...
 
autoupdate лучше выключить перед хождением по view: быстрее будет.
Да даже не лучше, а обязательно. А то будут некоторые проблемы, если вдруг текущий документ исчезнет из представления, а мы попытаемся взять следующий.
 
не долго занимаюсь лотусом, но насколько знаю, сортированы вьюхи, проще ее брать и идти по ней
вот примерно так:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView( "твоя вью" )
Set doc = view.GetNextDocument
Это дело я уже зделал, и всё работает. а вот про autoupdate как то не подумал
 
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab