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