ArchiveTree(AddAccess As Boolean) As ArchiveTree ( PropertyGet )

Получить дерево разделов архива

Синтаксис:

objectvariable.ArchiveTree( AddAccess )

objectvariable - IOcs_Application

AddAccess - логическое значение: True - показать только разделы доступные для создания новых документов, False - показать все

Возвращает: указатель на ArchiveTree


Пример на VB:
Dim OCS As CSDN.OCS
Dim App As CSDN.Ocs_Application
Sub Test()
    Call Login
    
    Dim aTree As CSDN.ArchiveTree
    
    Set aTree = App.ArchiveTree(False)
    
    I = aTree.ShowModal("Классификатор архива документов")
        
    Set aTree = Nothing
    
End Sub
Sub Login()
    
    If OCS Is Nothing Then Set OCS = CreateObject("CSDN.OCS")
    
    If App Is Nothing Then Set App = OCS.Login 
    
End Sub