Здесь показаны различия между выбранной ревизией и текущей версией данной страницы.
ru:creating_user_reports:use_macros_in_reports:examples:doc_as_link [2014/03/04 11:12] barinova |
ru:creating_user_reports:use_macros_in_reports:examples:doc_as_link [2018/04/09 15:33] (текущий) |
||
---|---|---|---|
Строка 41: | Строка 41: | ||
Данная привязка выводит таблицу с названиями нормативно-справочных документов процесса и ссылками на их файлы. | Данная привязка выводит таблицу с названиями нормативно-справочных документов процесса и ссылками на их файлы. | ||
- | В качестве примера возьмем процесс А1, которые имеет свойства, представленные на рисунке ниже. | + | В качестве примера возьмем процесс А1, который имеет свойства, представленные на рисунке ниже. |
[{{ ru:creating_user_reports:use_macros_in_reports:doc_as_link:file_link5_poc_nsd.png?nolink |Рисунок 5. Вид закладки "Нормативно-справочные документы" в окне свойств процесса}}] | [{{ ru:creating_user_reports:use_macros_in_reports:doc_as_link:file_link5_poc_nsd.png?nolink |Рисунок 5. Вид закладки "Нормативно-справочные документы" в окне свойств процесса}}] | ||
Строка 62: | Строка 62: | ||
После окончания переноса всех гиперссылок удалить столбец "Файл" и привести таблицу к обычному виду. | После окончания переноса всех гиперссылок удалить столбец "Файл" и привести таблицу к обычному виду. | ||
- | <code vb> | + | <code> |
Sub ПослеВыполненияОтчета(ob As Variant, app As Variant) | Sub ПослеВыполненияОтчета(ob As Variant, app As Variant) | ||
'ВВОДНАЯ ЧАСТЬ | 'ВВОДНАЯ ЧАСТЬ | ||
- | 'название закладки для привязи типа Список, формирующей нужную таблицу | + | 'название закладки для привязки типа Список, формирующей нужную таблицу |
Dim BookmarkName As String | Dim BookmarkName As String | ||
BookmarkName = "Нормативно_справочные_до_3be042ab" | BookmarkName = "Нормативно_справочные_до_3be042ab" | ||
Строка 92: | Строка 92: | ||
countRowsTableDocs = TableDocs.Rows.Count 'количество строк таблицы | countRowsTableDocs = TableDocs.Rows.Count 'количество строк таблицы | ||
- | For i = 2 To countRowsTableDocs 'будем проходить по всем строкам таблицы кроме первой | + | For i = 2 To countRowsTableDocs 'будем проходить по всем строкам таблицы, кроме первой |
On Error Resume Next 'игнор error 5991, если какие-то ячейки имеют вертикальное объединение | On Error Resume Next 'игнор error 5991, если какие-то ячейки имеют вертикальное объединение | ||
Строка 100: | Строка 100: | ||
hLinkAdress = "" | hLinkAdress = "" | ||
- | 'Определяем текст в ячейка с файлом | + | 'Определяем текст в ячейке с файлом |
linkFileText = TableDocs.Cell(i, columnFile).Range.Text | linkFileText = TableDocs.Cell(i, columnFile).Range.Text | ||
Строка 188: | Строка 188: | ||
| Документ имеет ссылку на файл вида http:%%//%% , ftp:%%//%% | Ссылка на указанный файл | Ссылка на указанный файл | | | Документ имеет ссылку на файл вида http:%%//%% , ftp:%%//%% | Ссылка на указанный файл | Ссылка на указанный файл | | ||
| Документ имеет ссылку на локальный файл на компьютере пользователя Business Studio | Ссылка на документ в HTML | Ссылки нет | | | Документ имеет ссылку на локальный файл на компьютере пользователя Business Studio | Ссылка на документ в HTML | Ссылки нет | | ||
- | <endTableBox| Таблица 2. Возможные свойства гиперссылок в зависимости от направления вывода отчета и способа закрепления за документом файла> | + | <endTableBox| Таблица 2. Возможные свойства гиперссылок в зависимости от направления вывода отчета и способа закрепления за документом файла> |
+ | |||
+ | |||
+ | [<contextnavigator>] |