GetRangeValues() As Variant

GetRangeValues() As Variant ( Function )

Получить таблицу значений

Синтаксис:

objectvariable.GetRangeValues

objectvariable - ITCSNormTables

Возвращает: массив со значениями таблицы (в том же виде, как построена таблица для отображения на экране, т.е. в соответствии с указанным количеством параметров для расположения по вертикали и горизонтали)
(1,1) - количество параметров по горизонтали
(1,2) - количество параметров по вертикали

Пример на VB Script:

Sub Test()
    
    Dim NormSettingTables
    Dim TableValues
    Dim HeadHSize
    Dim HeadVSize
    Dim UsrGm
    Dim cn
    Dim cnt
    
    Set NormSettingTables = TCSApp.GetNormSettingTables
    
    If NormSettingTables.RunModuleForSelect("Выберите таблицу трудового нормирования", False) Then
        
        TableValues = NormSettingTables.GetRangeValues
        
        'количество параметров по горизонтали
        HeadHSize = TableValues(1,1)
        'количество параметров по вертикали
        HeadVSize = TableValues(1,2)
        Set UsrGm = TCSApp.CreateUserGModule("GM_TestVIS")
        Call UsrGm.ClearProps
        Call UsrGm.ClearScripCommands
        UsrGm.ReadOnlyUserMode = False
        
        For cn=1 to UBound(TableValues,2)
            Call UsrGm.AddProp("P"+cStr(cn), "P"+cStr(cn), 1, True, True, 40)
        Next
        For cnt=1 to UBound(TableValues,1)
            Call UsrGm.CancelChanges
            Call UsrGm.CreateNew
            For cn=1 to UBound(TableValues,2)
                UsrGm.Properties("P" + cStr(cn)).Value = TableValues(cnt,cn)
            Next
            Call UsrGm.SaveChanges
        Next
        UsrGm.ReadOnlyUserMode = True      
        UsrGm.First
        I = UsrGm.ShowModal(NormSettingTables.Properties("NAME").DisplayText)
        
    End If
    
    Set NormSettingTables = Nothing
End Sub