Dim TCS As CSDN.TCS
Dim App As CSDN.Tcs_Application
Sub Test()
    Call Login
    
    Dim NMks As CSDN.Nomenclatures
    Dim chModules As CSDN.DModule
    
    If App.NmkClasses.RunModuleForSelect("Выберите класс", False) Then
    
        Set NMks = App.Nomenclatures(App.NmkClasses.Properties("ID").AsInteger)
        
        If NMks.RunModuleForSelect("Выберите номенклатуру", False) Then
            
            Set chModules = NMks.ChildModules.ModuleByName("Specification").AsIDispatch
            
            I = chModules.ShowModal("Спецификация: " + NMks.Properties("Note").DisplayText + " " + NMks.Properties("Name").DisplayText)
        
            Set chModules = Nothing
        
        End If
    
        Set NMks = 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