Достал кусок кода из обработки табличных частей и поселил в подписку перед записью.
Подывымось , шо воно будэ.
Процедура нашПередЗаписьюЗаказа(Источник, Отказ, РежимЗаписи, РежимПроведения) Экспорт
Если Источник.ЭтоНовый()=Ложь Тогда
Возврат;
КонецЕсли;
мПересчитыватьСкидку = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ПриИзмененииСуммыПересчитыватьСкидку");
мМетаданныеДокумента = Источник.Метаданные();
мЕстьРеквизитПроцентСкидкиНаценки = ОбщегоНазначения.ЕстьРеквизитТабЧастиДокумента("ПроцентСкидкиНаценки" , мМетаданныеДокумента, "Товары");
мЕстьРеквизитПроцентАвтоматическихСкидок= ОбщегоНазначения.ЕстьРеквизитТабЧастиДокумента("ПроцентАвтоматическихСкидок" , мМетаданныеДокумента, "Товары");
мЕстьНДС = ОбщегоНазначения.ЕстьРеквизитТабЧастиДокумента("СуммаНДС" , мМетаданныеДокумента, "Товары");
Попытка
Для Каждого СтрокаТабличнойЧасти Из Источник.Товары Цикл
СтрокаТабличнойЧасти.Сумма = Окр(СтрокаТабличнойЧасти.Сумма,0,РежимОкругления.Окр15как20);
// Пересчитываем связанные реквизиты.
ОбработкаТабличныхЧастей.ПриИзмененииСуммыТабЧасти(СтрокаТабличнойЧасти, Источник, глЗначениеПеременной("глТекущийПользователь"),,мЕстьРеквизитПроцентСкидкиНаценки,мПересчитыватьСкидку,мЕстьРеквизитПроцентАвтоматическихСкидок,"Товары");
Если мЕстьНДС Тогда
ОбработкаТабличныхЧастей.РассчитатьСуммуНДСТабЧасти(СтрокаТабличнойЧасти, Источник);
КонецЕсли;
КонецЦикла;
Исключение
КонецПопытки;
КонецПроцедуры
Сообщение отредактировал XBrut - 28.01.14, 23:47