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