1С 8.3 Свернуть табличную часть
Данные > Примеры кода 1С > 1С 8.3 Документы
Перейти в раздел примеры кода 1С 8.3:
Свернуть табличную часть документа или справочника в 1С 8.3:
Процедура Свернуть_Табличную_Часть(Объект, ИмяТЧ)
// Свертка табличной части происходит по аналогии
// функции у Таблицы значений ТЗ.Свернуть()
// Объект - должен иметь Табличную часть
// ИмяТЧ - имя табличной части "строка"
Измерения = Новый Массив;
Ресурсы = Новый Массив;
КолонкиТЧ = Объект.Метаданные().ТабличныеЧасти[ИмяТЧ].Реквизиты;
Для Каждого МетаданныеТЧ Из КолонкиТЧ Цикл
Если МетаданныеТЧ.Тип.СодержитТип(Тип("Число")) Тогда
Ресурсы.Добавить(МетаданныеТЧ.Имя); // будут суммироваться при свертке табличной части
Иначе
Измерения.Добавить(МетаданныеТЧ.Имя);
КонецЕсли;
КонецЦикла;
Объект[ИмяТЧ].Свернуть(СтрСоединить(Измерения, ","),
СтрСоединить(Ресурсы, ","));
КонецПроцедуры
// Свертка табличной части происходит по аналогии
// функции у Таблицы значений ТЗ.Свернуть()
// Объект - должен иметь Табличную часть
// ИмяТЧ - имя табличной части "строка"
Измерения = Новый Массив;
Ресурсы = Новый Массив;
КолонкиТЧ = Объект.Метаданные().ТабличныеЧасти[ИмяТЧ].Реквизиты;
Для Каждого МетаданныеТЧ Из КолонкиТЧ Цикл
Если МетаданныеТЧ.Тип.СодержитТип(Тип("Число")) Тогда
Ресурсы.Добавить(МетаданныеТЧ.Имя); // будут суммироваться при свертке табличной части
Иначе
Измерения.Добавить(МетаданныеТЧ.Имя);
КонецЕсли;
КонецЦикла;
Объект[ИмяТЧ].Свернуть(СтрСоединить(Измерения, ","),
СтрСоединить(Ресурсы, ","));
КонецПроцедуры
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник