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