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
        
    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)
           
            NmkSpec.BeginUpdate
            
            NmkSpec.Properties("NMK_CLASSIF_TYPE_NOTE").SortType = stAscending
            NmkSpec.Properties("SPEC_POS_NUM").SortType = stAscending
            
            NmkSpec.EndUpdate
            
            I = NmkSpec.ShowModal("Убедимся что сработало!")
            
            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