Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
15 дек 2024, 01:45

Печатная форма документа

Автор Кот_Леопольд, 01 фев 2019, 14:34

0 Пользователей и 1 гость просматривают эту тему.

Кот_Леопольд

Люди помогите пожалуйста, уже третий день голову ломаю, мне нужну вывести на печать табличную часть документа, что бы у нее произошло объединение одинаковых строк  в столбце!!! Как это осуществлять???

Z.spb

По быстрому накидал, работает
Условие: таб док выглядит в точности как у вас на 1й картинке, т.е. в 1й строке 1й колонке - заголовок, дальше начинаются значения.

Когда ТабДок уже сформирован, выполняем код:

НачалоОбласти  = 2; //1я строка таблицы (не считая заголовка)
ЗначениеПоиска = ТабДок.Область(2,1).Текст; //текст из 1й ячейки 1й колонки
ВсегоСтрок     = ТабДок.ВысотаТаблицы; //всего строк в таблице

Для сч=3 По ВсегоСтрок Цикл
ТекущаяЯчейка = ТабДок.Область(сч,1);
Если ТекущаяЯчейка.Текст <> ЗначениеПоиска Тогда
ТабДок.Область(НачалоОбласти,1,сч-1,1).Объединить();
НачалоОбласти = сч;
ЗначениеПоиска = ТекущаяЯчейка.Текст;
КонецЕсли;
КонецЦикла;
Если НачалоОбласти<>ВсегоСтрок Тогда
ТабДок.Область(НачалоОбласти,1,ВсегоСтрок,1).Объединить();
КонецЕсли;

Кот_Леопольд

Цитата: Z.spb от 01 фев 2019, 18:45
По быстрому накидал, работает
Условие: таб док выглядит в точности как у вас на 1й картинке, т.е. в 1й строке 1й колонке - заголовок, дальше начинаются значения.

Когда ТабДок уже сформирован, выполняем код:

НачалоОбласти  = 2; //1я строка таблицы (не считая заголовка)
ЗначениеПоиска = ТабДок.Область(2,1).Текст; //текст из 1й ячейки 1й колонки
ВсегоСтрок     = ТабДок.ВысотаТаблицы; //всего строк в таблице

Для сч=3 По ВсегоСтрок Цикл
ТекущаяЯчейка = ТабДок.Область(сч,1);
Если ТекущаяЯчейка.Текст <> ЗначениеПоиска Тогда
ТабДок.Область(НачалоОбласти,1,сч-1,1).Объединить();
НачалоОбласти = сч;
ЗначениеПоиска = ТекущаяЯчейка.Текст;
КонецЕсли;
КонецЦикла;
Если НачалоОбласти<>ВсегоСтрок Тогда
ТабДок.Область(НачалоОбласти,1,ВсегоСтрок,1).Объединить();
КонецЕсли;


Огромное спасибо все получилось, работает!!!
А если нужно немного поменять вид таблицы (файл1), тут уже так не получиться!? Пытаюсь в запрос добавить группировку по ОбъектуИследования выдает ошибку Группировка по таблицам верхнего уровня и вложенным таблицам <<?>>Приложение.Калькуляция.(
Как тут добиться нужного результата???

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск