Неправильное округление скидки в чеке

Помогите, пожалуйста, с округлением суммы строки документа "Чек ККМ" и суммы скидки. На POS-системе стоит Розница, редакция 1.0.4.1; фискальник Штрих-Мини-ФРК. В чеке при продаже товара (цена 66р) со скидкой 10%, сумма скидки округляется в большую сторону до 7р., сумма продажи в строке соответсвенно 59р. А по фискальнику сумма скидки и сумма продажи округляются в меньшую сторону, соответственно 6р. и 60р (именно такой вариант мне и нужен в чеке ккм - с округлением суммы скидки и суммы продажи в меньшую сторону до целого рубля). При закрытии чека сабж "Сумма всех типов оплат меньше суммы документа!". Однако если количество копеек в сумме скидки равно 50 или меньше, то скидка и сумма строки округляются нормально, проблема только со скидкой, в которой количество копеек 51 или больше. Вот некоторые модули:

1. Модуль объекта: Документ ЧекККМ

Процедура ПроверитьЗаполнениеТабличнойЧастиОплата(ТаблицаПоОплате, СтруктураШапкиДокумента, Отказ, Заголовок)

СуммаВсего = Товары.Итог("Сумма");
ОплаченоНал = ПолучитьСуммуНаличнойОплаты();
ОплаченоБезнал = ПолучитьСуммуБезналичнойОплаты();
ОплаченоВсего = Оплата.Итог("Сумма");

Если ОплаченоВсего < СуммаВсего Тогда
ОбщегоНазначения.СообщитьОбОшибке("Сумма всех типов оплат меньше суммы документа!", Отказ, Заголовок);
КонецЕсли;
...

2. Модуль объекта: ShtrihMFiscalPrinters_v2.epf (внешняя обработка фискальника)

Функция ПечататьСтроку(Объект, Наименование, Количество, Цена,
Скидка, Отдел, НДС) Экспорт
...
Наценка = ?(Скидка < 0, -Скидка, 0);
СуммаБС = Цена * Количество;
//НЪА
СуммаСК = СуммаБС - Ценообразование.ОкруглитьЦену(СуммаБС*(100-Скидка)/100,Перечисления.ПорядкиОкругления.Окр1,Истина);
//КЪА
СуммаНац = СуммаБС * Наценка / 100;
Если Наценка > 0 Тогда
Объект.Драйвер.Сумма1 = СуммаНац;
Объект.Драйвер.СтрокаДляПечати = Формат(Наценка, "ЧЦ=15; ЧДЦ=2") + "%";
Объект.Драйвер.Надбавка();
Если Объект.Драйвер.Результат <> 0 Тогда
Объект.ОписаниеОшибки = Объект.Драйвер.ОписаниеРезультата;
Объект.Драйвер.АннулироватьЧек();
Результат = мОшибкаНеизвестно;
Возврат Результат;
КонецЕсли;
КонецЕсли;

Если Скидка > 0 Тогда
Объект.Драйвер.Сумма1 = СуммаСК;
Объект.Драйвер.СтрокаДляПечати = Формат(Скидка, "ЧЦ=15; ЧДЦ=2") + "%";
Объект.Драйвер.Скидка();
Если Объект.Драйвер.Результат <> 0 Тогда
Объект.ОписаниеОшибки = Объект.Драйвер.ОписаниеРезультата;
Объект.Драйвер.АннулироватьЧек();
Результат = мОшибкаНеизвестно;
Возврат Результат;
КонецЕсли;
КонецЕсли;

Если Результат = мОшибкаНеизвестно Тогда
ПроверкаСостоянияЧековойЛенты(Объект);
КонецЕсли;

Возврат Результат;

КонецФункции // ПечататьСтроку()

3. Модуль объекта: Обработка ТОСервер

Функция ПечатьЧека(Идентификатор, НомерЧека, НомерСмены,
ОписаниеЧека, СуммаНал, СуммаБезнал, ПризнакВозврата) Экспорт
...
Для Каждого Позиция Из ОписаниеЧека Цикл

ЗначениеСкидки = Позиция.Количество * Позиция.Цена * Позиция.Скидка * 0.01;
//НЪА
СуммаСоСкидкой1С = Окр(Ценообразование.ОкруглитьЦену((Позиция.Количество * Позиция.Цена - ЗначениеСкидки),Перечисления.ПорядкиОкругления.Окр1,Истина), 2);
СуммаСоСкидкойФР = Окр(Ценообразование.ОкруглитьЦену((Позиция.Количество * Позиция.Цена - Окр(ЗначениеСкидки, 2)),Перечисления.ПорядкиОкругления.Окр1,Истина), 2);
//КЪА
Если СуммаСоСкидкой1С = СуммаСоСкидкойФР Тогда
Результат = Обработка.ПечататьСтроку(Объект,
Позиция.Наименование,
Позиция.Количество,
Позиция.Цена,
Позиция.Скидка,
Позиция.НомерСекции,
Позиция.СтавкаНДС);
Иначе
Результат = Обработка.ПечататьСтроку(Объект,
Позиция.Наименование,
1,
СуммаСоСкидкой1С,
0,
Позиция.НомерСекции,
Позиция.СтавкаНДС);
КонецЕсли;

