7.7 Округление

Здравствуйте! Очень нужна помощь с округлением розничной цены при вводе товара!
Значения в сумме до 25 рублей отбрасываются, от 25 рублей включительно до 75 рублей округляются до 50 рублей, от 75 рублей включительно и выше округляются до 100 рублей.

если 7810 р. то получится 7800
если 7840 р. то получится 7850
если 7880 р. то получится 7900

Пожалуйста помогите!

Добрый день!
Может подскажите, в 1с 7.7 редакция 4.5 Мисофт никак не получается сделать, чтобы счет-фактура не округляла до целого числа НДС и Сумму. Два дня почти везде менял разрядность - все без толку. В модуле это изменить не получается. Может подскажите волшебную строчку? =)


Код:

ИначеЕсли (ИмяРеквизита = "Количество" Тогда
Сумма = ОКР((Цена*Количество),ОКРУГЛЕНИЕ,1);
РассчитатьНалоги();
Всего = глПоказательДокумента(Контекст, "СуммаСНалогами";
ИначеЕсли (ИмяРеквизита = "Цена" Тогда
Сумма = ОКР((Цена*Количество),ОКРУГЛЕНИЕ,1);
РассчитатьНалоги();





Меняю во 2 и 6 строке слово округление на 2 и ничего не меняется

есть еще в конце модуля процедура самого округления, может ее как-то изменить?





Процедура Округление()
Если ПустоеЗначение(ОкруглятьДо) = 1 Тогда
Сообщить("Не задан способ округления";
Возврат;
КонецЕсли;

ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
СпособОкргления = ОкруглятьДо;
Округление = Число(СокрЛП(Строка(СпособОкргления)));
п = Цена - Цел(Цена/Округление)*Округление;
Если (п < Округление/2) Тогда
Цена= Цел(Цена/Округление)*Округление;
ИначеЕсли (Округление/2 <= п) и (п < (Округление/2+Округление)) Тогда
Цена = Цел(Цена/Округление)*Округление + Округление;
ИначеЕсли (п >= (Округление/2+Округление)) Тогда
Цена = Цел(Цена/Округление)*Округление + Округление*2;
КонецЕсли;
Пересчет("Цена";
КонецЦикла;
КонецПроцедуры



Процедура РассчитатьНалоги()

НДС = глПоказательДокумента(Контекст, "НДС");
НП = глПоказательДокумента(Контекст, "НП");
Всего = глПоказательДокумента(Контекст, "СуммаСНалогами");
Форма.НДС.Видимость(глПризнакУчетаНалога(Контекст, "НДС"));
//Форма.НП.Видимость(глПризнакУчетаНалога(Контекст, "НП"));

КонецПроцедуры // РассчитатьНалоги()

спасибо, решение уже найдено. червяк скрывался в глобальном модуле "глПоказательДокумента" округление