|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
&НаКлиенте Процедура ПоКнопкеЧтениеИзМетаданных(Команда) // Вставить содержимое обработчика. Перем СписокСправочников; СписокСправочников = Новый СписокЗначений; СписокСправочников = СправочникиИзМетаданных(); Для Сч = 0 По СписокСправочников.Количество() - 1 Цикл Сообщить(СписокСправочников.Получить(Сч)) КонецЦикла; КонецПроцедуры &НаСервере Функция СправочникиИзМетаданных() Перем СписокСправочников, СправочникИзМетаданных; СписокСправочников = Новый СписокЗначений; Для Каждого СправочникИзМетаданных Из Метаданные.Справочники Цикл СписокСправочников.Добавить(СправочникИзМетаданных.Имя); КонецЦикла; Возврат СписокСправочников; КонецФункции |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
//ЭлементыФормы.ОбъектПоиска - Поле Выбора на форме СписокВыбора = ЭлементыФормы.ОбъектПоиска.СписокВыбора; Для Каждого Справочник Из Метаданные.Справочники Цикл //Проверим, есть ли права на просмотр? Да- добавляем, Нет - пропускаем Если ПравоДоступа("Просмотр", Справочник) Тогда ИмяСправочника = Справочник.Синоним; Если ИмяСправочника = "" Тогда ИмяСправочника = Справочник.Имя; КонецЕсли; Структура = Новый Структура; Структура.Вставить("Тип", "Справочник"); Структура.Вставить("Объект", Справочник); СписокВыбора.Добавить(Структура, ИмяСправочника, ,ЭлементыФормы.КартинкаСправочника.Картинка); КонецЕсли; КонецЦикла; |
|
1 2 3 4 5 6 7 |
//Выведем список всех справочников в окно сообщений Для Индекс=1 По Метаданные.Справочник() Цикл Значение = Метаданные.Справочник(Индекс).Идентификатор; Представление = Метаданные.Справочник(Индекс).Представление(); Комментарий = Метаданные.Справочник(Индекс).Комментарий; Сообщить(Значение+" "+Представление+" "+Комментарий); КонецЦикла; |
About the Author