4.1. Модуль объекта: Общий модуль ОбработкаТабличныхЧастей

Процедура РассчитатьСуммуТабЧасти(СтрокаТабличнойЧасти, ДокументОбъект, СпособРасчета = Неопределено) Экспорт

...
Сумма = СтрокаТабличнойЧасти.Цена * СтрокаТабличнойЧасти.Количество;
СуммаСкидки = 0;

Если ОбщегоНазначения.ЕстьРеквизитТабЧастиДокумента("ПроцентАвтоматическихСкидок", МетаданныеДокумента, ИмяТабличнойЧасти) Тогда
СуммаСкидки = Сумма * СтрокаТабличнойЧасти.ПроцентАвтоматическихСкидок / 100;
КонецЕсли;

Если ОбщегоНазначения.ЕстьРеквизитТабЧастиДокумента("ПроцентСкидкиНаценки", МетаданныеДокумента, ИмяТабличнойЧасти) Тогда
СуммаСкидки = СуммаСкидки + (Сумма * СтрокаТабличнойЧасти.ПроцентСкидкиНаценки / 100);
КонецЕсли;

СтрокаТабличнойЧасти.Сумма = Сумма - СуммаСкидки;

КонецПроцедуры // РассчитатьСуммуТабЧасти()

4.2. Модуль объекта: Общий модуль ОбработкаТабличныхЧастей

Процедура РассчитатьСкидкиПриПродаже(ДокументОбъект, ТабличнаяЧастьНоменклатуры,
СтруктураПараметров) Экспорт

...
Для Каждого СтрокаТЧ Из ТаблицаТоваров Цикл

Если СтрокаТЧ.СуммаБезСкидки <> 0 Тогда
СтруктураПоиска.Номенклатура = СтрокаТЧ.Номенклатура;

МассивСтрок = ТаблицаСкидок.НайтиСтроки(СтруктураПоиска);

СтруктураПоиска.Номенклатура = ПустаяНоменклатура;

МассивСтрокБезНоменклатуры = ТаблицаСкидок.НайтиСтроки(СтруктураПоиска);

Для Каждого СтрокаБезНоменклатуры Из МассивСтрокБезНоменклатуры Цикл
МассивСтрок.Добавить(СтрокаБезНоменклатуры);
КонецЦикла;

МаксСуммаСкидки = Неопределено;
ПодходящаяСкидка = Неопределено;
ПроцентСкидки = Неопределено;
ПодходящаяСкидкаНоменклатура = Неопределено;

Для Каждого СтрокаСкидок Из МассивСтрок Цикл

Если (СтрокаСкидок.НУсловие = УсловиеКолво И СтрокаСкидок.НЗначениеУсловия < СтрокаТЧ.Количество
Или СтрокаСкидок.НУсловие <> УсловиеКолво) Тогда

Если СтрокаСкидок.НПроцентСкидкиНаценки <> Null Тогда
СуммаСкидки = СтрокаТЧ.СуммаБезСкидки * СтрокаСкидок.НПроцентСкидкиНаценки / 100;
Ограничение = СтрокаСкидок.НОграничениеСкидкиНаценки * СтрокаТЧ.Количество;

// Проверим ограничение скидки.
Если (Ограничение > 0 И СуммаСкидки > Ограничение)
Или (Ограничение < 0 И СуммаСкидки < Ограничение) Тогда
СуммаСкидки = Ограничение;
КонецЕсли;

Если МаксСуммаСкидки = Неопределено
Или (МаксСуммаСкидки < 0 И МаксСуммаСкидки > СуммаСкидки)
Или (МаксСуммаСкидки > 0 И МаксСуммаСкидки < СуммаСкидки) Тогда

МаксСуммаСкидки = СуммаСкидки;
ПодходящаяСкидка = СтрокаСкидок;
ПроцентСкидки = Окр((СуммаСкидки / СтрокаТЧ.СуммаБезСкидки) * 100, 2);
ПодходящаяСкидкаНоменклатура = Истина;

КонецЕсли;

КонецЕсли;

КонецЕсли;

КонецЦикла;

Если МаксСуммаСкидки <> Неопределено Тогда

СтрокаТЧ.ПроцентАвтоматическихСкидок = ПроцентСкидки;
СтрокаТЧ.Сумма = Окр(СтрокаТЧ.СуммаБезСкидки / СтрокаТЧ.Количество * (1 - (СтрокаТЧ.ПроцентСкидкиНаценки) / 100), 2) * СтрокаТЧ.Количество - МаксСуммаСкидки;
СтрокаТЧ.УсловиеАвтоматическойСкидки = ПодходящаяСкидка.НУсловие;
СтрокаТЧ.ЗначениеУсловияАвтоматическойСкидки = ПодходящаяСкидка.НЗначениеУсловия;

КонецЕсли;

КонецЕсли;

КонецЦикла;

Для Каждого СтрокаТЧ ИЗ ТаблицаТоваров Цикл

СтрокаТЧ.Сумма = СтрокаТЧ.СуммаБезСкидки * (1 - (СтрокаТЧ.ПроцентАвтоматическихСкидок + СтрокаТЧ.ПроцентСкидкиНаценки) / 100);
...