Проблема с выводом справочников

[rogaz]

попробуйте такой вариант

Код Выделить Развернуть


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


&НаКлиенте
Процедура КакаятоВашаОбработка()

     СписокСправочников = ПолучитьСписокСправочников();

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


Вроде ничего сложного.



спасибо! с этим вроде закончил

Код Выделить Развернуть


Процедура ПриНачалеРаботыСистемы()
ф=ОбщийМодуль1.Список();
Оповещение = Новый ОписаниеОповещения("ПослеЗакрытияВопроса",МодульУправляемогоПриложения);
ПоказатьВопрос(Оповещение,"Какой справочник нужен?",ф);
КонецПроцедуры

Теперь хочу вызвать диалог с вариантами справочников, про функцию Вопрос пишут, что лучше не использовать из-за модальных окон, а в более правильной функции ПоказатьВопрос возникли проблемы. Что мне написать на месте МодульУправляемогоПриложения? вызываю я именно в этом модуле

[LexaK]

при начале работы системы, запустите обработку Настройка, и делайте всю работу настройки в ее контексте (в контексте формы обработки)

[rogaz]

при начале работы системы, запустите обработку Настройка, и делайте всю работу настройки в ее контексте (в контексте формы обработки)

Напишите, пожалуйста, подробнее как запустить и для чего

[LexaK]

в событии Процедура ПриНачалеРаботыСистемы()
не получилось сделать выбор из списка ни из ВыбратьИзСписка()
ни из ПоказатьВыборИзСписка()

я сделал обработку, в форме обработки кнопку выбрать, и реквизит (строка) Спр
и такой код

Код Выделить Развернуть



&НаКлиенте
Процедура Вып(Команда)
лкСпр = ОМ.ПолучитьСписокСправочников();
//Спр = ВыбратьИзСписка(лкСпр);

Оп = Новый ОписаниеОповещения("ОбработкаВыбора", ЭтаФорма, Спр );
ПоказатьВыборИзСписка (Оп,лкСпр)

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


&НаКлиенте
Процедура ОбработкаВыбора(ВыбранноеЗначение, ИсточникВыбора)Экспорт
Если ВыбранноеЗначение = Неопределено  Тогда
Спр = "";
Иначе
Спр = ВыбранноеЗначение.Представление;
КонецЕсли;
КонецПроцедуры

 

все работает.