Нумерация колонок таблицы (при формировании через СКД)

20.06.18

Разработка - СКД

При формировании таблицы через СКД бывает необходимо пронумеровать колонки. Привожу один из возможных вариантов решения.

При формировании отчета-таблицы через СКД мне потребовалось нумеровать колонки. Стандартного функционала для этого не нашел, поэтому сделал следующее:

  • организовал программный вывод отчета (т.к. первоначально планировалось, что СКД все будет делать сама);
  • "допилил" сформированный в ТабличныйДокумент отчет, заменив первые несколько строк на нужный мне макет шапки (благо СКД "фиксирует" шапку отчета сама, что позволяет определить ее высоту);

Процедура Сформировать(Результат = Неопределено, ДанныеРасшифровки = Неопределено, ВыводВФормуОтчета = Истина) Экспорт

Результат.Очистить();

ТабДокДанныеОтчета = Новый ТабличныйДокумент;

ЭтотОбъект.КомпоновщикНастроек.ЗагрузитьНастройки(ЭтотОбъект.КомпоновщикНастроек.ПолучитьНастройки());

// Сгенерируем макет компоновки данных при помощи компоновщика макета
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
МакетКомпоновки = КомпоновщикМакета.Выполнить(ЭтотОбъект.СхемаКомпоновкиДанных, ЭтотОбъект.КомпоновщикНастроек.Настройки, ДанныеРасшифровки);
//Создадим и инициализируем процессор компоновки
ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновки.Инициализировать(МакетКомпоновки, , ДанныеРасшифровки, Истина);

//
ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент.УстановитьДокумент(ТабДокДанныеОтчета);
ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент.Вывести(ПроцессорКомпоновки);

// Выводим свою шапку таблицы
ШапкаТаблицы = ЭтотОбъект.ПолучитьМакет("ШапкаТаблицы");
Результат.Вывести(Шапкатаблицы);

// Выводим данные отчета
ОблШапкаСКД = ТабДокДанныеОтчета.Область("R1:R" + ТабДокДанныеОтчета.ФиксацияСверху);
ТабДокДанныеОтчета.УдалитьОбласть(ОблШапкаСКД, ТипСмещенияТабличногоДокумента.ПоВертикали);
Результат.Вывести(ТабДокДанныеОтчета);
Результат.ФиксацияСверху = 2;

КонецПроцедуры

Так же на скрине отмечена область "Группировок СКД", выведенная на форму отчета. Чтобы не париться с организацией различный вариантов отчета, предлагаю делать сразу несколько веток в одном варианте. При этом для "включения" нужного варианта необходимо всего лишь "включить" головной узел нужной ветки и выключить все остальные головные узлы. При этом, даже если высота шапки будет изменяться, мы сможем вставить нужный нам макет шапки с нумерацией.

скд нумерация колонок табличный документ колонки номер

См. также

Инструментарий разработчика Роли и права Запросы СКД Программист Руководитель проекта Платформа 1С v8.3 Управляемые формы Запросы Система компоновки данных Платные (руб)

Инструменты для разработчиков 1С 8.3: Infostart Toolkit. Автоматизация и ускорение разработки на управляемых формах. Легкость работы с 1С.

12000 руб.

02.09.2020    171814    962    403    

924

СКД Программист Платформа 1С v8.3 Система компоновки данных Бесплатно (free)

СКД – инструмент, на базе которого в современных конфигурациях реализованы практически все отчеты. СКД используется в динамических списках, печатных формах и универсальных механизмах. Если построить простейший отчет может каждый разработчик, то с нюансами знакомы далеко не все. Расскажем о неочевидных на первый взгляд приемах, способных значительно повысить качество отчетов.

24.12.2024    5814    Akcium    13    

41

Запросы СКД Программист Стажер Система компоновки данных Россия Бесплатно (free)

Часто при разработке отчетов в СКД возникает ситуация, когда не совсем понятно, почему отчет выводит не те данные, которые нужны, либо не выводит вовсе. Возникает потребность увидеть конечный запрос, который формирует СКД. Как это сделать, рассмотрим в этой статье.

15.05.2024    10671    implecs_team    6    

48

Инструментарий разработчика СКД Программист Платформа 1С v8.3 1C:Бухгалтерия Абонемент ($m)

По выбранной схеме компоновки данных генерирует программный код, который генерирует СКД, аналогичную исходной схеме. Есть дополнительные инструменты для просмотра дерева схемы, сравнение исходной схемы и полученной по коду, а также сравнение изменений в сгенерированном коде для исходной схемы и для измененной.

3 стартмани

