Dim TCS As CSDN.TCS
Dim App As CSDN.Tcs_Application
Sub Test()
    Call Login
    
    Dim Commands As CSDN.DocCommands
    
    If App.Folders.RunModuleForSelect("Выберите документ", False) > 0 Then
    
        If Len(App.Folders.Properties("LOCKUSR_NAME").DisplayText) > 0 Then
        
            Set Commands = App.Folders
            
            Call Commands.SaveDoc
            
            Set Commands = Nothing
        
        Else
        
            MsgBox "Документ не открыт!"
        
        End If
        
    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