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