 |
Помогите исправить в конфигураторе округление цены до 100 руб... Здесь?
Процедура Округление()
Если ДатаДок<Дата(03,10,01) Тогда
Если Цена1<1000 Тогда
РозничнаяЦена=ОКР(Цена1,0,0);
Иначе
РозничнаяЦена=ОКР(Цена1/5,0)*5;
КонецЕсли;
Иначе
Если (Цена1<1000) и (ДатаДок<Дата(04,09,01)) Тогда
Хвост=Цена1/10-Цел(Цена1/10);
Если Хвост=0.75 Тогда
ЦенаСПосудой=ОКР(Цена1/5,0,0)*5;
Иначе
ЦенаСПосудой=ОКР(Цена1/5,0,1)*5;
КонецЕсли;
Иначе
ЦенаСПосудой=ОКР(Цена1/10,0,0)*10;
КонецЕсли;
РозничнаяЦена=ЦенаСПосудой-Товар.Стеклопосуда;
КонецЕсли;
КонецПроцедуры
Беларусь
|
|
НА ОБУЧЕНИЕ «1С»