1С 8.3 Свернуть табличную часть

Данные > Примеры кода 1С > 1С 8.3 Документы

ПРИМЕРЫ КОДА 1С

Перейти в раздел примеры кода 1С 8.3:

Пример №1: Свернуть табличную часть документа или справочника в 1С 8.3:

Процедура Свернуть_Табличную_Часть(Объект, ИмяТЧ)

// Свертка табличной части происходит по аналогии
// функции у Таблицы значений ТЗ.Свернуть()
// Объект - должен иметь Табличную часть
// ИмяТЧ - имя табличной части "строка"

Измерения = Новый Массив;
Ресурсы = Новый Массив;

КолонкиТЧ = Объект.Метаданные().ТабличныеЧасти[ИмяТЧ].Реквизиты;

Для Каждого МетаданныеТЧ Из КолонкиТЧ Цикл
Если МетаданныеТЧ.Тип.СодержитТип(Тип("Число")) Тогда
Ресурсы.Добавить(МетаданныеТЧ.Имя); // будут суммироваться при свертке табличной части
Иначе
Измерения.Добавить(МетаданныеТЧ.Имя);
КонецЕсли;
КонецЦикла;

Объект[ИмяТЧ].Свернуть(СтрСоединить(Измерения, ","),
СтрСоединить(Ресурсы, ","));

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

Пример №2: Свернуть табличную часть документа или справочника в 1С 8.3:

// Сворачивает табличную часть по всем колонкам (Числовые колонки при этом суммируются).
// Источник: https://github.com/SeiOkami/CollectionMethodsOneS/issues/22
//
// Параметры:
// ТабличнаяЧасть - ТабличнаяЧасть - ТЧ объекта, которую нужно свернуть
//
// Пример:
//     СвернутьТабличнуюЧасть(ЭтотОбъект.ТабличнаяЧасть);
//     //Строки свернуться по значениям колонок, числовые при этом просуммируются
//
Процедура СвернутьТабличнуюЧасть(Знач ТабличнаяЧасть) Экспорт

   Ресурсы = Новый Массив; // Массив из Строка
   Измерения = Новый Массив; // Массив из Строка

   МетаданныеТабличнойЧасти = Метаданные.НайтиПоТипу(ТипЗнч(ТабличнаяЧасть)); // ОбъектМетаданныхТабличнаяЧасть
   Для Каждого МетаданныеКолонки Из МетаданныеТабличнойЧасти.Реквизиты Цикл
       ИмяКолонки = МетаданныеКолонки.Имя;
       Если МетаданныеКолонки.Тип.СодержитТип(Тип("Число")) Тогда
           Ресурсы.Добавить(ИмяКолонки);
       Иначе
           Измерения.Добавить(ИмяКолонки);
       КонецЕсли;
   КонецЦикла;

   ИменаИзмерений = СтрСоединить(Измерения, ",");
   ИменаРесурсов = СтрСоединить(Ресурсы, ",");

   ТабличнаяЧасть.Свернуть(ИменаИзмерений, ИменаРесурсов);

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

// MIT License
// Copyright (c) 2024 SeiOkami
//
// Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files
// (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify,
// merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is
// furnished to do so, subject to the following conditions:

// The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.

комментарии

____________________

Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник