Sub Test()
    
    Dim I
    Dim RationingTables
    Dim TableValues
    Dim TableParams
    Dim TableParamValue
    
    Set RationingTables = TCSApp.GetRationingTables
    
    If RationingTables.RunModuleForSelect("Выберите таблицу материального нормирования", False) Then
        
        Set TableValues = RationingTables.Properties("TableValues").AsIDispatch
        I = TableValues.ShowModal("Таблица значений")
        Set TableValues = Nothing         
        
        Set TableParams = RationingTables.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 RationingTables = Nothing
End Sub