1С 8.3 Вывести все доступные поля СКД
Данные > Примеры кода 1С > 1С 8.3 Схема компоновки данных (СКД)
Перейти в раздел примеры кода 1С 8.3:
Вывести все доступные поля СКД в 1С 8.3:
// Выводит в коллекцию выбранных полей СКД все доступные поля.
// Метод иерархический, для вызова достаточно передать коллекцию выбранных полей, которые нужно заполнить.
// Источник: https://github.com/SeiOkami/CollectionMethodsOneS/issues/18
//
// Параметры:
//
// ВыбранныеПоляКомпоновки - ВыбранныеПоляКомпоновкиДанных, КоллекцияВыбранныхПолейКомпоновкиДанных -
// Выбранные поля компоновки, которые необходимо заполнить
//
// КоллекцияДоступныхПолей - Неопределено, ДоступныеПоляКомпоновкиДанных -
// Параметр для иерархических вызовов процедуры из себя самой же.
// При использовании передавать не нужно.
//
// Пример:
// ВывестиВсеДоступныеПоляВыбора(Настройки.Выбор); //Выводит все доступные поля
//
Процедура ВывестиВсеДоступныеПоляВыбора(Знач ВыбранныеПоляКомпоновки, Знач КоллекцияДоступныхПолей = Неопределено) Экспорт
Если КоллекцияДоступныхПолей = Неопределено Тогда
КоллекцияДоступныхПолей = ВыбранныеПоляКомпоновки.ДоступныеПоляВыбора;
КонецЕсли;
Если ТипЗнч(ВыбранныеПоляКомпоновки) = Тип("ВыбранныеПоляКомпоновкиДанных") Тогда
КоллекцияВыбранныхПолей = ВыбранныеПоляКомпоновки.Элементы;
Иначе
КоллекцияВыбранныхПолей = ВыбранныеПоляКомпоновки;
КонецЕсли;
ТекущийРодитель = Новый Структура("Родитель", Неопределено);
ЗаполнитьЗначенияСвойств(ТекущийРодитель, КоллекцияДоступныхПолей);
ТекущийРодитель = ТекущийРодитель.Родитель;
Для Каждого ДоступноеПолеВыбора Из КоллекцияДоступныхПолей.Элементы Цикл
Если ДоступноеПолеВыбора.Папка Тогда
ВыбранноеПоле = КоллекцияВыбранныхПолей.Добавить(Тип("ГруппаВыбранныхПолейКомпоновкиДанных"));
ВывестиВсеДоступныеПоляВыбора(ВыбранноеПоле.Элементы, ДоступноеПолеВыбора);
Иначе
ВыбранноеПоле = КоллекцияВыбранныхПолей.Добавить(Тип("ВыбранноеПолеКомпоновкиДанных"));
КонецЕсли;
ЗаполнитьЗначенияСвойств(ВыбранноеПоле, ДоступноеПолеВыбора, "Поле,Заголовок");
КонецЦикла;
КонецПроцедуры
// 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.
// Метод иерархический, для вызова достаточно передать коллекцию выбранных полей, которые нужно заполнить.
// Источник: https://github.com/SeiOkami/CollectionMethodsOneS/issues/18
//
// Параметры:
//
// ВыбранныеПоляКомпоновки - ВыбранныеПоляКомпоновкиДанных, КоллекцияВыбранныхПолейКомпоновкиДанных -
// Выбранные поля компоновки, которые необходимо заполнить
//
// КоллекцияДоступныхПолей - Неопределено, ДоступныеПоляКомпоновкиДанных -
// Параметр для иерархических вызовов процедуры из себя самой же.
// При использовании передавать не нужно.
//
// Пример:
// ВывестиВсеДоступныеПоляВыбора(Настройки.Выбор); //Выводит все доступные поля
//
Процедура ВывестиВсеДоступныеПоляВыбора(Знач ВыбранныеПоляКомпоновки, Знач КоллекцияДоступныхПолей = Неопределено) Экспорт
Если КоллекцияДоступныхПолей = Неопределено Тогда
КоллекцияДоступныхПолей = ВыбранныеПоляКомпоновки.ДоступныеПоляВыбора;
КонецЕсли;
Если ТипЗнч(ВыбранныеПоляКомпоновки) = Тип("ВыбранныеПоляКомпоновкиДанных") Тогда
КоллекцияВыбранныхПолей = ВыбранныеПоляКомпоновки.Элементы;
Иначе
КоллекцияВыбранныхПолей = ВыбранныеПоляКомпоновки;
КонецЕсли;
ТекущийРодитель = Новый Структура("Родитель", Неопределено);
ЗаполнитьЗначенияСвойств(ТекущийРодитель, КоллекцияДоступныхПолей);
ТекущийРодитель = ТекущийРодитель.Родитель;
Для Каждого ДоступноеПолеВыбора Из КоллекцияДоступныхПолей.Элементы Цикл
Если ДоступноеПолеВыбора.Папка Тогда
ВыбранноеПоле = КоллекцияВыбранныхПолей.Добавить(Тип("ГруппаВыбранныхПолейКомпоновкиДанных"));
ВывестиВсеДоступныеПоляВыбора(ВыбранноеПоле.Элементы, ДоступноеПолеВыбора);
Иначе
ВыбранноеПоле = КоллекцияВыбранныхПолей.Добавить(Тип("ВыбранноеПолеКомпоновкиДанных"));
КонецЕсли;
ЗаполнитьЗначенияСвойств(ВыбранноеПоле, ДоступноеПолеВыбора, "Поле,Заголовок");
КонецЦикла;
КонецПроцедуры
// 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.
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник