В повседневной работе достаточно часто возникает необходимость проведения массовых замен значений.
Как правило, для этих работ используется типовая обработка "Поиск и замена значений", однако при массовости замен достаточно трудоемок процесс ручного заполнения таблицы замен.
Для упрощения заполнения таблицы замен предлагается внести небольшие изменения исключительно в код самой обработки, благодаря чему, обработка приобретает возможность автоматизированного заполнения таблицы замен непосредственно из произвольного запроса, который строится при помощи привычного конструктора запроса либо вручную.
Основным условием выполнения заполнения являются условия наименования синонимов результирующих полей запроса "ЧтоЗаменять" и "НаЧтоЗаменять" - они должны быть одноименны наименованиям полей таблицы заменяемых значений.
Код доработки предоставляется как есть - разработчик не несет ответственности за некорректное его использование.
Просто добавьте данный код в модуль основной формы обработки:
////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ - РАСШИРЕНИЯ ФУНКЦИОНАЛА ОБРАБОТКИ
Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
ДобавляемоеДействие = Новый Действие("ЗаполнитьИзЗапроса");
ТипДобавляемойКнопки = ТипКнопкиКоманднойПанели.Действие;
кЗаполнитьИзЗапроса = ЭлементыФормы.КоманднаяПанельЗаменяемыеЗначения.Кнопки.Добавить("Заполнить из запроса", ТипДобавляемойКнопки, ,
ДобавляемоеДействие);
КонецПроцедуры
Процедура ЗаполнитьИзЗапроса()
КонструкторЗапроса = Новый КонструкторЗапроса;
КонструкторЗапроса.ОткрытьМодально();
Если ПустаяСтрока(КонструкторЗапроса.Текст) тогда
Предупреждение("Отсутсвует текст запроса!");
Возврат;
КонецЕсли;
ПостроительЗапроса = Новый ПостроительЗапроса;
ПостроительЗапроса.Текст = КонструкторЗапроса.Текст;
ПостроительЗапроса.Выполнить();
РезультатЗапроса = ПостроительЗапроса.Результат;
Если РезультатЗапроса.Пустой() тогда
Предупреждение("Отсутсвует результат запроса!");
Возврат;
КонецЕсли;
ВыборкаРезультата = РезультатЗапроса.Выбрать();
ЗаменяемыеЗначения.Очистить();
Пока ВыборкаРезультата.Следующий() цикл
НоваяСтрока = ЗаменяемыеЗначения.Добавить();
ЗаполнитьЗначенияСвойств(НоваяСтрока, ВыборкаРезультата, "ЧтоЗаменять,НаЧтоЗаменять");
НоваяСтрока.Пометка = Истина;
КонецЦикла;
Предупреждение("Заполнение произведено!");
КонецПроцедуры Вступайте в нашу телеграмм-группу Инфостарт
