J
joker_turk
прошу прощения за сумбур:
На форме лежат родительский документ и внедренная катег.вьюха
'поле - Актkey - связь родителя с документом ответа
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim collection As NotesDocumentCollection
Dim uidoc As NotesUIDocument
Set uidoc=ws.currentDocument
Set db = New NotesDatabase("", "Incass&Error_Bankomats.NSF")
' категоризbированная вьюха
Set view = db.GetView("Items")
Dim doc As NotesDocument
Set doc = view.GetDocumentByKey(Aktkey, True)
' вот здесь пытаюсь получить категорию, но получаю ее только для родительского документа - "", но в таком случае отбор не работает
Category$ = ws.CurrentDocument.Document.Categories(0)
' а как получить ее программно?
Set collection = ws.PickListCollection(PICKLIST_CUSTOM, True,db.server, db.filePath,"Items","Выберите документы для удаления", "Список документов", Category$)
формула вида @PickList([Custom] ; ""; "Items"; "Список"; "";1;Aktkey); работает но мне нужен скрипт
Заранее спасибо
На форме лежат родительский документ и внедренная катег.вьюха
'поле - Актkey - связь родителя с документом ответа
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim collection As NotesDocumentCollection
Dim uidoc As NotesUIDocument
Set uidoc=ws.currentDocument
Set db = New NotesDatabase("", "Incass&Error_Bankomats.NSF")
' категоризbированная вьюха
Set view = db.GetView("Items")
Dim doc As NotesDocument
Set doc = view.GetDocumentByKey(Aktkey, True)
' вот здесь пытаюсь получить категорию, но получаю ее только для родительского документа - "", но в таком случае отбор не работает
Category$ = ws.CurrentDocument.Document.Categories(0)
' а как получить ее программно?
Set collection = ws.PickListCollection(PICKLIST_CUSTOM, True,db.server, db.filePath,"Items","Выберите документы для удаления", "Список документов", Category$)
формула вида @PickList([Custom] ; ""; "Items"; "Список"; "";1;Aktkey); работает но мне нужен скрипт
Заранее спасибо