Untitled
unknown
plain_text
a year ago
1.5 kB
2
Indexable
Never
&НаСервере Процедура РассчитатьНаСервере() ДокументОбъект = РеквизитФормыВЗначение("Объект"); ДокументОбъект.Рассчитать(); ЗначениеВРеквизитФормы(ДокументОбъект, "Объект"); Модифицированность = Истина; КонецПроцедуры &НаКлиенте Процедура Рассчитать(Команда) Если Объект.Ссылка.Пустая() Тогда Оповещение = Новый ОписаниеОповещения("ОбработатьОтветЗаписиДокумента", ЭтотОбъект); ПоказатьВопрос(Оповещение, "Перед расчетом документ будет записан. Продолжить?", РежимДиалогаВопрос.ДаНет); Возврат; КонецЕсли; РассчитатьНаСервере(); КонецПроцедуры &НаКлиенте Процедура ОбработатьОтветЗаписиДокумента (Ответ, ДополнительныеПараметры) Экспорт Если Ответ = КодВозвратаДиалога.Нет Тогда Возврат; КонецЕсли; Записать(); РассчитатьНаСервере(); КонецПроцедуры