Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
05 июн 2025, 12:11

ОПТИМИЗАЦИЯ КОДА

Автор sali, 03 июн 2025, 14:09

0 Пользователей и 1 гость просматривают эту тему.

sali

казалось бы вроде легко ,но зациклился . как можно БУДЕТ оптимизировать скидки в пФ. скидки есть в договоре контрагента, они как дополнительные для обучающегося , к примеру 3% скидки - согласно по решению GB за раннюю оплату до 1 апреля , это к примеру. и есть основные скидки они в документе ставятся, там могут быть, к примеру 5% на второго ребенка. и вот если есть две скидки прописал код так
Если ЗначениеЗаполнено(Шапка.СкидкаСсылка) и ЗначениеЗаполнено(Шапка.ПроцентСкидкиНаценки) Тогда //и ЗначениеЗаполнено(Шапка.ПроцентСкидки) Тогда
//СуммаСкидкиВДоговоре =  ТаблицаУслуги.Итог("Всего") - (ТаблицаУслуги.Итог("Всего") * Шапка.ПроцентСкидки) / 100; 
Всего = (ТаблицаУслуги.Итог("Всего") * Шапка.ПроцентСкидки) / 100;
Процент = ТаблицаУслуги.Итог("Всего") - СуммаСкидкиВДоговоре - Шапка.ПроцентСкидкиНаценки;
ДанныеПечати.Вставить("ПроцентСкидки", Процент);
ИначеЕсли ЗначениеЗаполнено(Шапка.СкидкаСсылка) Тогда
Всего = ТаблицаУслуги.Итог("Всего") - (ТаблицаУслуги.Итог("Всего") * Шапка.ПроцентСкидки) / 100;
ИначеЕсли ЗначениеЗаполнено(Шапка.ПроцентСкидкиНаценки) Тогда
Всего = ТаблицаУслуги.Итог("Всего") - Шапка.ПроцентСкидкиНаценки;
Иначе
Всего =  ТаблицаУслуги.Итог("Всего");
КонецЕсли;
и в макете 2 области для основной скидки и дополнительной они конечно проверяются по заполнености

LexaK

все плохо!
не надо 10 раз вычислять : ТаблицаУслуги.Итог("Всего");
если помогло нажмите: Спасибо!

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск