Dim TCS As CSDN.TCS
Dim App As CSDN.Tcs_Application
Sub Test()
    Call Login
    
    Dim NMks As CSDN.Nomenclatures
    Dim NmkSpec As CSDN.NmkSpecification
    Dim SpecPackages As CSDN.SpecificationPackages
    
    If App.NmkClasses.RunModuleForSelect("Выберите класс", False) Then
    
        Set NMks = App.Nomenclatures(App.NmkClasses.Properties("ID").AsInteger)
        
        If NMks.RunModuleForSelect("Выберите номенклатуру", False) Then
    
            Set NmkSpec = App.NmkSpecification(NMks.Properties("ID").AsInteger, -1)
        
                Set SpecPackages = NmkSpec.Properties("SpecificationPackages").AsIDispatch
                
                I = SpecPackages.ShowModal("Исполнения версии спецификации")
                    
                Set SpecPackages = Nothing
                
            Set NmkSpec = 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