О костыли!
Часто ли Вы делаете "костыли" в решении повседневных задач? Я да. И не стыжусь этого! Мы работаем на результат и главной нашей целью должно быть решение задач бизнеса. Иногда, не смотря на перфекционизм, разработчику приходится жертвовать качеством, порождать технический долг, но идти к поставленной цели.
Хорошего разработчика от плохого отличает не то, что его решения всегда идеальные с технической точки зрения. Самое ценное и важное качество — это доводить поставленную задачу до конца в разумные для бизнеса сроки, при этом не забывая о техническом долге и возвращаясь к нему в будущем. Не важно по какой причине было выбрано подобного рода решение. Важно, чтобы работа над улучшением продукта продолжалась, ведь вопросы архитектуры и качества технических решений актуальны всегда.
Сегодня, мы рассмотрим пару таких "костылей", которые могут быть Вам интересны. Добро пожаловать!
Итоги в динамическом списке
Иногда разработчики увлекаются в "игре" с механизмами платформы, а бывает и заказчики желают получить от программы чего-то из ряда вон выходящее (для платформы, но привычное для пользователей).
Этот костыль из этой "оперы". На одном из проектов заказчик пожелал видеть итоги в динамическом списке. Все доводы, что список для этого не предназначен, а также что имеется путаница между списками и отчетами — все это было проигнорировано. "Просто возьми мои деньги и сделай!", — говорил заказчик. "Все будет хорошо работать!", — говорили менеджеры.
Результат — вот такое решение для итогов в динамическом списке управляемой формы:
- В форму списка добавляются реквизиты для хранения итогов и привязываются к подвалу соответствующих колонок списка.
- По событию "ПриПолученииДанныхНаСервере", "ПриАктивизацииСтроки" (о ужас!) или с помощью обработчика ожидания выполняем обновлением значений итогов с учетом отборов в динамическом списке.
Вся сложность заключается в том, что динамический список не получает сразу все записи, а получает их порциями. Соответственно, мы не можем сразу получить итог по всем документам по текущим данным списка, соответствующим отбору. Каким же образом его посчитать?
Описание решения с итогами в динамическом списке
Итак, перейдем к решению задачи. Начнем с изменения формы, далее опишем алгоритм получения итоговых значений.
Форма и интерфейс
Для начала подготовим форму документа для отображения итоговых полей. Для этого добавим два строковых реквизита формы "Рейтинг" и "Сумма".
В данные реквизиты будут записываться итоговые значения по документам. Для отображения значений реквизитов в подвале динамического списка необходимо включить соответствующую опцию связанного элемента формы списка (см. следующий скриншот).
Далее нужно связать колонки подвала с соответствующими реквизитами формы, которые были созданы ранее. Для этого в свойствах колонок нужно установить путь к данным подвала.
Теперь нужно определиться по какому событию будет происходить обновление итогов в подвале списка. Для удобства разработки добавим команду "Обновить" и соответствующий ей элемент формы на командную панель. При выполнении этой команды будет происходить обновление итогов. В реальных задачах обновление итогов нужно делать на событиях "ПриПолученииДанныхНаСервере", "ПриАктивизацииСтроки" (о ужас!) или с помощью обработчика ожидания.
Пример Вы можете посмотреть в репозитории на 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Проверка Тогда
Возврат Ложь;
Иначе
Возврат Истина;
КонецЕсли;
КонецФункции
Много, много кода. Все сводится к тому, что в зависимости от типа регистра, его настроек, установленных отборов и некоторых других особенностей формируется текст запроса для получения данных. После данные из выборки запроса переносятся в сам набор.
Для удобства использования можно перенести функции в общий модуль.
Фактически, мы получаем данные запросов и на их основе заполняем набор записей. Как это использовать? Например, стандартный способ работы с набором записей такой.
НаборДвиженияНоменклатураНоменклатура = РегистрыНакопления.ДвиженияНоменклатураНоменклатура.СоздатьНаборЗаписей();
// "Документ" - ссылка на документ регистратор
НаборДвиженияНоменклатураНоменклатура.Отбор.Регистратор.Установить(Документ);
НаборДвиженияНоменклатураНоменклатура.Прочитать();
Если же использовать "костыль", то код будет немного отличаться.
НаборДвиженияНоменклатураНоменклатура = РегистрыНакопления.ДвиженияНоменклатураНоменклатура.СоздатьНаборЗаписей();
// "Документ" - ссылка на документ регистратор
НаборДвиженияНоменклатураНоменклатура.Отбор.Регистратор.Установить(Документ);
// Вместо вызова метода "Прочитать()" используем собственную процедуру
ПрочитатьНаборРегистраЗапросом(НаборДвиженияНоменклатураНоменклатура);
Результат — набор записей прочитан, заполнен. При этом никаких блокировок в транзакции платформа не установит, ведь все записи прочитаны запросом. Новый способ чтения наборов работает для любых регистров — накопления, бухгалтерии, сведений, расчета.
Такой "костыль" помог исправить проблемы производительности и возникающие взаимоблокировки, но не решил множество других связанных проблем…
Костыли в оптимизации! Кто бы мог подумать!
Мы человеки!
Считаете, что всегда нужно делать идеальные решения? Качество важнее сроков? Процесс важнее результата?
Мы все ошибаемся, делаем спорные решения и можем сомневаться в их правильности. Уж про себя все это я могу с уверенностью подтвердить.
Будем честными к себе и окружающим.
Если и у Вас есть истории о "костылях" и готовность ими поделиться — добро пожаловать в комментарии!
Какой самый "лучший костыль" был у тебя!?
Другие ссылки
Костыли, если они есть, должны быть тоже качественные. Например, выноситься в функции, в общие модули и т.п. Если так будет — то все норм.
Основная беда — именно структуризация кода. Именно она позволяет делать быстрые и удобные модификации и откаты.
ПС: недавно видел процедуру на несколько тысяч строк. И это в решении, которое висит на releases.1c. А количество повторов кусков кода — десятки. Совместимо, чё ((
(1) костыли, косиыли они повсюду)
(0), так проверка наличия свойства или реквизита есть в БСП в базовой функциональности.
ОбщегоНазначенияКлиентСервер.ЕстьРеквизитИлиСвойствоОбъекта(Объект, ИмяРеквизита)
Функция ЕстьРеквизитИлиСвойствоОбъекта(Объект, ИмяРеквизита) Экспорт
КлючУникальности = Новый УникальныйИдентификатор;
СтруктураРеквизита = Новый Структура(ИмяРеквизита, КлючУникальности);
ЗаполнитьЗначенияСвойств(СтруктураРеквизита, Объект);
Возврат СтруктураРеквизита[ИмяРеквизита] <> КлючУникальности;
КонецФункции
(3) во времена, когда этот костыль появился — такого еще не было в БСП. В старом блоге писал о нем еще в 2013 году.
Потом это появилось БСП. Это настоящий вирусный костыль!
При общении с начальством слово «костыль» выгодно заменять на синоним «крайняя мера». Особенно когда речь о твоём коде
(5) ага, или «быстрое решение», «некоторая реализация», «прототип» или просто «нестандартный подход». 🙂
(6)эвфемизмы, они повсюду 🙂
мне кажется что для вида сравнения Содержит
надо добавить «%» перед и после ЭлОтбора.Имя
(8) вероятно. Или же это было сделано в «костыле» намеренно.
Но для корректной и ожидаемой функционалности нужно конечно было бы предусмотреть варианты.
Не полностью по теме, но тоже описал несколько найденных «фишек»
Неожиданности при работе с УТ 11 и платформой
(10) плюсы доставлены!
вчера сделал проверку заполнения в самой форме в расширении. быстро, работает, заявитель доволен, задача сама по себе была несколько странной.
(1) Золотые слова. По этому поводу я всегда говорю «хорошо структурированный говнокод намного лучше, чем бессвязный набор идеальных алгоритмов». Можно брать вмемориз при условии сохранения копирайта =)
(6) ну и для ачивки «мозго*б 80 уровня» — применяем термин «ад-хок солюшен»
(14) запомнил на случай важных переговоров 🙂
(3) тот же костыль, только в БСП))
(0) а что за комплексы у вас?- называете программирование «костылями», боитесь использовать ПриАктивизацииСтроки() («о, ужас!»)
(17) о комплексах не говорят вслух! 🙂
(5)
баги порождают костыли
особенности платформы позволяют воспользоваться нетипичными решениями
На мой вкус — костыли это что-то нелепое, несуразное и не вписывающееся в общую концепцию разработки. История их появления часто достойна отдельной статьи. А автор приводит вполне себе приличные приемы, разве что «итоги» у динамического списка штука очень специфическая. Насчет прочтения набора записей запросом и проверки существования свойства составного значения — вопросов по части адекватности совсем нет.
(20) благодарю.
Но чувство, что я накостылил в прошлом все равно со мной.
(6) еще вариант «острая производственная необходимость» 🙂
(0)
Да, согласен с тем, что код на 1С писать так уж и трудно, но более ценное качество это умение за ограниченный срок и бюджет на изначально кривом решении решить поставленную задачу, ничего сильно сразу не поломав и чтобы потом оно работало. И отлично, что у автора есть чувство «что накостылил». Это позволяет двигаться вперед! Все мы иногда «костылим», что уж там!
Но то, что многие не изучают, например, подсистемы и функции БСП, а фигачат свои сомнительные аналоги, не изучают хотя бы типовые решения с их архитектурой, чтобы оттуда что-нибудь скопировать (хотя бы проверенную идею), а также костылят без зазрения совести — это плохой знак!
Мой самый позорный костыль был в одном отраслевом решении. Архитектор никак не мог грамотно сформулировать, как будут работать отборы в одной ну очень сложной форме. Пришлось вместо компоновки одного общего запроса, возвращающего сразу готовый набор, организовать несколько циклических переборов… Зато в эти переборы можно было быстро вносить новые хотелки.
Люблю костыли.
Знаю, умею, применяю.
(23) с БСП, увы, не всё так однозначно. Культура разработки БСП далека от идеала. Часто надёжнее написать своё, чем использовать весьма сомнительное готовое — меньше гимора при поддержке 😉
(25) коллега!
ретрограды!
костыли уже не модно.
я использую в коде экзоскелеты.
(26) методы в секциях ПрограммныйИнтерфейс вроде заслуживают доверия как 2*2 = 4
методы БСП из остальных секций необходимо использовать осторожнее.
Костыль «Итоги в динамическом списке» уже (большей частью) встроили в платформу:https://wonderland.v8.1c.ru/blog/poluchenie-dannykh-dinamicheskogo-spiska/?sphrase_id=108208
Статья понравилась, плюс поставил. Но ужасно не понравилась реализация первого костыля. Автор тут же ссылается на других авторов, у которых костыль красивее, современнее и легче!
(31) мне он и самому не нравится. Это был 2013 год, я выживал как мог 🙂
Сейчас бы я все сделал по другому. И другие статьи я привел как-раз для контраста.
(23)
Не могу спорить на счет каких-то специфических функций, просто нужно знать, что есть готовые простые функции, которые нормально работают. А вот поиск функций в БСП — часто проблема, что-то просто запоминаешь, но если тебе нужно найти какую-то вроде простую ф-ю, порой это очень непросто сделать.
(30)
Верно, методы не из «интерфейса», строго говоря, запрещено использовать.
(33)
И это тоже. Ещё момент — если видишь «велосипед» у кого-то, то совсем не факт, что это он его повторно изобрёл, а не в БСП наконец включили аналог :)) как у автора, кстати
(29) как раз вот тут использованоhttps://infostart.ru/public/837694/
Поддерживаю вброс)) Увидел пересечение с парой тем своего доклада в 2017м году.
(36) а можно ссылочки на доклады для прочмотра?) Воспользуюсь случаем и попрошу, чтобы посмотреть потом 🙂
Не из мира 1С. Как то бухгалтерия, в 1992 году, используя ДОСовую программу, захотела печатать сложные отчёты в MS Word. Задача решена была следующим образом:
1. ДОСовая программа собирала нужные данные и выкладывала в определённую папку с набором данных для каждого отчёта;
2. Были написаны несколько макросов(по количеству отчётов) в MS WORD;
2. На DELPHI была написана прога, висевшая в трее, которая «слушала» этот каталог, если что ))) — запускала WORD с нужным макросом;
В итоге все довольны. Проработал сей костыль исправно до покупки 1С.Бухгалтерия пару лет.
Прям сейчас — задание написать простой для пользователей-администраторов баз и файлов «архиватор-администратор-обновлятор» с максимальными данными на главной форме для оперативного принятия решений с минимальным количеством кликов. Вот уж пришлось костылей нагородить от души )))) Ни одна существующая прога им не подошла. Просили попроще и чтобы всё было максимально автоматизировано(больше интеллекта). Написал КАК ХОТЕЛИ пользователи ))))
(37) есть в виде статьи 🙂
https://infostart.ru/public/835719/
(39) благодарствую!
(38) аплодисменты!
качество кода напрямую зависит от качества заказчика, когда видишь лицо не отягощенное мыслями человека с кошельком, не надо перед ним метать бисер
(23) БСП у 1С в состоянии вечной бэты, если не альфы. Ей пользоваться ваобще страшно. По хорошему надо в свои общие модули копипастить код из БСП чтобы случайно не удалили полностью в очередной версии или не изменили до неработоспособности.
(29)Таким способом делал итоги в ДС. Очень быстро и ном отрабатывает.
на сайте 1С есть статья о том как костыли к динамическому списку превращаются в реанимационную каталку
«5.3.1. Временные таблицы в динамических списках рекомендуется использовать только тогда, когда они содержат заведомо небольшое количество записей. Иначе их использование неэффективно, т.к. значения временных таблиц в динамическом списке НЕ кешируются, а формируется при каждом считывании данных для заполнения списка.»
(38) делал примерно тож самое в бородатом… не помню каком году
из доса печатали в файлы, а другая прога отправляла все на новехонький лазерный притер
а вот чем все закончилось не знаю. может до сих пор пользуют ))
такие дела
(45)
В некоторых случаях это может быть спасением. Но не костыль ли это? 🙂
Я боюсь даже представить что случится, если в 1С добавят полноценное ООП. Костыли станут многомерными — это будет круче обфускации кода.
В свое время так и не смог донести до руководства, что итоги в динамическом списке это хрень и их надо смотреть в отчете.
(49) у меня это вообще ни разу не получалось, когда такой вопрос вставал.
Красноречие недостаточно прокачано 🙂
(50) В подобных случаях я использую фразу:»Я Вас пЕредупредил!» и клепаю, как заказали. В случае последующего запроса отвечаю:» Я Вас пЕредупреждал» и переделываю как надо за дополнительный гонорар. Доступно и всерьёз )
(51) а неплохо!!!
(51) вариант для фриланса, но не для фикса
Сам не делал, но поддерживал.
Компания с территориально удалёнными розничными точками. Нетиповая конфигурация на обычном приложении. При открытии очередного магазина обнаружилось, что чек на ккм Печатается неприемлемо долго. На исправление ситуации была ночь до открытия. В итоге: толстый клиент запускается в сервисе терминалов. При необходимости печати чека, нужные данные формируются в текстовый файл, который кладётся в специальную папку на клиентской машине. На клиентской машине запускается самописная конфигурация, которая умеет работать с ккм. Она периодически смотрит папку на наличие файла, и если находит, запускает процедуру печати. Данные файла сохраняет в себя, сам файл после этого удаляется.
Это уже костылил сам
Та же компания, та же конфигурация. Удалённые магазины работают через сервер терминалов. Возникла задача заполнять накладные из ТСД, через атоловский драйвер. Причём взаимодействие с ТСД должно быть по сети. В документации к драйверу жирным по белому написано, что использовать на сервере терминалов не рекомендуется. Но деваться опять было некуда. Для работы с ТСД драйвер стартует службу, которая уже общается непосредственно с аппаратом. Соответственно схема выгрузки выглядела так. Толстый клиент 1С -> Служба Драйвера -> ТСД. Причём служба драйвера стартует под каждым пользователем, начавшим сеанс в машине. На сервере терминалов привело к эффекту, что запрос на получение данных отправлял один экземпляр службы, а получить мог совсем другой. Тогда закостылил батник, который с правами администратора убивал все процессы службы драйвера, кроме того, что запустился от текущего пользователя. Выгрузка должна была пройти, пока процессы не перезапустились. Так работало пока пользователей, которые работали с выгрузкой, не отселили на персональные виртуалки.
(53) и для франча.
(1) Я видел совершенно чудовищные фрагменты кода и в типовых конфигурациях. То есть ужасающие и уродливые. Дублирующие друг друга или работающие едва на треть. Адски нерациональные по производительности, немасштабируемые итд. Чо, нормуль, стандарты такие стандарты…
(25) Клиент попросил распечатки яндекс-карт, успешно работавших в системе, для курьеров, с точкой на карте. И тут выяснилось, что на тот момент API 2.Х яндекса не умеет это делать, от слова ваще. А умеет только 1.1, и то кривовато, они аж конференцию на эту тему делали. Что изобрёл: карта помещалась на отдельную форму (были только обычные формы), форма раскрывалась в режиме рабочего стола на весь экран, заслоняя ваще всё, с неё делался скриншот, картинка скриншота уходила курьеру на мыло. Форма сразу закрывалась. Один из самых моих жутких костылей)
А изложенное тут — ну, кое-что платформа уже научилась делать, но так очень многое можно счесть костылями. Сколько ухищрений я делал ради оптимизации запросов динамических списков, которые не понимали составные запросы и временные таблицы — да полно. Сколько чисто архитектурных решений родилось, потому что иначе платформа не позволяла… Пока функций СКД и вызова общих модулей не было… Пока управляемые формы развивались… Да любой наверняка выкручивался как мог. Сейчас это кажется постыдными костылями, но тогда ведь помогло решить задачу, и не всегда было непроизводительным… Чего стыдиться-то? Некоторые вещи в рамках одного события УФ нельзя сделать, приходится запускать одноразовую обработку ожидания на 0.1 секунды, это, к примеру, костыль?)
Стыдиться надо криворуким кодерам, которые простейшие вещи сделать не могут нормально, и авторам типовых, которые собственные стандарты не соблюдают.
(53) Для фикса тоже годится как средство экономии нервов в споре с заказчиком. Или предупреждаешь или договариваешься выделить время на преобразование костыля в нормальное решение, если доработка будет использоваться.
Сейчас работаю с УПП доработанным под нужды предприятия. Надо сделать АРМы которые агрегируют данные чуть ли не по принципу OLAP так чтоб это было актуально, оперативно, да еще и редактировать можно с сохранением обратно в базу. Так что с ноября прошлого года я генератор костылей. Про парочку уже рассказывал. Возможно что некоторыми поделюсь позже.
Один из последних костылей это «квазиасинхронная» свертка/развертка до нужного уровня дерева значений на управляемой форме без блокирования работы пользователя и выводом индикатора прогресса))
(59) статьи интересные.
Возможно, это даже не костыли, а реальная производственная необходимость.
Итоги в динамическом списке то же делал, точно так же пользователи хотят, хоть что делай. В итоге сделал итоги которые работали только по отдельной кнопке «Показать итоги в списке», для большинства пользователей она не нужна была и те работали с привычным дин. списком, а те кто пользовал итоги нажимали кнопку, появлялся подвал с итогами (у них разумеется медленнее работало).
Костыль из необычного если так можно назвать делал такой:
Задача сделать справочник цветов (в RGB), он по большей части статический (pantone можете посмотреть что такое), но цветов там прям много, порядка 10тыс! Самое главное что в форме выбора в динамическом списке должна была показываться колонка с визуальным отображением этого цвета (реального цвета). В итоге решил через библиотеку картинок, сделал обработку которая по заполненному справочнику цветов, брала RGB каждого цвета, рисовала картинку 16х16, далее следующий элемент, опять картинку 16х16, далее склеивала эти тысячи картинок в одну огромную картинку 16хNNNNNNN, индекс картинки соответствовал коду элемента справочника цветов, далее картинка загружалась в библиотеку картинок, в форме выбора вывести картинку по индексу — штатный механизм.
Еще один костыль, то же картинки в динамическом списке, только на этот раз это прикрепленные картинки к элементам справочника. Когда пользователь открывает справочник (это справочник всякой фурнитуры для одежды), он должен увидеть название (код) фурнитуры и ее картинку в отдельной колонке, задача что бы получить сразу все картинки. Оказалось что достаточно в колонку дин списка передавать навигационную ссылку, и все выводит. В итоге написаная процедура по массовому получению навигационных ссылок картинок всего справочника, которая записывала их во временный кэш в регистре, а дин список уже просто выгребал данные из регистра кэша. На удивление работало довольно шустро )
Костыли имеют место быть. но костыль должен лишь дополнять типовой механизм, а не изменять его, тогда имеет место костыль. А если уже изменить типовой механизм тогда это уже не костыль а серьезная доработка, со всеми рисками и т.п.
(43) можно заглушку написать:
(64) Да как угодно, только не отдавать все карты в руки разрабам.
Я то думал «я программист» — а оказывается 15 лет костыли вытачиваю в токарном конфигураторе
(38) да, в досовские времена мне многое приходилось делать через слежение за папкой… тогда стандартных интерфейсов и технологий взаимодействия между программами почти не было…
// NULL
Видимо, ранее в структуре-зонде использовался НУЛЛ, но затем он был заменен на УИД.
Тогда вообще можно не вклинивать в транзакцию запрос, прочитав набор для движения в процедуре «ПередЗаписью» (проверив что РежимЗаписи = Проведение) и сохранив его в дополнительные свойства Объекта.