HelpF.pro

Получить список Справочников конфигурации

Код 1C v 8.2 УП
 &НаКлиенте
Процедура ПоКнопкеЧтениеИзМетаданных(Команда)
// Вставить содержимое обработчика.
Перем СписокСправочников;

СписокСправочников = Новый СписокЗначений;
СписокСправочников = СправочникиИзМетаданных();
Для Сч = 0 По СписокСправочников.Количество() - 1 Цикл
Сообщить(СписокСправочников.Получить(Сч))
КонецЦикла;

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

&НаСервере
Функция СправочникиИзМетаданных()

Перем СписокСправочников, СправочникИзМетаданных;
СписокСправочников = Новый СписокЗначений;
Для Каждого СправочникИзМетаданных Из Метаданные.Справочники Цикл
СписокСправочников.Добавить(СправочникИзМетаданных.Имя);
КонецЦикла;

Возврат СписокСправочников;

КонецФункции



Код 1C v 8.х
 //ЭлементыФормы.ОбъектПоиска - Поле Выбора на форме
СписокВыбора = ЭлементыФормы.ОбъектПоиска.СписокВыбора;
Для Каждого Справочник Из Метаданные.Справочники Цикл
//Проверим, есть ли права на просмотр? Да- добавляем, Нет - пропускаем
Если ПравоДоступа("Просмотр", Справочник) Тогда
ИмяСправочника = Справочник.Синоним;
Если ИмяСправочника = "" Тогда
ИмяСправочника = Справочник.Имя;
КонецЕсли;
Структура = Новый Структура;
Структура.Вставить("Тип", "Справочник");
Структура.Вставить("Объект", Справочник);
СписокВыбора.Добавить(Структура, ИмяСправочника, ,ЭлементыФормы.КартинкаСправочника.Картинка);
КонецЕсли;
КонецЦикла;



Код 1C v 7.x
 	//Выведем список всех справочников в окно сообщений
Для Индекс=1 По Метаданные.Справочник() Цикл
Значение = Метаданные.Справочник(Индекс).Идентификатор;
Представление = Метаданные.Справочник(Индекс).Представление();
Комментарий = Метаданные.Справочник(Индекс).Комментарий;
Сообщить(Значение+" "+Представление+" "+Комментарий);
КонецЦикла;

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq8/view/195.html