---

// --- ОБЩАЯ СЕРВЕРНАЯ ФУНКЦИЯ ДЛЯ СОХРАНЕНИЯ ---
&НаСервереБезКонтекста
Функция СохранитьДанныеНаСервере(Ставка, Заказ, Учет)
    Если Заказ >= 0 Тогда
        Константы.СтавкаНДС.Установить(Ставка);
        Константы.МинимальныйЗаказ.Установить(Заказ);
        Константы.ВалютаУчета.Установить(Учет);
        Возврат Истина; // Всё сохранилось успешно
    Иначе
        Сообщить("Минимальный заказ не может быть меньше нуля!");
        Возврат Ложь;   // Ошибка, сохранять нельзя
    КонецЕсли;
КонецФункции


// --- КОД ДЛЯ КНОПКИ "ВНЕСТИ" ---
&НаКлиенте
Процедура Внести(Команда)
    Если СохранитьДанныеНаСервере(РеквизитСтавкаНДС, РеквизитМинимальныйЗаказ, РеквизитВалютаУчета) Тогда
        Сообщить("Данные записаны");
    КонецЕсли;
КонецПроцедуры


// --- КОД ДЛЯ КНОПКИ "ЗАПИСАТЬ И ЗАКРЫТЬ" ---
&НаКлиенте
Процедура ЗаписатьИЗакрыть(Команда)
    Если СохранитьДанныеНаСервере(РеквизитСтавкаНДС, РеквизитМинимальныйЗаказ, РеквизитВалютаУчета) Тогда
        Закрыть(); 
    КонецЕсли;
КонецПроцедуры


// --- ЗАГРУЗКА ДАННЫХ ПРИ ОТКРЫТИИ ФОРМЫ ---
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    РеквизитСтавкаНДС = Константы.СтавкаНДС.Получить();
    РеквизитМинимальныйЗаказ = Константы.МинимальныйЗаказ.Получить();
    РеквизитВалютаУчета = Константы.ВалютаУчета.Получить();
КонецПроцедуры