0
Max57
08.11.23
✎
11:36
|
Всем привет, уважаемые форумчане. Мне нужно добавить на форму до документа "Счет покупателю" флаг "Округление". Если он истина, то должно происходить округление колонки "Вчего" ТЧ "Товары" в уже заполненном документе и при добавлении новой номенклатуры тоже должно происходить её округление. Но при записи документа все округления слетают. Подскажите, пожалуйста, как это можно реализовать?
Код модуля формы прилагаю:
&НаКлиенте
Процедура ЛК_ОкруглениеПриИзмененииПосле(Элемент)
Если Округление Тогда
ДобавитьУдалитьОкруление();
//ЭтотОбъект.Записать();
Иначе
//ЭтаФорма.Прочитать();
//ЭтаФорма.Записать()
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ДобавитьУдалитьОкруление()
Для каждого СтрокаТч Из Объект.Товары Цикл
СтрокаТч.Всего = Окр(СтрокаТч.Всего);
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура ЛК_ТоварыКоличествоПриИзмененииПосле(Элемент)
ТекущиеДанные = Элементы.Товары.ТекущиеДанные;
Если Округление Тогда
ТекущиеДанные.Всего = Окр(ТекущиеДанные.Всего);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ЛК_ТоварыЦенаПриИзмененииПосле(Элемент)
ТекущиеДанные = Элементы.Товары.ТекущиеДанные;
Если Округление Тогда
ТекущиеДанные.Всего = Окр(ТекущиеДанные.Всего);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ЛК_ТоварыПроцентСкидкиПриИзмененииПосле(Элемент)
ТекущиеДанные = Элементы.Товары.ТекущиеДанные;
Если Округление Тогда
ТекущиеДанные.Всего = Окр(ТекущиеДанные.Всего);
КонецЕсли;
КонецПроцедуры
|
|