Dim TCS As CSDN.TCS
Dim App As CSDN.Tcs_Application
Sub Test()
    Call Login
    
    Dim NMks As CSDN.Nomenclatures
    Dim Docs As CSDN.NomenclatureDocuments
    
    If App.NmkClasses.RunModuleForSelect("Выберите класс", False) Then
    
        Set NMks = App.Nomenclatures(App.NmkClasses.Properties("ID").AsInteger)
        
        If NMks.RunModuleForSelect("Выберите номенклатуру", False) Then
    
            Set Docs = NMks.Properties("NomenclatureDocuments").AsIDispatch
        
            Call Docs.ShowMainDocument
            I = Docs.ShowModal("Только главный документ")
            
            Call Docs.ShowNomenclatureDocuments
            I = Docs.ShowModal("Все документы номенклатуры")
            
            Call Docs.ShowNmkSpecificationDocuments
            I = Docs.ShowModal("Все документы версий спецификаций")
            
            Call Docs.ShowNmkTechnologyDocuments
            I = Docs.ShowModal("Все документы версий ТП")
            
            Call Docs.ShowNmkItogSpecificationDocuments
            I = Docs.ShowModal("Все документы версий итоговых спецификаций")
            
            Call Docs.ShowAllDocuments
            I = Docs.ShowModal("Все документы")
            
            If App.Archive.RunModuleForSelect("Выберите документы для связки с номенклатурой", True) Then
                For I = 0 To App.Archive.SelectedRowsCount - 1
                  If App.Archive.GotoSelectedRow(I) Then
                      J = Docs.LinkNomenclatureToDocument(App.Archive.Properties("ID").AsInteger)
                  End If
                Next
            End If
                
            Set Docs = 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