Универсальное сворачивание табличной части документа

14.12.20

–

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

Скачать исходный код

	Наименование	Файл	Версия	Размер
	Универсальное сворачивание табличной части документа: .epf 7,27Kb 125	.epf		7,27Kb	125	Скачать бесплатно

Добрый день, коллеги. Мне понадобилось свернуть табличную часть документа, искал подобную функцию чтобы вручную не прописывать поля для сворачивания и группировки. Ожидаю, что она сможет подойти для большого количества документов.

Для того, чтобы свернуть табличную часть, я пользовался методом - "свернуть()" для табличной части. Нюанс был в том, что колонки, не вошедшие ни в один из списков колонок, после выполнения метода удаляются из таблицы значений, а перечислять их в ручную не хотелось, поэтому была написана вот такая функция, которая формирует параметры для сворачивания и группировки.

Функция для получения структуры сворачивания

&НаСервере
//Описание = Имя метода.
//
//Параметры
//ТабличнаяЧастьДокумента
//
//Возвращаемые данные
// Стркутура - названия колонок для сворачивания и группировки
//
Функция ПолучитьСтруктуруКолонокДляСворачиванияИзТабличнойЧасти(ТабличнаяЧастьДокумента)
	
	СтруктураСворачивания = Новый Структура;
	СтруктураСворачивания.Вставить("Сворачивание");	
	СтруктураСворачивания.Вставить("Группировка");	
	
	МассивГруппировки    = "";	
	
	Колонки  =  ТабличнаяЧастьДокумента.ВыгрузитьКолонки().Колонки;
	
	Для каждого Колонка из Колонки  Цикл
		
		Если не Колонка.ТипЗначения.СодержитТип(Тип("Число")) или Колонка.Имя = "Цена" Тогда 
			
 			МассивГруппировки   = МассивГруппировки + Колонка.Имя + "," 
			
		КонецЕсли;
		
	КонецЦикла;
	
	ДлинаСтроки        = СтрДлина (МассивГруппировки);
	МассивГруппировки = Лев(МассивГруппировки, ДлинаСтроки - 1);
	
	
	СтруктураСворачивания.Группировка = МассивГруппировки; 
	
	МассивСворачивания = "";	
	
	Для каждого Колонка из Колонки Цикл
		
		Если  Колонка.ТипЗначения.СодержитТип(Тип("Число")) и не Колонка.Имя = "НомерСтроки" и не Колонка.Имя = "Цена"   Тогда 
			
			МассивСворачивания     = МассивСворачивания + Колонка.Имя + "," 
			
		КонецЕсли;
		
	КонецЦикла;
	
	ДлинаСтроки        = СтрДлина (МассивСворачивания);
	МассивСворачивания  = Лев(МассивСворачивания, ДлинаСтроки - 1);
	
	СтруктураСворачивания.Сворачивание = МассивСворачивания;
	
	Возврат  СтруктураСворачивания

	
КонецФункции // ()

Использовал я данную функцию вот таким образом.

Функция сворачивания

 &НаСервере
//СсылкаНаДокумент - ссылка на произвольный документ 
//ТабличнаяЧастьДляСворачинвания - имя табличной части для сворачивания
Процедура СвернутьТабличнуюЧастьНаСервере()
    
    ДокументОбъект 					 = СсылкаНаДокумент.ПолучитьОбъект();
	СтруктураСворачиванияГруппировки = ПолучитьСтруктуруКолонокДляСворачиванияИзТабличнойЧасти(ДокументОбъект[ТабличнаяЧастьДляСворачинвания]);
	ДокументОбъект[ТабличнаяЧастьДляСворачинвания].Свернуть(СтруктураСворачиванияГруппировки.Группировка, СтруктураСворачиванияГруппировки.Сворачивание);
	
	//На всякий случай делаем пересчет некоторых полей, так как некоторые суммы могу некорректно посчитаться 
	СтруктураДействий = Новый Структура;
	ПодготовитьСтруктуруДействий(СтруктураДействий, ДокументОбъект);
	ОбработкаТабличнойЧастиСервер.ОбработатьТЧ(ДокументОбъект[ТабличнаяЧастьДляСворачинвания],СтруктураДействий, Неопределено);
	
	ДокументОбъект.Записать();
	Сообщить("Готово");


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

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

Форма обработки выглядит так

Обработка протестирована на релизе ЕРП 2.4.12.102

–

См. также

Вставляем картинку из буфера обмена (платформа 1С 8.3.24)

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

Задача: вставить картинку из буфера обмена на форму средствами платформы 1С.

1 стартмани

18.03.2024 2851 1 John_d 9

GUID в 1С 8.3 - как с ними быть

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

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024 4972 atdonya 22

