Процедура ОбработкаПроведения(Отказ, РежимПроведения)
Если ЗначениеЗаполнено(Документ) Тогда
ДокументОбъект = Документ.ПолучитьОбъект();
Для Каждого Регистр ИЗ Метаданные.РегистрыНакопления Цикл
Если ДокументОбъект.Движения.Найти(Регистр.Имя) <> Неопределено Тогда
ДокументОбъект.Движения[Регистр.Имя].Прочитать();
ВремДвиж = ДокументОбъект.Движения[Регистр.Имя].Выгрузить();
Для Каждого Элемент из ВремДвиж Цикл
Элемент.Период = Дата;
Для Каждого Ресурс ИЗ Регистр.Ресурсы Цикл
Элемент[Ресурс.Имя] = - Элемент[Ресурс.Имя];
КонецЦикла;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Показать
не качал, сделал док с таким модулем проведения - движений нет
непонимаю как оно могло работать