05.02.2024    8051    59    obmailok    21    

80

Запросы СКД Программист Платформа 1С v8.3 Управляемые формы 1C:Бухгалтерия Абонемент ($m)

Есть список полей в виде текста, или запрос - закидываем в набор СКД.

1 стартмани

31.01.2024    3395    6    Yashazz    1    

34

СКД WEB-интеграция Программист Платформа 1С v8.3 1C:Бухгалтерия Абонемент ($m)

Долгое время поддерживаю web-портал, в котором появилась необходимость создавать отчеты. Просмотрев различные фреймворки на js, я решил сделать свое решение, которое позволяло бы быстро разрабатывать и добавлять новые отчеты на web-портал.

2 стартмани

11.12.2023    11644    25    John_d    25    

126

СКД Программист Платформа 1С v8.3 Система компоновки данных 1C:Бухгалтерия Бесплатно (free)

Рассмотрим еще не получивший широкого распространения способ работы с внешними данным в СКД. В процессе обсуждения работы с СКД выяснилось, что многие не знакомы со способом помещения туда временной таблицы, полученной предварительно. Статья будет полезна разработчикам, знакомым с программным созданием СКД.

05.12.2023    9129    PROSTO-1C    15    

69
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. Hany 06.04.12 14:14 Сейчас в теме
А почему не нарисовать макет самому вручную и не подменять программно шапку вообще? ;)
Прикрепленные файлы:
2. Поручик 4661 06.04.12 20:37 Сейчас в теме
(1) Насколько это будет универсально?
3. Hany 06.04.12 21:50 Сейчас в теме
(2)
Достаточно универсально.
В макете можно переопределить формат вывода всего макета, который создается СКД автоматически.
Для такой цели, как описано в данной публикации, использование макета - единственно красивый способ. Программно раскрашивать/изменять названия/менять шрифт некоторых полей, как мне кажется, не очень красиво, для этого ж и существует закладка Макет?
4. TorLink 18.09.13 14:31 Сейчас в теме
Хм, проблемка нарисовалась, границы колонок то съезжают, что-то не допру пока как это поправить(
http://clip2net.com/s/5M6WAe
Сделал как в 1м посте, программно конечно интереснее, но как их сопоставить не понятно.
5. echo77 1915 20.06.18 14:31 Сейчас в теме
(0) Вариант конечно, но не самый лучший :-)
Выкладывать картинку за 1$m - это интересно, надо попробовать :-)
6. Lars Ulrich 625 20.06.18 16:21 Сейчас в теме
(5) Видимо при изменениях сайта старая публикация конвертировалась в такую вот подставу :)
Тут вообще никаких вложений не может быть, т.к. весь сабж описан в тексте+скрины.
7. andrey_sag 57 13.10.23 10:42 Сейчас в теме
Так проще и без макета:
Процедура Пронумеровать(Результат) Экспорт
	
	СтрокВШапке = Результат.ФиксацияСверху;
	КоличествоКолонок	= Результат.ШиринаТаблицы;
	ОбластьШапки = Результат.Область(СтрокВШапке, , СтрокВШапке);
	ОбластьПриемник	= Результат.Область(СтрокВШапке + 1, , СтрокВШапке + 1); 
	Результат.ВставитьОбласть(ОбластьШапки, ОбластьПриемник, ТипСмещенияТабличногоДокумента.ПоГоризонтали, Ложь);
	
	Для НомерКолонки = 1 По КоличествоКолонок Цикл
	
		ТекОбласть	= Результат.Область(СтрокВШапке + 1, НомерКолонки); 
		ТекОбласть.Текст	= Строка(НомерКолонки);
		ТекОбласть.ГоризонтальноеПоложение	= ГоризонтальноеПоложение.Центр;
	
	КонецЦикла;                                                             
	
	Результат.ФиксацияСверху	= Результат.ФиксацияСверху + 1;

КонецПроцедуры

// в модуле объекта СКД
Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)

	КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
	Настройки	= КомпоновщикНастроек.ПолучитьНастройки();
	МакетКомпоновки	= КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки, ДанныеРасшифровки);
	ПроцессорКомпоновкиДанных	= Новый ПроцессорКомпоновкиДанных;
	ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, , ДанныеРасшифровки);
	ПроцессорВывода	= Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
	ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
	ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);
	
	ОтчетыСервер.Пронумеровать(ДокументРезультат);  
	
	СтандартнаяОбработка = Ложь;

КонецПроцедуры
Показать
user1767032; user2027692; _LkMaksimka_; agentesecreto; +4 Ответить
Оставьте свое сообщение