Dim TCS As CSDN.TCS
Dim App As CSDN.Tcs_Application
Sub Test()
    Call Login
    
    Dim App2 As CSDN.ITcs_Application2
    Set App2 = App
    
    If App.NmkClasses.RunModuleForSelect("Выберите класс", False) Then
    
        Dim NmkClassif As CSDN.NmkClassificator
        Set NmkClassif = App2.NmkClassificator(App.NmkClasses.Properties("ID").AsInteger)
        
        I = NmkClassif.ShowModal("Классификатор номенклатуры")
        
        Set NmkClassif = 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