Имя: Пароль:
1C
 
Округление колонки всего в документе "Счет покупателю"
0 Max57
 
08.11.23
11:36
Всем привет, уважаемые форумчане. Мне нужно добавить на форму  до документа "Счет покупателю" флаг "Округление". Если он истина, то должно происходить округление колонки "Вчего" ТЧ "Товары" в уже заполненном документе и при добавлении новой номенклатуры тоже должно происходить  её округление. Но при записи документа все округления слетают. Подскажите, пожалуйста, как это можно реализовать?

Код модуля формы прилагаю:


&НаКлиенте
Процедура ЛК_ОкруглениеПриИзмененииПосле(Элемент)
    Если Округление Тогда
        ДобавитьУдалитьОкруление();    
        //ЭтотОбъект.Записать();
    Иначе
        //ЭтаФорма.Прочитать();
        //ЭтаФорма.Записать()
    КонецЕсли;
    
КонецПроцедуры

&НаСервере
Процедура ДобавитьУдалитьОкруление()
    
    Для каждого СтрокаТч Из Объект.Товары Цикл
        
        СтрокаТч.Всего = Окр(СтрокаТч.Всего);    
        
    КонецЦикла;
    
КонецПроцедуры

&НаКлиенте
Процедура ЛК_ТоварыКоличествоПриИзмененииПосле(Элемент)
    
    ТекущиеДанные = Элементы.Товары.ТекущиеДанные;
    Если Округление Тогда
        
        ТекущиеДанные.Всего = Окр(ТекущиеДанные.Всего);    
        
    КонецЕсли;
    
КонецПроцедуры

&НаКлиенте
Процедура ЛК_ТоварыЦенаПриИзмененииПосле(Элемент)
        ТекущиеДанные = Элементы.Товары.ТекущиеДанные;
    Если Округление Тогда
        
        ТекущиеДанные.Всего = Окр(ТекущиеДанные.Всего);    
        
    КонецЕсли;

КонецПроцедуры

&НаКлиенте
Процедура ЛК_ТоварыПроцентСкидкиПриИзмененииПосле(Элемент)
        ТекущиеДанные = Элементы.Товары.ТекущиеДанные;
    Если Округление Тогда
        
        ТекущиеДанные.Всего = Окр(ТекущиеДанные.Всего);    
        
    КонецЕсли;
КонецПроцедуры
1 Max57
 
08.11.23
11:38
(0) Конфигурация Бухгалтерия предприятия, редакция 3.0 (3.0.140.20)
2 vicof
 
08.11.23
11:40
Надо смотреть отладчиком место, где они слетают. Ваш кэп.
3 Irbis
 
08.11.23
11:42
Очередная учебная задача без практической пользы, и даже немного вредная.