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