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

14.12.20

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

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование		Бесплатно
Универсальное сворачивание табличной части документа: .epf 7,27Kb 138	138	Скачать бесплатно

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

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

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

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

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

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

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

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


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

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

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

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

+9 –

См. также

Загрузка табличного документа в таблицу значений. Пять строк кода, которые изменили мир

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

Благодаря этим пяти строчкам можно больше не заморачиваться с загрузкой из внешних файлов. Пользуюсь везде, всегда и постоянно.

21.05.2024 20259 dimanich70 81

145

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

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

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

1 стартмани

18.03.2024 4101 3 John_d 11

GUID в 1С 8.3

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

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

12.02.2024 18225 atdonya 24

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

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

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

30.11.2023 5511 ke.92@mail.ru 16

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

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

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

15.09.2023 18389 YA_418728146 9

119

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

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

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

28.08.2023 14784 YA_418728146 7

166

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

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

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

2 стартмани

22.08.2023 3596 57 progmaster 8

Расширение: Быстрые отборы через буфер [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 18502 171 sapervodichka 112

135

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

(5)

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

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

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

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

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

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

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

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