Dim TCS As CSDN.TCS
Dim App As CSDN.Tcs_Application
Sub Test()
    Call Login
    
    Dim Nmks As CSDN.Nomenclatures
    Dim NmkPars As CSDN.ParameterValues
    Dim Nmk As CSDN.SingleNomenclature
    
    If App.NmkClasses.RunModuleForSelect("Выберите класс", False) Then
    
        Set Nmks = App.Nomenclatures(App.NmkClasses.Properties("ID").AsInteger)
        
        If Nmks.RunModuleForSelect("Выберите номенклатуру", False) Then
            
            Set NmkPars = Nmks.Properties("Parameters").AsIDispatch
            
            If NmkPars.RunModuleForSelect("Выберите параметр с типом ""Ссылка на номенклатуру""", False) Then
            
                If NmkPars.CurrentParameterNmk > 0 Then
                
                    Set Nmk = App.SingleNmkFromId(NmkPars.CurrentParameterNmk)
                
                    I = Nmk.ShowModal("Значение параметра ссылается на данную номенклатуру")
                
                    Set Nmk = Nothing
                    
                End If
            
            End If
        
            Set NmkPars = 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