&НаКлиентеПроцедура ОткрытьФормуВнешнейОбработки(Команда)ОписаниеОповещения = Новый ОписаниеОповещения("ПослеПомещенияФайла", ЭтаФорма);НачатьПомещениеФайла(ОписаниеОповещения,, "", Ложь, ЭтаФорма.УникальныйИдентификатор);КонецПроцедуры&НаКлиентеПроцедура ПослеПомещенияФайла(Результат, АдресИлиРезультатВыбора, ВыбранноеИмяФайла, ДополнительныеПараметры) ЭкспортЕсли НЕ Результат ТогдаВозврат;КонецЕсли;ИмяОбработки = ПодключитьВнешнююОбработку(Новый Структура("Адрес", АдресИлиРезультатВыбора));ОткрытьФорму("ВнешняяОбработка." + ИмяОбработки + ".Форма.ИмяФормыВнешнейОбработки",,,Истина);КонецПроцедуры&НаСервереФункция ПодключитьВнешнююОбработку(АдресХранилища)Возврат ВнешниеОбработки.Подключить(АдресХранилища.Адрес);КонецФункции
Запрос = Новый Запрос(" | Выбрать | Справочник.Номенклатура.Наименование, | Выбор | Когда Справочник.Номенклатура.Этогруппа = Истина | Тогда «Это Группа» | Когда Справочник.Номенклатура.ЗакупочнаяЦена > 1000 | Тогда «1000 -» | Когда Справочник.Номенклатура.ЗакупочнаяЦена > 100 | Тогда «100 – 1000» | Когда Справочник.Номенклатура.ЗакупочнаяЦена > 10 | Тогда «10 – 100» | Когда Справочник.Номенклатура.ЗакупочнаяЦена > 0 | Тогда «0 – 10» | Иначе | «Не Задана» | Конец КАК Цена"); Выборка = Запрос.Выполнить().Выбрать();
Запрос = Новый Запрос(" |ВЫБРАТЬ | ВЫБОР &Перем | КОГДА 1 | ТОГДА "Раз" | КОГДА 2 | ТОГДА "Два" | КОГДА 3 | ТОГДА "Три" | ИНАЧЕ "Много" | КОНЕЦ КАК РезультатВыбора"); Запрос.УстановитьПараметр("Перем",2); Выборка = Запрос.Выполнить().Выбрать(); Выборка.Следующий(); Сообщить(Выборка.РезультатВыбора);