dias65
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
//Вычисление скидки по формуле. Добавленая функция.
Функция глВычислитьСкидку(Конт) Экспорт
Аргум = Конт.Номенклатура.USD; //получили для расчета
//Аргум = Конт.Номенклатура.USD.Получить(Конт.ДатаДок); //если реквизит периодический
Скд = // f(Аргум) здесь формула для вычисления Процента скидки
Возврат Скд;
КонецФункции
//-------------------------------------------------------------
Если ЕстьСкидка=1 Тогда // процедура глПересчетТабличнойЧасти, строка 1806
Если СокрЛП(Конт.Скидка.Наименование)="Постоянный покупатель" Тогда
ПроцентСкидки=глВычислитьСкидку(Конт);
Иначе
ПроцентСкидки=Конт.Скидка.Процент;
КонецЕсли;
Иначе
ПроцентСкидки=0;
КонецЕсли;
Процедура глПересчитатьСкидки(Конт) Экспорт
Перем Скидка;
Скидка = Конт.Скидка;
ВидДок = Конт.Вид();
Конт.ВыбратьСтроки();
Пока Конт.ПолучитьСтроку()=1 Цикл
Цена = Конт.Цена;
Количество = Конт.Количество;
КоэффСкидки = 0;
Если СокрЛП(Конт.Скидка.Наименование)="Постоянный покупатель" Тогда
КоэффСкидки=глВычислитьСкидку(Конт)/100;
Иначе
КоэффСкидки=Конт.Скидка.Процент/100;
КонецЕсли;
|
