Sub Test()
    Dim NormSettingTables
    Dim TableParams
    Dim TableParamValue
    Dim ArrayIdTableParamValue()
    Dim cnP
    Dim IdTableValue
    Dim TableValue
    Dim TableValues
    Dim I
    
    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
                ArrayIdTableParamValue(cnP) = Null
            End If
            TableParams.Next
            cnP = cnP + 1
        Loop
        Set TableParamValue = Nothing
        Set TableParams = Nothing
        
        IdTableValue = NormSettingTables.GetIDTableValue( ArrayIdTableParamValue )
        If IdTableValue = -1 Then
            Call TCSApp.ShowMessageBox("Сообщение", "Такого значения таблица не имеет!" )
        Else
            Call NormSettingTables.DeleteTableValue( IdTableValue )
            Set TableValues = NormSettingTables.Properties("TableValues").AsIDispatch
            I = TableValues.ShowModal("Смотрим удалилось ли табличное значение")
            Set TableValues = Nothing
        End If
    End If
    Set NormSettingTables = Nothing
End Sub