&НаКлиенте
Процедура Команда1(Команда)

    Перем ВыбЗнач;

    Массив = Новый Массив;
    Массив.Добавить(Тип("СправочникСсылка.Контрагенты"));

    ОписаниеТиповК = Новый ОписаниеТипов(Массив);

    Если ВвестиЗначение(ВыбЗнач, "Введите значение", ОписаниеТиповК) Тогда

        Сообщить(ВыбЗнач);

    КонецЕсли;

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