Sub Test()
    
    Dim I
    Dim NormSettingTables
    Dim TableValues
    Dim TableParams
    Dim TableParamValue
    
    Set NormSettingTables = TCSApp.GetNormSettingTables
    
    If NormSettingTables.RunModuleForSelect("Выберите таблицу трудового нормирования", False) Then
        
        Set TableValues = NormSettingTables.Properties("TableValues").AsIDispatch
        I = TableValues.ShowModal("Таблица значений")
        Set TableValues = Nothing         
        
        Set TableParams = NormSettingTables.Properties("TableParams").AsIDispatch
        If TableParams.RunModuleForSelect("Выберите параметр таблицы", False) Then
            Set TableParamValue = TableParams.Properties("TableParamValue").AsIDispatch
            I = TableParamValue.ShowModal("Значения параметра таблицы")
            Set TableParamValue = Nothing         
        End If
        Set TableParams = Nothing         
        
    End If
    
    Set NormSettingTables = Nothing
End Sub