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

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

Sandro

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

susinmn

Well-Known Member
16.10.2007
529
8
33
Саратов
#2
Есть форма, на ней расположена вьюшка отображающая все респонсы документа, на основе полей формы и вьюшки надо создать печатный документ в word.
Не пойму как обратиться ко встроенной вьюхе , что бы считать с неё содержимое
А что тебе мешает получить коллекцию документов *на основе полей формы*? и *создать печатный документ в word* на основе тек. документа и выше указанной коллекции :(
 
S

Sandro

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

Omh

Well-Known Member
Lotus team
04.07.2007
2 210
1
37
Латвиджа, Рига
#4
Взять вложенное view из базы (Set view = db.GetView(EMBEDDED_VIEW_NAME))
Взять коллекцию по ключу, который в твоём случае совпадёт с формулой из ShowSingleCategory.
Обработать коллекцию.
Усё.
 
S

Sandro

Гость
#5
Взять вложенное 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
Ничерта не возвращает (((((
 

susinmn

Well-Known Member
16.10.2007
529
8
33
Саратов
#6
Если у тебя во вью первая колонка @Text($ref), а в ShowSingleCategory @Text(@DocumentUniqueID) тогда


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

lotsman

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