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

20.06.18

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

См. также

SALE! 15%

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

Набор инструментов программиста и специалиста 1С для всех конфигураций на управляемых формах. В состав входят инструменты: Консоль запросов, Консоль СКД, Консоль кода, Редактор объекта, Анализ прав доступа, Метаданные, Поиск ссылок, Сравнение объектов, Все функции, Подписки на события и др. Редактор запросов и кода с раскраской и контекстной подсказкой. Доработанный конструктор запросов тонкого клиента. Продукт хорошо оптимизирован и обладает самым широким функционалом среди всех инструментов, представленных на рынке.

10000 руб.

02.09.2020    159695    876    399    

862

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

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

15.05.2024    8731    implecs_team    6    

47

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

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

3 стартмани

05.02.2024    7012    56    obmailok    21    

79

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

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

1 стартмани

31.01.2024    3156    5    Yashazz    1    

34

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

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

2 стартмани

11.12.2023    10834    23    John_d    25    

124

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

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

05.12.2023    8055    PROSTO-1C    15    

68
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. Hany 06.04.12 14:14 Сейчас в теме
А почему не нарисовать макет самому вручную и не подменять программно шапку вообще? ;)
Прикрепленные файлы:
2. Поручик 4692 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 1906 20.06.18 14:31 Сейчас в теме
(0) Вариант конечно, но не самый лучший :-)
Выкладывать картинку за 1$m - это интересно, надо попробовать :-)
6. Lars Ulrich 625 20.06.18 16:21 Сейчас в теме
(5) Видимо при изменениях сайта старая публикация конвертировалась в такую вот подставу :)
Тут вообще никаких вложений не может быть, т.к. весь сабж описан в тексте+скрины.
7. andrey_sag 55 13.10.23 10:42 Сейчас в теме
Так проще и без макета:
Процедура Пронумеровать(Результат) Экспорт
	
	СтрокВШапке = Результат.ФиксацияСверху;
	КоличествоКолонок	= Результат.ШиринаТаблицы;
	ОбластьШапки = Результат.Область(СтрокВШапке, , СтрокВШапке);
	ОбластьПриемник	= Результат.Область(СтрокВШапке + 1, , СтрокВШапке + 1); 
	Результат.ВставитьОбласть(ОбластьШапки, ОбластьПриемник, ТипСмещенияТабличногоДокумента.ПоГоризонтали, Ложь);
	
	Для НомерКолонки = 1 По КоличествоКолонок Цикл
	
		ТекОбласть	= Результат.Область(СтрокВШапке + 1, НомерКолонки); 
		ТекОбласть.Текст	= Строка(НомерКолонки);
		ТекОбласть.ГоризонтальноеПоложение	= ГоризонтальноеПоложение.Центр;
	
	КонецЦикла;                                                             
	
	Результат.ФиксацияСверху	= Результат.ФиксацияСверху + 1;

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

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

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

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