OpenDoc(CmdID As Long) ( Function )

Выгрузить документ в папку по умолчанию и выполнить команду над активным файлом

Синтаксис:

objectvariable.OpenDoc( CmdID )

objectvariable - DocCommands

CmdID - идентификатор команды или -1 для того чтобы просто выгрузить тела файлов без выполнения команды или -2 чтобы блокировать на редактирование


Пример на VB:
Dim TCS As CSDN.TCS
Dim App As CSDN.Tcs_Application
Sub Test_1()
    Call Login
    
    Dim Commands As CSDN.DocCommands
    
    If App.Folders.RunModuleForSelect("Выберите документ", False) > 0 Then
    
        Set Commands = App.Folders
        'просто выгрузка без блокировки        
        Call Commands.OpenDoc(-1)
            
        Set Commands = Nothing
        
    End If
    
End Sub
Sub Test_2()
    Call Login
    
    Dim Commands As CSDN.DocCommands
    
    If App.Folders.RunModuleForSelect("Выберите документ", False) > 0 Then
    
        Set Commands = App.Folders
        'выгрузка с блокировкой
        Call Commands.OpenDoc(-2)
            
        Set Commands = Nothing
        
    End If
    
End Sub
Sub Test_3()
    Call Login
    
    Dim Commands As CSDN.DocCommands
    Dim FileCommands As CSDN.FileTypeCommands
    
    If App.Folders.RunModuleForSelect("Выберите документ", False) > 0 Then
    
        Set FileCommands = App.Folders.Properties("COMMANDS").AsIDispatch
    
        If FileCommands.RunModuleForSelect("Выберите команду", False) > 0 Then
    
            Set Commands = App.Folders
            
            Call Commands.OpenDoc(FileCommands.Properties("ID").AsInteger)
                
            Set Commands = Nothing
        
        End If
        
        Set FileCommands = Nothing
        
    End If
    
End Sub
Sub Login()
    
    If TCS Is Nothing Then Set TCS = CreateObject("CSDN.TCS")
    
    If App Is Nothing Then Set App = TCS.Login 
    
End Sub