• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Как обратиться ко встроенной вьюшке на форме ?

  • Автор темы Sandro
  • Дата начала
S

Sandro

Есть форма, на ней расположена вьюшка отображающая все респонсы документа, на основе полей формы и вьюшки надо создать печатный документ в word.
Не пойму как обратиться ко встроенной вьюхе , что бы считать с неё содержимое
 
S

susinmn

Есть форма, на ней расположена вьюшка отображающая все респонсы документа, на основе полей формы и вьюшки надо создать печатный документ в word.
Не пойму как обратиться ко встроенной вьюхе , что бы считать с неё содержимое

А что тебе мешает получить коллекцию документов *на основе полей формы*? и *создать печатный документ в word* на основе тек. документа и выше указанной коллекции :(
 
S

Sandro

А что тебе мешает получить коллекцию документов *на основе полей формы*? и *создать печатный документ в word* на основе тек. документа и выше указанной коллекции :(
Ну в теории понял,а можно примерчик ,а то учусь тока и туговато соображаю (((
 
O

Omh

Взять вложенное view из базы (Set view = db.GetView(EMBEDDED_VIEW_NAME))
Взять коллекцию по ключу, который в твоём случае совпадёт с формулой из ShowSingleCategory.
Обработать коллекцию.
Усё.
 
S

Sandro

Взять вложенное view из базы (Set view = db.GetView(EMBEDDED_VIEW_NAME))
Взять коллекцию по ключу, который в твоём случае совпадёт с формулой из ShowSingleCategory.
Обработать коллекцию.
Усё.
Делаю вот так
Код:
Dim collection As NotesDocumentCollection
Set collection = db.Search("@Responses",Nothing,0)
Messagebox collection.Count,,"!"
If collection.Count>0 Then
Set tdoc=collection.GetFirstDocument	

Do Until tdoc Is Nothing 

Messagebox tdoc.fld_parent(0), ,"!"
Set tdoc=collection.GetNextDocument(tdoc)

Loop		

End If
Ничерта не возвращает (((((
 
S

susinmn

Если у тебя во вью первая колонка @Text($ref), а в ShowSingleCategory @Text(@DocumentUniqueID) тогда


Set collection = doc.Responses, где doc текущий документ. Если ты жмешь кнопку из документа, то doc получаешь, как
Dim ws As New NotesUIWorkspace
Set doc=ws.CurrentDocument.Document
 
L

lotsman

столкнулся с такой же траблой.
Sandro, подскажи чем закончилось.
имеется тоже встроеная вьюха с отобранными дочерними доками, подскажи как решил проблему?
спасибо. если не трудно кинь образчик ;)
 

Cleric-Lviv

Well-known member
03.01.2008
603
0
BIT
0
lotsman

ну посмотрите ви чуть више, уже все написали:rolleyes:
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!