Переоткрытие внешних обработок

Универсальные функции Платформа 1С v8.3 Бесплатно (free)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023 4087 ke.92@mail.ru 16

Генерация штрихкода и QR, разбор настроек и примеры

БСП (Библиотека стандартных подсистем) Сканер штрих-кода Универсальные функции Этикетки, ценники Конфигурации 1cv8 Бесплатно (free)

Разберем на примерах использование компоненты из БСП для генерации штрихкода и матричных кодов.

15.09.2023 8104 YA_418728146 8

104

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023 9315 YA_418728146 6

143

Печать непроведенных документов для УТ, КА, ERP. Настройка печати по пользователям, документам и печатным формам

Пакетная печать Печатные формы Адаптация типовых решений Универсальные функции Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Абонемент ($m)

Расширение для программ 1С:Управление торговлей, 1С:Комплексная автоматизация, 1С:ERP, которое позволяет распечатывать печатные формы для непроведенных документов. Можно настроить, каким пользователям, какие конкретные формы документов разрешено печатать без проведения документа.

2 стартмани

22.08.2023 2192 24 progmaster 7

Расширение: Быстрые отборы через буфер [Alt+C] Копировать список, [Alt+V] Вставить список, [Ctrl+C] Копировать из файлов

Инструментарий разработчика Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 1С:Розница 2 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Абонемент ($m)

Копирует в буфер значения из списков, из ячеек отчетов, таблиц, настроек списков, других отборов и вставляет в выбранную настройку отбора. Работает с Объект не найден. Работает как в одной так и между разными базами 1С. Использует комбинации [Alt+C] Копировать список, [Alt+V] Вставить список. Также для копирования данных используется стандартная [Ctrl+C] (например из открытого xls, mxl, doc и т.п. файла скопировать список наименований)

1 стартмани

13.10.2022 16322 141 sapervodichka 112

129

Система контроля ведения учета [БСП]

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

В данном материале рассмотрим типовой алгоритм подсистемы контроля учета БСП в конфигурациях на примерах.

18.07.2022 7342 quazare 8

110

Комментарии

Подписаться на ответы

Свернуть все

1. ixijixi 1794 14.12.20 09:26 Сейчас в теме

Советую вместо

ТаблицаЗначений = ТабличнаяЧастьДокумента.Выгрузить()

использовать

Колонки = ТабличнаяЧастьДокумента.ВыгрузитьКолонки().Колонки

, и дальше использовать уже коллекцию вместо ТаблицаЗначений.Колонки. Кучу ресурсов сэкономить можно.

2. Andrei_Ivanov 162 14.12.20 14:56 Сейчас в теме

(1) Спасибо за совет. Поправил.

3. German_Tagil 42 12.01.21 07:04 Сейчас в теме

(2) На БП 3.0 не запустилось- нет таких фунцкций
ОбработкаТабличнойЧастиСервер.ОбработатьТЧ(ДокументОбъект[ТабличнаяЧастьДляСворачинвания],СтруктураДействий, Неопределено);
ОбработкаТабличнойЧастиКлиентСервер.ПараметрыПересчетаСуммыНДСВСтрокеТЧ(ДокументОбъект);

4. Andrei_Ivanov 162 12.01.21 09:25 Сейчас в теме

(3) Добрый день. Для того, чтобы на БП работал механизм, вместо этих функция можно адаптировать - ОбработкаТабличныхЧастейКлиентСервер.ПриИзмененииКоличествоЦена.

5. sr5 18.08.23 08:54 Сейчас в теме

Так, еще наводка: в УТ11.4 в общем модуле есть подобные удобные вспомогательные функции: "ОбщегоНазначенияУТ.СвернутьТабличнуюЧасть()" и "ОбщегоНазначенияУТ.СвернутьТаблицуЗначений()"

6. unknown181538 152 10.10.23 20:56 Сейчас в теме

(5)

СвернутьТабличнуюЧасть

судя по ее коду, она цену просуммирует тоже.

8. Andrei_Ivanov 162 10.10.23 22:52 Сейчас в теме

(6) Добрый день.
В коде исключение на колонку "Цена", по ней будет совершена группировка.

9. unknown181538 152 10.10.23 22:57 Сейчас в теме

(8) Да, это я понимаю. Но это все равно получается, что типовую функция переписать нужно. В итоге я доработал ваше решение, и задачу решил.

7. unknown181538 152 10.10.23 21:07 Сейчас в теме

Мне нужно свернуть Товары в Заказе в "Комплексной автоматизации". Там есть колонки КодЗаказа, КодСтроки, ИдентификаторСтроки.
Их нужно вносить и не в группировку, и не в свертку, а возможно переформировывать после группировки.