Sub Test()
    Dim NormSettingTables
    Dim TableParams
    Dim TableParamValue
    Dim ArrayIdTableParamValue()
    Dim cnP
    Dim flg
    Dim IdTableValue
    
    Set NormSettingTables = TCSApp.GetNormSettingTables
    If NormSettingTables.RunModuleForSelect("Выберите таблицу трудового нормирования", False) Then
        Set TableParams = NormSettingTables.Properties("TableParams").AsIDispatch
        cnP = 0
        flg = True
        TableParams.First
        Do While Not TableParams.EOF
            Redim Preserve ArrayIdTableParamValue(cnP)
            Set TableParamValue = TableParams.Properties("TableParamValue").AsIDispatch
            If TableParamValue.RunModuleForSelect("Выберите значение для: "+TableParams.Properties("TABLE_PARAM_NAME").DisplayText, False) Then
                ArrayIdTableParamValue(cnP) = TableParamValue.Properties("ID").AsInteger
            Else
                flg = False
                Exit Do
            End If
            TableParams.Next
            cnP = cnP + 1
        Loop
        Set TableParamValue = Nothing
        Set TableParams = Nothing
        
        If flg Then
            IdTableValue = NormSettingTables.GetIDTableValue( ArrayIdTableParamValue )
            If IdTableValue = -1 Then
                Call TCSApp.ShowMessageBox("Сообщение", "Такого значения таблица не имеет!" )
            Else
                Call TCSApp.ShowMessageBox("Сообщение", "ID табличного значения: " + cStr(IdTableValue) )
            End If
        End If
    End If
    Set NormSettingTables = Nothing
End Sub