Различия
Здесь показаны различия между выбранной ревизией и текущей версией данной страницы.
|
ru:creating_user_reports:use_macros_in_reports:examples:typelink_with_subject [2013/10/17 11:58] 127.0.0.1 внешнее изменение |
ru:creating_user_reports:use_macros_in_reports:examples:typelink_with_subject [2018/04/09 15:33] (текущий) |
||
|---|---|---|---|
| Строка 3: | Строка 3: | ||
| ===== Текущая ситуация ===== | ===== Текущая ситуация ===== | ||
| - | Структурирование информации позволяет "разложить все по полочкам" в голове человека, быстрей и проще понять предоставляемую информацию. Такой же подход требуют себе задачи, решаемые через программные продукты, например, Business Studio. В то же время, при разработке отчетов это означает, что каждой выделенной структуре, например, в таблице, требуется отдельный столбец. В некоторых случаях это бывает неудобно по причине нехватки места на листе. И если совместить данные некоторые столбцов в одном определенным способом, то читабельность документа от этого не уменьшиться. | + | Структурирование информации позволяет "разложить все по полочкам" в голове человека, быстрей и проще понять предоставляемую информацию. Такой же подход требуют себе задачи, решаемые через программные продукты, например, Business Studio. В то же время, при разработке отчетов это означает, что каждой выделенной структуре, например, в таблице, требуется отдельный столбец. В некоторых случаях это бывает неудобно по причине нехватки места на листе. И если совместить данные некоторых столбцов в одном определенным способом, то читабельность документа от этого не уменьшиться. |
| ===== Постановка задачи ===== | ===== Постановка задачи ===== | ||
| Строка 9: | Строка 9: | ||
| В отчете формата Word по процессу в таблице со столбцами процессов, субъектов процесса и типа связи субъекта с процессом сделать так, чтобы тип связи показывался не отдельным столбцом, а в столбце с субъектом. При этом: | В отчете формата Word по процессу в таблице со столбцами процессов, субъектов процесса и типа связи субъекта с процессом сделать так, чтобы тип связи показывался не отдельным столбцом, а в столбце с субъектом. При этом: | ||
| - | - При выводе в HTML (HTML-публикация или Business Studio Portal) ссылка на субъект должна остаться ссылкой, а название вида связи должно быть черным цветом как это было и в столбце с названием вида связи. | + | - При выводе в HTML (HTML-публикация или Business Studio Portal) ссылка на субъект должна остаться ссылкой, а название вида связи должно быть черным цветом, как это было и в столбце с названием вида связи. |
| - При выводе в Word название типа связи должно быть цветом, отличным от названия субъекта для большей читабельности (например, серый цвет) и курсивом. | - При выводе в Word название типа связи должно быть цветом, отличным от названия субъекта для большей читабельности (например, серый цвет) и курсивом. | ||
| Строка 38: | Строка 38: | ||
| После окончания переноса всех типов связей удалить столбец "Тип связи" и поправить таблицу к обычному виду. | После окончания переноса всех типов связей удалить столбец "Тип связи" и поправить таблицу к обычному виду. | ||
| - | <code vb> | + | <code> |
| Sub ПослеВыполненияОтчета(ob As Variant, app As Variant) | Sub ПослеВыполненияОтчета(ob As Variant, app As Variant) | ||
| Строка 47: | Строка 47: | ||
| Bookmark = "Подпроцессы_и_исполнител_83cdcd34" | Bookmark = "Подпроцессы_и_исполнител_83cdcd34" | ||
| - | 'Номер столбца с название Субъекта | + | 'Номер столбца с названием Субъекта |
| Dim ColumnSubject As Integer | Dim ColumnSubject As Integer | ||
| ColumnSubject = 3 | ColumnSubject = 3 | ||
| Строка 55: | Строка 55: | ||
| ColumnTypeLink = 4 | ColumnTypeLink = 4 | ||
| - | 'текст, являющийся разделителем между Субъектом и типом всязи | + | 'текст, являющийся разделителем между Субъектом и типом связи |
| Dim Separator As String | Dim Separator As String | ||
| Separator = " / " | Separator = " / " | ||
| Строка 175: | Строка 175: | ||
| countCharClean = 2 ' кол-во символов для удаления | countCharClean = 2 ' кол-во символов для удаления | ||
| - | If Len(CellText) > countCharClean Then 'если символов больше чем будем удалять | + | If Len(CellText) > countCharClean Then 'если символов больше, чем будем удалять |
| 'убираем последние символы (для текста ячейки - это чистый текст) | 'убираем последние символы (для текста ячейки - это чистый текст) | ||
| Строка 194: | Строка 194: | ||
| ===== Результат ===== | ===== Результат ===== | ||
| - | [{{ ru:creating_user_reports:use_macros_in_reports:typelink_with_subject:end1word.png?nolink |Рисунок 4. Вид выполненного отчета формата Word после решения задачи кодом VBA}}] | + | [{{ ru:creating_user_reports:use_macros_in_reports:typelink_with_subject:end1word.png?nolink |Рисунок 4. Вид выполненного отчета формата Word после решения задачи кодом VBA}}] |
| - | [{{ ru:creating_user_reports:use_macros_in_reports:typelink_with_subject:end2html.png?nolink |Рисунок 5. Вид выполненного отчета в HTML-публикации после решения задачи кодом VBA}}] | + | [{{ ru:creating_user_reports:use_macros_in_reports:typelink_with_subject:end2html.png?nolink |Рисунок 5. Вид выполненного отчета в HTML-публикации после решения задачи кодом VBA}}] |
| + | |||
| + | |||
| + | |||
| + | |||
| + | |||
| + | |||
| + | |||
| + | [<contextnavigator>] | ||
