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