Процедура, позволяющая быстро свернуть заголовки табличной части документа, отчета, обработки и т.д.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 |
Процедура СвернутьЗаголовкиШапкиТабличногоДокумента(ТабДок, ВысотаШапки = 0) ВысотаШапки = ?(ВысотаШапки = 0, ТабДок.ФиксацияСверху, ВысотаШапки); НачалоШапки = ?(ТабДок.ФиксацияСлева = 0, 1, ТабДок.ФиксацияСлева); Для СчетчикСтрок=1 По ВысотаШапки Цикл НомерПервойКолонкиОбъединения = 0; Для СчетчикКолонок=НачалоШапки По ТабДок.ШиринаТаблицы Цикл ОбъединятьЯчейки = Ложь; Ячейка = ТабДок.Область(СчетчикСтрок, СчетчикКолонок); Если ПустаяСтрока(Ячейка.Текст) Тогда Продолжить; КонецЕсли; ЯчейкаСлед = ТабДок.Область(СчетчикСтрок, СчетчикКолонок+1); ОбъединятьЯчейки = Ячейка.Текст = ЯчейкаСлед.Текст; Если ОбъединятьЯчейки Тогда НомерПервойКолонкиОбъединения = ?(НомерПервойКолонкиОбъединения = 0, СчетчикКолонок, НомерПервойКолонкиОбъединения); ИначеЕсли НомерПервойКолонкиОбъединения > 0 Тогда ТекстЗаголовка = ТабДок.Область(СчетчикСтрок, СчетчикКолонок).Текст; ОбъединяемаяОбласть = ТабДок.Область(СчетчикСтрок, НомерПервойКолонкиОбъединения, СчетчикСтрок, СчетчикКолонок); ОбъединяемаяОбласть.Объединить(); КоличествоКолонокВОбъединении = СчетчикКолонок - НомерПервойКолонкиОбъединения; ОбъединяемаяОбласть.ШиринаКолонки = ОбъединяемаяОбласть.ШиринаКолонки / КоличествоКолонокВОбъединении; ОбъединяемаяОбласть.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр; ОбъединяемаяОбласть.Текст = ТекстЗаголовка; НомерПервойКолонкиОбъединения = 0; КонецЕсли; КонецЦикла; КонецЦикла; КонецПроцедуры |
Если у Вас появились вопросы по статье или остались нерешенные проблемы обсудить их Вы можете на Форуме 1С Вопросы и ответы
(1 голосов, 5,00 из 5)
Загрузка...
Добавить комментарий
Для отправки комментария вам необходимо авторизоваться.