1С 7.x : Получить список Справочников конфигурации

 &НаКлиенте

Процедура ПоКнопкеЧтениеИзМетаданных(Команда)

        // Вставить содержимое обработчика.

        Перем СписокСправочников; 



        СписокСправочников = Новый СписокЗначений;

        СписокСправочников = СправочникиИзМетаданных();

        Для Сч = 0 По СписокСправочников.Количество() - 1 Цикл 

               Сообщить(СписокСправочников.Получить(Сч))

       КонецЦикла;



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



&НаСервере

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



        Перем СписокСправочников, СправочникИзМетаданных;

        СписокСправочников = Новый СписокЗначений;

        Для Каждого СправочникИзМетаданных Из Метаданные.Справочники Цикл

                СписокСправочников.Добавить(СправочникИзМетаданных.Имя);

        КонецЦикла;



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



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

 //ЭлементыФормы.ОбъектПоиска - Поле Выбора на форме

	СписокВыбора = ЭлементыФормы.ОбъектПоиска.СписокВыбора;

	Для Каждого Справочник Из Метаданные.Справочники Цикл

		//Проверим, есть ли права на просмотр? Да- добавляем, Нет - пропускаем

		Если ПравоДоступа("Просмотр", Справочник) Тогда

			ИмяСправочника = Справочник.Синоним;

			Если ИмяСправочника = "" Тогда

				ИмяСправочника = Справочник.Имя;

			КонецЕсли;

			Структура = Новый Структура;

			Структура.Вставить("Тип", "Справочник");

			Структура.Вставить("Объект", Справочник);

			СписокВыбора.Добавить(Структура, ИмяСправочника, ,ЭлементыФормы.КартинкаСправочника.Картинка);

		КонецЕсли;

	КонецЦикла;   

 	//Выведем список всех справочников в окно сообщений

	Для Индекс=1 По Метаданные.Справочник() Цикл

		Значение = Метаданные.Справочник(Индекс).Идентификатор;

		Представление = Метаданные.Справочник(Индекс).Представление();

		Комментарий = Метаданные.Справочник(Индекс).Комментарий;

		Сообщить(Значение+"  "+Представление+"  "+Комментарий);

	КонецЦикла;