&НаКлиенте
Процедура ПродукцияМассаНеттоПриИзменении(Элемент)
ТекущиеДанные = Элементы.Продукция.ТекущиеДанные;
Если ЗначениеЗаполнено(ТекущиеДанные.МассаНетто) И (ТекущиеДанные.Емкость > 0) Тогда
пКоличество = Цел(ТекущиеДанные.МассаНетто / ТекущиеДанные.Емкость);
пМассаНетто = Окр(пКоличество * ТекущиеДанные.Емкость, 1);
Если ТекущиеДанные.МассаНетто = пМассаНетто Тогда
ТекущиеДанные.Количество = пКоличество;
Иначе
ТекущиеДанные.Количество = пКоличество + 1;
Отказ = Ложь;
ЭлементМН = "Продукция[" + Элементы.Продукция.ТекущаяСтрока + "].МассаНетто";
ТекстСообщения = "Последняя единица тары заполнена неполностью продукцией!";
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,, ЭлементМН, "Объект", Отказ);
КонецЕсли;
КонецЕсли;
КонецПроцедуры