Пример обращения к значению переменной и данным таблицы в отчете

В шаблоне отчета «Дневная загрузка ресурса (субъекты)» демонстрационной базы данных можно посмотреть пример использования макроса для расчета суммы и вывода ее в таблицу. Отчет находится в справочнике «Отчеты объектов», в папке «Шаблоны отчетов/ФСА».

Текст макроса, выполняемого после выполнения самого отчета, представлен ниже:

Sub ПослеВыполненияОтчета(ob As Variant, app As Variant)

a = CDbl(Application.ActiveDocument.Variables("СтавкаВЧас").Value)

Set T = Application.ActiveDocument.Bookmarks("ДействияСтоимостьРесурсаИРоли").Range.Tables(1)

kol = T.Rows.Count

For i = 2 To kol - 1

Stroka = T.Cell(i, 8).Range.Text

l = Len(Stroka)

If l > 1 Then

d = CDbl(Left(Stroka, l - 1)) 'убрать последний символ ячейки

T.Cell(i, 9).Range.Text = CStr(d * a)

End If

Next i

T.Cell(kol, 9).AutoSum

End Sub

Можно получить значение переменной шаблона, обозначаемой DOCVARIABLE, по имени:

Application.ActiveDocument.Variables("<СистемноеНазваниеПривязки>").Value,

где <СистемноеНазваниеПривязки> − это название привязки, которое отображается в дереве привязок на конечной странице мастера (см. п. 12.2.1). Таким образом получены данные привязки с типом «Объект». В макросе примера так получено значение привязки «СтавкаВЧас» для дальнейшего использования.

Можно получить значение закладки шаблона, по имени:

Application.ActiveDocument.Bookmarks("<СистемноеНазваниеПривязки>").Range.Tables(1),

где <СистемноеНазваниеПривязки> − это название привязки, которое отображается в дереве привязок на конечной странице мастера (см. п. 12.2.1). Таким образом можно получить данные привязки с типом «Список», «Фильтр», «Дерево». В макросе примера получена таблица «ДействияСтоимостьРесурсаИРоли», и далее ведется работа с данными таблицы.