Untitled

mail@pastecode.io avatar
unknown
plain_text
a year ago
1.5 kB
2
Indexable
Never
&НаСервере
Процедура РассчитатьНаСервере()
	
	ДокументОбъект = РеквизитФормыВЗначение("Объект");
	ДокументОбъект.Рассчитать();
	ЗначениеВРеквизитФормы(ДокументОбъект, "Объект");
	
	Модифицированность = Истина;
	
КонецПроцедуры

&НаКлиенте
Процедура Рассчитать(Команда)
	       
	Если Объект.Ссылка.Пустая() Тогда
		Оповещение = Новый ОписаниеОповещения("ОбработатьОтветЗаписиДокумента", ЭтотОбъект);
		ПоказатьВопрос(Оповещение, "Перед расчетом документ будет записан. Продолжить?", РежимДиалогаВопрос.ДаНет);
		Возврат;
	КонецЕсли;
	
	РассчитатьНаСервере();
	
КонецПроцедуры

&НаКлиенте
Процедура ОбработатьОтветЗаписиДокумента (Ответ, ДополнительныеПараметры) Экспорт
	
	Если Ответ = КодВозвратаДиалога.Нет Тогда
		Возврат;
	КонецЕсли;
	
	Записать();
	РассчитатьНаСервере();
	
КонецПроцедуры