Процедура Выч_суммы() СуммаБезСкидки=Цена*Количество; Скидка = СуммаСкидки / СуммаБезСкидки * 100; // % скидки КоньрольЦен(Товар,(СуммаБезСкидки - СуммаСкидки)/Количество,Валюта1); Если Валюта1=Константа.БазоваяВалюта Тогда Сумма = СуммаБезСкидки - СуммаСкидки; СуммаВал=0; иначе СуммаВал = СуммаБезСкидки - СуммаСкидки; Сумма=0; КонецЕсли; КонецПроцедуры Процедура ВычСкидки() //Поле сумма скидки СуммаСкидки = СуммаБезСкидки*Скидка/100; Выч_суммы(); КонецПроцедуры
(РЕШЕНО) помогите со скидкой
#1
Отправлено 05 февраля 2012 - 16:24
#2
Отправлено 05 февраля 2012 - 19:02
#4
Отправлено 05 февраля 2012 - 22:11
Сообщение отредактировал Хряк: 05 февраля 2012 - 22:12
#6
Отправлено 05 февраля 2012 - 22:46
ВычСкидки()
#8
Отправлено 05 февраля 2012 - 23:42
warayg (05 февраля 2012 - 23:21) писал:
Товар____Количество___Цена___Сумма без скидки___% скидки___Сумма скидка___Сумма со скидкой
бутылка__2____________100____200_______________10________20_____________180
Меняю количество
бутылка__1____________100____100_______________20________20_____________80
#9
Отправлено 06 февраля 2012 - 00:52
Жмакнувшим
буду благодарен.
#10
Отправлено 06 февраля 2012 - 09:41
Бухгалтерский угодник (06 февраля 2012 - 00:52) писал:
большое спасибо, все работает как надо )), знал, что все просто, но чет про это не подумал.
А можете еще подсказать, как через процедуру установить одну и туже скидку (вводится пользователем) на весь товар который есть в документе при его заполнении.
#11
Отправлено 06 февраля 2012 - 14:00
ВыбратьСтроки(); Пока ПолучитьСтроку()=1 Цикл //тут или расчитываем или вызываем процедуру расчета КонецЦикла;
Жмакнувшим
буду благодарен.
#12
Отправлено 06 февраля 2012 - 19:27
Количество пользователей, читающих эту тему: 1
0 пользователей, 1 гостей, 0 анонимных









